Workbooks.Open Filename:= _ "C:\Documents and Settings\陈锐\My Documents\Book3.xls"
教你方法: 在引用内面添加Microsoft Excel ... Object Library Dim xls As New Excel.Application xls.Workbooks.Open ... //vb会自动提示你各种参数的信息你还可以参考EXCEL的帮助文件,内面有所有的VBA编译参考信息的
'引用Microsoft Excel X.0 Object Library Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Set xlApp = New Excel.Application Set xlBook = xlApp.Workbooks.Open("C:\Book1.xls") ...... xlBook.Close False xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing
我是在EXCEL的宏里写啊 楼上的几位都是在VB里的代码把?
顶一下 急用~~~ 现在本人的代码是在宏里写 Dim app As Excel.Applicationapp.Workbooks.Open "f:\temp\ddd1.xls" 但是OPEN完后EXCEL里未正确打开DDD1。XLS文件 而是在进程里开了新的EXCEL进程???
"C:\Documents and Settings\陈锐\My Documents\Book3.xls"
在引用内面添加Microsoft Excel ... Object Library
Dim xls As New Excel.Application
xls.Workbooks.Open ... //vb会自动提示你各种参数的信息你还可以参考EXCEL的帮助文件,内面有所有的VBA编译参考信息的
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open("C:\Book1.xls")
......
xlBook.Close False
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
现在本人的代码是在宏里写
Dim app As Excel.Applicationapp.Workbooks.Open "f:\temp\ddd1.xls"
但是OPEN完后EXCEL里未正确打开DDD1。XLS文件 而是在进程里开了新的EXCEL进程???
ActiveWorkbook.RunAutoMacros xlAutoOpen