如何使用vba 将excel指定行的数据导入到sql2008中

你在EXCEL中增加一个列名为ID,后在VBA中写以下代码，并引用Microsoft

ActiveX

Data

Objects

28后执行

Public

Sub

写入SQL2008()

Dim

cnn

As

New

ADODBConnection

Dim

SQL

As

String,

mydata

As

String,

mytable

As

String

Dim

i%

mydata

=

"KKKK"

'指定要修改的数据库

mytable

=

"aaaa"

'指定数据表

'建立与指定SQL

Server数据库的连接

cnnConnectionString

=

"Provider=SQLOLEDB;"

_

&

"User

ID=sa;"

_

'sa改成你SQL账号(通常不用改)

&

"Password

=123;"

_

'123改成你SQL2008密码

&

"Data

Source=sowin;"

_

'sowin改成你的SQL2008的电脑名,

'如sql2008在网络上，则sowin改成IP地址(如19216801)

&

"Initial

Catalog

="

&

mydata

cnnOpen

'查询全表某些字段的记录

for

i

=

2

to

[a65536]end(xlup)row

SQL

=

"UPDATE

"

&

mytable

&

"

SET

x="

&

cells(i,1)

&

","

&

_

"y="

&

cells(i,2)

&

","

&

_

"z="

&

cells(i,3)

&

","

&

_

"where

id=11"

next

i

'注意引号里面的空格

'数据库没有更新的数据则用INSERT

INTO

'SQL

=

"INSERT

INTO

"

&

mytable

&

"

COLUMNS(x,y,z)"

&

_

"

VALUES('"

&

CELLS(i,1)

&

"','"

&

cells(i,2)

&

"','"

&

cells(i,3)

&"')"

cnnExecute(SQL)

cnnClose

Set

cnn

=

Nothing

End

Sub

我有一个较为简单的办法

不用VBA编程

如果你知道SQL语句的写法

可以利用EXCEL中的公式直接生成对应的 SQL插入语句

然后把这个语句复制到文本文件保存，直接在MYSQL中执行就行了

我就是这么做的

写VBA太麻烦

先读取每个文件的路径然後执行SQL汇入Excel命令即可实现快速导入！也有其它方法但是都没有利用SQL汇入数据功能那么强大。汇放入方法参考>

以上就是关于如何使用vba 将excel指定行的数据导入到sql2008中全部的内容，包括:如何使用vba 将excel指定行的数据导入到sql2008中、vba excel导入mysql、用excel VBA实现将某一文件夹下的所有excel文件的sheet导入mysql 数据库中。请教大神等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！