當選擇帶變量的工作表時，Excel 2007 VBA運行時錯誤

Question

我最近一直在回到VBA中，並且一直在測試變量中字符串添加工作表的概念。我已經能夠成功添加工作表，並且我的代碼的最後兩行僅僅是選擇變量的工作表名稱，然後選擇單元格A +存儲在另一個變量中的行號碼

In Sheet1中，列A，在A1開始，我有8個不同的名稱列表，循環通過：

• 鮑勃
• 傑夫
• 最大
• 史蒂夫
• 羅西
• 皮帕
• 佩內洛普
• 羅布

我期待宏觀結束對選定表「搶」與細胞A9，但是我得到一個運行時1004錯誤

我已經通過加強該代碼，它正在選擇正確的變量，但當它試圖選擇行A9，錯誤出現

我的代碼如下：

Sub Add_worksheets() 

Dim sheetName As String 
Dim rownum As Integer 

rownum = 1 
Range("A" & rownum).Select 
sheetName = ActiveCell.Value 

Do Until Range("A" & rownum).Value = "" 
Range("A" & rownum).Select 
sheetName = CStr(ActiveCell.Value) 
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = sheetName 
Sheets("sheet1").Select 
rownum = rownum + 1 
Loop 

Sheets(sheetName).Select 
Range("A" & rownum).Select 

End Sub 

任何幫助，將不勝感激

Answer 1

我也建議你添加if-else檢查工作表名稱存在。爲什麼你要select？我不支持的選擇，因爲你需要它，你可以試試這個：因爲當你增加rownum它去10細胞，這意味着，SHEETNAME不再有名字，但空..

Dim sheetName As String 
Dim rownum As Integer 
Dim WS as WorkSheet 

rownum = 1 
sheetName = Range("A" & rownum).Value '-- remove select 


Do Until Range("A" & rownum).Value = "" 
Range("A" & rownum).Select 
sheetName = CStr(ActiveCell.Value) 
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = sheetName 
Set WS = Sheets(sheetName) 
Sheets("sheet1").Select 
rownum = rownum + 1 
Loop 

rownum = rownum - 1 '-- here 
WS.Activate 
Range("A" & rownum).Value = rownum 

，或者您可能只需使用一個數組做表的創建，然後選擇片後....而不是去來回第一頁......地名..

Sub addSheets() 
Dim rowNum as Integer 
Dim Ws as WorkSheet 
Dim vArray as Variant 

'-- creates one dimensional array 
vArray = WorkSheetFunction.Transpoe(Sheets(1).Range("A1:A9")) 

For rownum = Lbound(vArray) to Ubound(vArray) 
    If IsEmpty(vArray(rowNum)) Then 
     On Error Resume Next 
     Set Ws = Sheets(vArray(rowNum)) 
     If Err.Number <> 0 Then '--no such sheet, so add it 
     Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = vArray(rowNum) 
     Set Ws = Sheets(vArray(rowNum)) 
     End If 
    End IF 
Next rownum 

Ws.Activate 
Ws.Range("A1").offset(rownum).value = rownum 
End Sub