工作簿定義不正常

Question

我想在VBA中執行一個非常簡單的命令（將值賦給一個範圍），並得到一個錯誤「應用程序定義的或Web定義的錯誤」。經過一些故障排除後，我認爲它與我的工作表的定義有關。這裏是我的代碼：

Sub CommandButton1_Click() 
Dim arr() As String 
Dim path As String 
Dim filename As String 
Dim w1 As Workbook 
Dim w2 As Workbook 
Set w1 = ThisWorkbook 
Dim rng As Range 
'w1.Worksheets(1).Range(Cells(1, 13), Cells(1, 22)) = 1 **#works perfectly, populates the given cells with 1's** 
path = "C:\Users\Nenko\Desktop\" 
filename = "D1.csv" 
Workbooks.Open filename:=path & filename 
ActiveSheet.Columns("A:B").EntireColumn.Delete 
ActiveSheet.Columns("F:AQ").EntireColumn.Delete 
ActiveSheet.Columns("G:G").EntireColumn.Delete 
ActiveSheet.Columns("H:H").EntireColumn.Delete 
ActiveSheet.Columns("I:J").EntireColumn.Delete 
ActiveSheet.Columns("J:J").EntireColumn.Delete 
ActiveSheet.Columns("K:P").EntireColumn.Delete 
'Set w2 = Workbooks(path & filename) #subscript out of range 
'Set w2 = ThisWorkbook **# application defined or web-defined error in Sheets.Add.Name=arr(a)** 
Set w2 = ActiveWorkbook 
'Set Range = w2.Worksheets(1).Range(Cells(1, 13), Cells(1, 22)) **# argument not optional** 
'Range = 1 
'w2.Worksheets(1).Range(Cells(1, 13), Cells(1, 22)) = 1 **#application defined or web-defined error** 
EndRow = Sheets(1).Cells(Sheets(1).Rows.Count, "C").End(xlUp).Row 
'w2.Worksheets(1).Cells(1, 11) = w2.Worksheets(1).Cells(1, 1).Value **#does nothing** 
ActiveSheet.Range("A2:A65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ActiveSheet.Range("K:K"), Unique:=True 
EndRow2 = Sheets(1).Cells(Sheets(1).Rows.Count, "K").End(xlUp).Row - 1 
ReDim arr(EndRow2) 
For a = 2 To EndRow2 + 1 
arr(a - 1) = w2.Worksheets(1).Cells(a, 11).Value 
Next 
ActiveSheet.Columns("K:K").EntireColumn.Delete 
For a = 1 To EndRow2 
Sheets.Add.Name = arr(a) 
c = 1 
d = 1 
For b = 1 To EndRow 
If w2.Worksheets(a + 1).Cells(b, 1) = arr(a) Then 
w2.Worksheets(1).Rows(c).EntireRow.Value = w2.Worksheets(a + 1).Rows(b).EntireRow.Value 
c = c + 1 
End If 
'If w2.Worksheets(a + 1).Cells(b, 2) = arr(a) Then 
'w2.Worksheets(1).Range(Cells(d, 13), Cells(d, 22)) = w2.Worksheets(a + 1).Range(Cells(b, 1), Cells(b, 10)) 
'd = d + 1 
'End If **#this is what I tried to do initially and started getting the error** 
Next 
Next 

End Sub 

End Sub 

＃號後面我把我得到的錯誤時，將相應的行添加到代碼。

什麼代碼的作用是開放的第二工作簿時，從它的唯一片的第一列取唯一的值並創建爲每個唯一值的一個標籤中，包含對應於該值的行。它工作得很好，直到我試圖在第二張工作表w2中使用任何形式的範圍，它始終返回某種錯誤。

在故障排除期間，我發現命令 w1.Worksheets(1).Range(Cells(1, 13), Cells(1, 22)) = 1用1填充工作簿w1中的相應單元。另一方面，命令 w2.Worksheets(1).Range(Cells(1, 13), Cells(1, 22)) = 1返回「應用程序定義或Web定義的錯誤」

我不明白爲什麼它適用於一個工作簿，但不適用於其他。我曾嘗試用我在VBA中知道的每種方式來定義第二個工作簿，但每次都會遇到某種錯誤。

有沒有人有一個想法第二個工作簿有什麼問題？

Answer 1

我看到三個建議，你可以嘗試/使用。

首先，設置您的工作簿，試試這個：

Set w2 = Workbooks.Open(filename:=path & filename) 

AFAIK你不能只是告訴VB的路徑設置一個工作簿。你需要先打開它。請注意，如果您只是離開filename，您的線路將如何工作。 （但是如果工作簿是開放的，它將只有set，否則你必須使用open一行）。這行做了所有的工作，打開文件，工作簿設置爲w2 ...所以你不需要（目前註釋掉）接下來的兩行。

二：再大點，使使用多個工作簿時是使用Range時小心。例如，使用這兩個工作表

Set ws1 = Sheets("worksheet1") 
Set ws2 = Sheets("number2") 

Set rng1 = ws1.Range(Cells(1,1),Cells(1,2)) 

是不一定要爲你工作。你需要你與Cells()使用以及其工作表中明確說明。這條線是更好：

Set rng1 = ws1.Range(ws1.Cells(1,1),ws1.Cells(1,2)) 

或者，使用With

With ws1 
    .Range(.Cells(1,1),.Cells(1,2)) 
End With 

會發生什麼是你的ws2是活動工作表，並嘗試設置的範圍rng1 = ws1.range(cells(1,1),Cells(1,1))，該Cells()被引用的在活動表，但你要設置使用ActiveSheet細胞在ws2一個範圍，不會搖擺。這會引發錯誤，您在您的線路上看到的是

w2.Worksheets(1).Range(Cells(1, 13), Cells(1, 22)) = 1。將其更改爲w2.Worksheets(1).Range(Worksheets(1).Cells(1, 13), Worksheets(1).Cells(1, 22)) = 1。

最後，只是指出Sheets(1)和Sheets("Sheet1")不一定是相同的東西。 Sheets(1)引用「表單索引」中的第一個表單，其中Sheets("Sheet1")引用名稱爲「Sheet1」的表單。如果你開始一個新的工作簿，默認情況下你將有三張工作表（索引爲1,2和3）。如果您重命名所有「ws1」，「ws2」，「ws3」，然後添加一個名爲「Sheet2」的新工作表，使用Sheets(2)將參考Sheets("ws2")，因爲這是索引中的第二個工作表。那有意義嗎？