如何在excel中编写宏读取数据库

Question

如题所述

Answer 1

Sub test()

Set oExcel = GetObject(, "Excel.Application")

Set oWb = oExcel.Workbooks.Open("D:\test.xls") '写你自己的Excel路径

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

oExcel.Quit '退出Excel

End Sub  

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

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

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

oExcel.Visible = False