1

VBA プログラムを作成しましたが、すべてが完了したので、ワークブックを完全にクリーンアップして、プログラムを数回実行する必要があります。このために、私はこのコードを使用しています：

Sub deleteWorksheets()
Dim ws As Worksheet

Application.DisplayAlerts = False

For Each ws In ThisWorkbook.Worksheets
        ws.Delete
Next ws

Application.DisplayAlerts = True
End Sub

しかし、メソッドの削除は毎回失敗しています。以前にアクティブ化して可視プロパティを設定しようとしましたが、何も機能していないようです。

4

1 に答える 1

5

少なくとも 1 つのワークシートをパージ後も存続させる必要があります。それらをすべて削除することはできません。

次のようなことを試してください：

For Each ws In ThisWorkbook.Worksheets
    If ThisWorkbook.Worksheets.Count > 1 Then
        ws.Delete
    Else
        ' in case you want to wipe out whatever was in the sheet
        ws.Cells.Clear
    End If
Next ws
于 2013-07-10T21:22:36.907 に答える