VBA - 別のブックからの呼び出し

Question

別のブックからのデータに基づいてシートを削除しようとしています。シートが同じワークブックに入っていれば、私はそれを行うことができましたが、毎回ワークシートをインポートする必要はありません。

コードこれまでのところ、私の問題は別のワークブックシートから呼び出されています。シートは削除して喜んでいるワークブック

Option Explicit 

Sub delete() 
    Dim toDeleteSheetsWb As Workbook 
    Dim Cell As Range 

    Set toDeleteSheetsWb = Workbooks("WorkbookWithSheetsToDelete.xlsx") '<-- set the workbook whose sheets will be deleted (change "WorkbookWithSheetsToDelete.xlsx" to its actual name) 
    With Workbooks("name.xlsx").Worksheets("allnames") '<-- reference the worksheet from which to read worksheets names to be deleted in "WorkbookWithSheetsToDelete.xlsx" workbook 
     Application.DisplayAlerts = False 
     For Each Cell In .Range("A1", .Cells(.Rows.Count, "A").End(xlUp)) 
      toDeleteSheetsWb.Sheets(Cell.Value).delete 
     Next Cell 
     Application.DisplayAlerts = True 
    End With 
End Sub 

Answer 1

事前

で

sub delete() 
    Dim wb As Workbook 
    Dim wks As Worksheet 
    Dim MyRange As Range 
    Dim Cell As Range 
    Set wb = Workbooks("name.xlsx") 
    Set wks = wb.Worksheets("allnames") 
    With wks 
     Set MyRange = wks.Range("A1", .Cells(.Rows.Count, "A").End(xlUp)) 
    End With 
    On Error Resume Next 
    Application.DisplayAlerts = False 
    For Each Cell In MyRange 
     Sheets(Cell.Value).Delete 
    Next Cell 
    Application.DisplayAlerts = True 
    On Error GoTo 0 
End Sub 

おかげで多分あなたはこのような何か後にしていますか？