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

用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=">

大约后面再添上以下语句，注意WHERE开始是条件可以不要，7列字段名按我格式一个个填上去

cnOpen strCn

strSQL = "Select 表名姓名,表名性别 from 表名 where 表名条件列名=条件"

rsOpen strSQL, cn, 1, 3

Sheet1Range("A1", "Z65000")Clear

Sheet1Range("A1")CopyFromRecordset rs

rsClose

cnClose

Set rs = Nothing

Set cn = Nothing

以上就是关于用VBA将EXCEL内容一次性导入SQL全部的内容，包括:用VBA将EXCEL内容一次性导入SQL、ABV是什么怎么利用VBA给数据库导大型数据、如何用VBA把这个表格 新增到SQL SERVER数据库里的员工总表了，只要这9行的等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！