VBA для просмотра всех рабочих таблиц и очистки содержимого ячеек

Question

У меня есть код ниже, и я продолжаю получать ошибку времени выполнения 438, может кто-нибудь помочь мне отладить?Спасибо!

Sub my sub ()

Dim wb As Workbook
Set wb = Workbooks.Open(link to file)

Dim ws As Worksheet

For Each ws In wb
    ws.Cells.ClearContents
Next

End Sub

Answer 1

Попробуйте:

Option Explicit

Sub Test()

Dim ws As Worksheet
'Loop all sheet in the workbook
For Each ws In ThisWorkbook.Worksheets
    'Clear the used range of the sheet
    ws.UsedRange.Clear 'or .ClearContents
Next ws

End Sub