對象不支持此屬性或方法 - Excel Workbooks

-1

我知道這個主題出現了很多次，但每個問題都不同，其他主題並沒有幫助我解決我的問題。對象不支持此屬性或方法 - Excel Workbooks

試圖關閉它已經被其他宏觀打開的文件：

Do While Cells(c, 1) <> "" 
     wb1 = Workbooks(Cells(c, 1) & " Daily " & Format(Date, "dd mmm yy") & ".xls") 
     wb2 = Workbooks(Cells(c, 1) & " .xls") 
     If wb1 <> "" And wb2 <> "" Then 
      'Windows(Cells(c, 1) & " Daily " & Format(Date, "dd mmm yy") & ".xls").Activate 
      wb1.Close Savechanges:=True 
      'Windows(Cells(c, 1) & " .xls").Activate 
      wb2.Close Savechanges:=True 
     End If 

    c = c + 1 
Loop

細胞（C，1）是與客戶的名字列。

任何幫助，將不勝感激。

來源

2016-03-11 Dominik Ruczajewski

WHere是錯誤嗎？我認爲你需要檢查「不是wb1什麼都不是」 –

錯誤是在第二行wb1 = ...文件的名稱是好的，因爲它在我使用Windows（...）。時激活。試圖只使用Windows（...）。關閉SaveChanges：True，但錯誤對象... –

Workbooks集合返回Workbook對象。當您想要將對象引用分配給變量時，需要使用Set：

Set wb1 = Workbooks(Cells(c, 1) & " Daily " & Format(Date, "dd mmm yy") & ".xls") 
Set wb2 = Workbooks(Cells(c, 1) & " .xls")

來源

2016-03-11 11:30:31

這工作。謝謝！ –

對象不支持此屬性或方法 - Excel Workbooks

回答

相關問題