发布网友 发布时间:2022-04-29 02:13
共1个回答
热心网友 时间:2022-06-28 11:47
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