使用Excel VBA刪除列時出錯

Question

sub column_delete()

dim x as workbook
dim sht1 as worksheet
dim currentColumn as integer
dim columnHeader as String

Set x = Workbooks.Open("Path to the file")
Set sht1 = x.Sheets("Page 1")
*For currentColumn = sht1.UsedRange.Columns.Count To 1 Step -1*

*columnHeader = shtl.UsedRange.Cells(1, currentColumn).Value*

Select Case columnHeader
 Case "Date", "Time", "Header" 
  'Nothing'
 Case Else
  *shtl.Columns(currentColumn).Delete*

End Select
Next

End Sub

對於上面所有突出顯示的步驟，我都收到錯誤，如運行時錯誤“ 424”：所需對象。

但是我相信我已經聲明了必需的對象。 有時，當我重新打開Excel時，錯誤消失了，而其他時候出現了。

您能幫我解決這個問題嗎？

PS：我是excel vba的初學者。

Answer 1

始終在模塊頂部編寫Option Explicit 。

因此，只要您在編譯時出現錯誤並突出顯示未定義的變量，就可以避免諸如sht1和shtl的錯誤：