怎么在VBA中把excel中的数据 写入数据库

excel是一个自由表，一个EXCEL的工作薄就是一个数据库，它里面的每一张表就是数据库的表，你可象 *** 作表一样对其进行查询等 *** 作，它里面的列就是数据库的字段，行就是记录，因此你可以按数据库的架构来组建数据，只是你如果你组建的数据不符合数据库的规则，在查询时不能得到时相应的结果。因此在EXCEL中不存在创建数据库。但对存在的数据可以引用。当满足条件A、B、C、D……时引用是可以的，但如果是在EXCEL中直接引用是不行的，一种是用VBA利用ADO访问EXCEL，在查询时把A、B、C、D几个条件按SQL语法写进查询语句中，引用返回的记录集，一种是利用函数把满足A、B、C、D的记录筛选出来，然后再引用。

用VBA将EXCEL内容一次性导入SQL

'工具->引用->Microsoft ActiveX Date Object 20

Public Sub SaveData()

Dim Cnn As ADODBConnection

Dim SQL As String

Set Cnn = New ADODBConnection

'建立于数据库的链接

'这里根据你的实际值修改ConnectionString = "Driver=SQL Server;Server=<a href=">

窗体你会做吧！

这是窗体的两个按钮的代码

Dim filename As String

Private Sub CommandButton1_Click()

filename = ApplicationGetOpenFilename

UserForm1TextBox1Text = Dir(filename)

End Sub

Private Sub CommandButton2_Click()

Dim xlsheet As Object

Set xlsheet = GetObject(filename, "excelsheet")ActiveSheet

xlsheetActivate

xlsheetRange("A1", "Z500")Copy ThisWorkbookSheets(1)Range("A1")

以上就是关于怎么在VBA中把excel中的数据 写入数据库全部的内容，包括:怎么在VBA中把excel中的数据 写入数据库、用VBA将EXCEL内容一次性导入SQL、vba 导入数据问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！