2016-06-30 103 views
1

我想在Microsoft Excel VBA 2010中使用Workbooks.Open方法,並且收到一個編譯錯誤,指出它期待「=」。我打錯了代碼嗎?Workbooks.Open編譯錯誤

Workbooks.Open (_ 
    Filename:= FromBook, _ 
    UpdateLinks:= xlUpdateLinksNever, _ 
    ReadOnly:= False, _ 
    Format:= 5, _ 
    Password:= "", _ 
    WriteResPassword:= "", _ 
    IgnoreReadOnlyRecommended:= "", _ 
    Origin:= "", _ 
    Delimiter:= "", _ 
    Editable:= "", _ 
    Notify:= "", _ 
    Converter:= "", _ 
    AddToMru:= "", _ 
    Local:= "", _ 
    CorruptLoad:= xlNormalLoad) 

回答

3

這樣期待值被分配給一個變量IE:

Dim myWB as Workbook 

Set myWB = Workbooks.Open (_ 
    Filename:= FromBook, _ 
    UpdateLinks:= xlUpdateLinksNever, _ 
    ReadOnly:= False, _ 
    Format:= 5, _ 
    Password:= "", _ 
    WriteResPassword:= "", _ 
    IgnoreReadOnlyRecommended:= "", _ 
    Origin:= "", _ 
    Delimiter:= "", _ 
    Editable:= "", _ 
    Notify:= "", _ 
    Converter:= "", _ 
    AddToMru:= "", _ 
    Local:= "", _ 
    CorruptLoad:= xlNormalLoad) 

如果你並不真的需要這樣的說法,你可以做一個電話來代替:

Call Workbooks.Open (_ 
     Filename:= FromBook, _ 
     UpdateLinks:= xlUpdateLinksNever, _ 
     ReadOnly:= False, _ 
     Format:= 5, _ 
     Password:= "", _ 
     WriteResPassword:= "", _ 
     IgnoreReadOnlyRecommended:= "", _ 
     Origin:= "", _ 
     Delimiter:= "", _ 
     Editable:= "", _ 
     Notify:= "", _ 
     Converter:= "", _ 
     AddToMru:= "", _ 
     Local:= "", _ 
     CorruptLoad:= xlNormalLoad) 
+1

'呼叫'是多餘的。你可以使用: 'Workbooks.Open _ 文件名:= FromBook,_ UpdateLinks:= xlUpdateLinksNever,_ 只讀:=假_ 格式:= 5,_ 密碼:= 「」,_ WriteResPassword: = 「」,_ IgnoreReadOnlyRecommended:= 「」,_ 產地:= 「」,_ 分隔符:= 「」,_ 可編輯:= 「」,_ 通知:= 「」,_ 轉換器:=「 「,_ AddToMru:=」「,_ Local:=」「,_ CorruptLoad:= xlNormalLoad' – ThunderFrame

+0

@ThunderFrame如果我不使用上面的例子,那麼我得到編譯錯誤 – TroyPilewski

+1

@TroyPilewski刪除'Call'需要刪除前導'('和尾部''' – ThunderFrame