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 test()

Set oExcel = GetObject(, "ExcelApplication")

Set oWb = oExcelWorkbooksOpen("D:\testxls") '写你自己的Excel路径

MsgBox oWbSheets("Sheet1")Range("C5") '取"Sheet1"工作表C5单元格的值

oExcelQuit '退出Excel

End Sub

按 Alt+F11 打开VBE窗口，通过菜单选择“插入”-“模块”，输入以上代码。

这里采用的是后置绑定方法，无需事先加载Excel对象引用库。

如果在此过程中希望Excel窗口不可见，可在调用open方法打开Excel之前设置visible属性：

oExcelVisible = False

录制一个排序的宏，以后只要执行这个宏就可以了。 录制宏的方法-- 1，工具-宏-录制新宏 2，给宏起一个名字，或者用默认的Macro1这样的也行 3，然后点击OK 4，执行一遍排序的动作 5，执行完了后，点击录制宏的标志框里的方框停止录制 6，更新数据，Try一下刚才录制的宏 工具-宏-宏-选择刚才录制的宏的名字，点击执行。

Dim cn As New ADODBConnection

Dim rs As New ADODBRecordset

Dim strCn As String

Dim strSQL As String

Dim CountryCode As String

Dim CountryName As String

Dim DeleteFlg As String

Dim CreateBy As String

Dim UpdateBy As String

'strCn = "Provider=sqloledb;Server=xxxx;Database=xxxx;Uid=sa;Pwd=sa;"

strCn = strConn

'MsgBox strCn

'open connect

cnOpen strCn

'

strSQL = "DELETE FROM xxxx"

cnExecute strSQL

cnClose

'get the max row number

Dim RowCount As Integer

RowCount = Sheet3UsedRangeRowsCount

'get the time

Dim nowtime As Date

nowtime = Now()

'MsgBox nowtime

Dim index As Integer

For index = 0 To RowCount

'get data from excel

111= Cells(index, 1)Value

2222= Cells(index, 2)Value

DeleteFlg = "0"

3333= Cells(index, 3)Value

4444= Cells(index, 4)Value

以上就是关于Excel宏是否可以直接 *** 作MySQL数据库全部的内容，包括:Excel宏是否可以直接 *** 作MySQL数据库、excel如何加载宏，加载分析数据库的功能、如何在excel中编写宏读取数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！