易语言数据库excle

; 检查文件路径是否正确
If Not FileExist("C:\path\to\your\file.xlsx") Then
    MsgBox("文件不存在")
    Return
End If

; 使用ODBC连接Excel文件
Dim conn As New ODBCConnection
conn.ConnectionString = "DRIVER={Microsoft Excel Driver (*.xls, *.xlsx)};DBQ=C:\path\to\your\file.xlsx;"
conn.Open()

; 读取数据
Dim rs As New ADODB.Recordset
rs.Open("SELECT * FROM [Sheet1$]", conn)
While Not rs.EOF
    MsgBox(rs.Fields(0).Value)
    rs.MoveNext
Wend
rs.Close()
conn.Close()

; 使用ADO连接Excel文件
Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\file.xlsx;Extended Properties='Excel 12.0;HDR=YES;'"
conn.Open()

; 写入数据
Dim cmd As New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandText = "INSERT INTO [Sheet1$] (Column1, Column2) VALUES ('Value1', 'Value2')"
cmd.Execute()

conn.Close()