vba怎么将excel数据插入mysql数库库

1、定义连接db的过程：

成都创新互联是一家集网站建设,当雄企业网站建设,当雄品牌网站建设,网站定制,当雄网站建设报价,网络营销,网络优化,当雄网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

Dim oConn As ADODB.Connection

Private Sub ConnectDB()

Set oConn = New ADODB.Connection

oConn.Open "DRIVER={MySQL ODBC 5.1 Driver};" _

"SERVER=localhost;" _

"DATABASE=yourdatabase;" _

"USER=yourdbusername;" _

"PASSWORD=yourdbpassword;" _

"Option=3"

End Sub

2、执行db插入的具体写法：

Dim rs As ADODB.Recordset

Private Sub InsertData()

Set rs = New ADODB.Recordset

ConnectDB

With wsBooks

For rowCursor = 2 To 11

strSQL = "INSERT INTO tutorial (author, title, price) " _

"VALUES ('" esc(.Cells(rowCursor, 1)) "', " _

"'" esc(.Cells(rowCursor, 2)) "', " _

esc(.Cells(rowCursor, 3)) ")"

rs.Open strSQL, oConn, adOpenDynamic, adLockOptimistic

Next

End With

End Sub

你好，vba，想把excel单元格的内容写入mysql，sql语句应该怎样写啊？把单元格的内容写进去

你的sql语句是什么?如果用到A1单元格,我打个比方吧,

mysql="select a,b from table where a=' " range("A1") "'"

判定单元格是什么用以下代码

If Range("A1").HasFormula = True Then

MsgBox "单元格为公式"

ElseIf IsNumeric(Range("A1")) = True Then

MsgBox "单元格为数值"

Else

MsgBox "单元格为文本"

End If

vba excel导入mysql

我有一个较为简单的办法

不用VBA编程

如果你知道SQL语句的写法

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

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

我就是这么做的

写VBA太麻烦