Excel宏是否可以直接 *** 作MySQL数据库？

可以

我现在有一张每周更新的excel销售订单表，于是我把excel另存为UTF-8编码方式的.csv文件（当前已支持Excel，可以省略此步骤），上传到QuickBI中。

注：如数据源换成Mysql、Sqlserver等其他数据库，以下 *** 作步骤类似，依然适用。

在excel2007版本中，添加加载项的分析工具库的功能，在“excel选项”中选择添加即可，详细 *** 作步骤如下：

1、打开excel表格，点击左上角的office图标，在d出的菜单中的右下角就可以看到“excel选项”，点击进入；

2、在excel选项的窗口中，可以看到加载项，选择进入相应的界面；

3、可以看到“分析工具库”加载项，处于非活动状态，在底部选择“转到”选项；

4、d出一个新的窗口，勾选“分析工具库”最后点击“确定”选项，接下来等待excel安装完成之后，就可以使用。

这个很简单，代码如下：

Sub C5C15_B3B13()

Dim Fo As Object, myName As String

Set Fo = Application.FileDialog(msoFileDialogFilePicker)

Fo.Title = "请选择您要复制C5：C15数据的文件："

If Fo.Show = True Then myName = Fo.SelectedItems(1)

If myName = "" Then

MsgBox "您取消了文件选择，所以本次处理未完成，将直接退出", vbOKOnly + vbInformation

Exit Sub

End If

Dim wb as Workbook

For Each wb in Workbooks

if wb.Fullname = myName then Goto wbHasOpened

Next

set wb = workbooks.open(myname)

wbHasOpened:

Dim sh as worksheet

For each sh in wb.sheets

if sh.name = "Voice Quality" Then

[b3:B13] = sh.[c5:c15].value

Exit For

end if

Next

Msgbox "处理完成！"

wb.close True

End Sub

---