2013-01-09 30 views
0
Sub test() 
Dim objXL 
Set objXL = CreateObject("Excel.Application") 
Dim FileName As Variant 
Dim UpdateLinks As Variant 
Dim ReadOnly As Variant 
With objXL 
    .Workbooks.Open(FileName:= "test.xls",UpdateLinks:=0,ReadOnly:=False) 
    .Visible = True 
End With 
Set objXL = Nothing 
End Sub 

這裏是我用來打開宏的Excel文件的代碼,但它與Workbooks.Open 8號線報語法錯誤( )功能。我試過但無法弄清楚我錯了什麼地方。有關Workbooks.Open()函數的更多信息可以在這裏找到:http://msdn.microsoft.com/en-us/library/office/ff194819(v=office.15).aspx如何獲得寫權限,當我使用宏來打開一個xls文件

感謝您的關注!

回答

0

.Workbooks.Open FileName:="test.xls", UpdateLinks:=0, ReadOnly:=False

1

你不需要在方法調用()(除非你是分配的結果)。使用

.Workbooks.Open(FileName:= "test.xls",UpdateLinks:=0,ReadOnly:=False) 

這就是說,你爲什麼要創建一個應用程序對象?如果這是在Excel中編碼這部作品

Dim wb As Workbook 
Set wb = Workbooks.Open(FileName:="test.xls", UpdateLinks:=0, ReadOnly:=False) 

或只是

Workbooks.Open FileName:="test.xls", UpdateLinks:=0, ReadOnly:=False 

雖然最好是指定的完整路徑文件。

相關問題