CSVファイルからデータを取得し、グラフィックを生成したスクリプトがあります。多くのOffice更新プログラムの後、このスクリプトは動作するようになりました。 Officeバージョンで戻ってくることはできません。Officeの更新後にVBA Excelシートメソッドが機能しない
Dim sheet
For Each sheet In ActiveWorkbook.Sheets
Select Case sheet.Name
Case "Archive": Sheets(sheet.Name).Delete
Case "Trend": Sheets(sheet.Name).Delete
Case "PivotTable": Sheets(sheet.Name).Delete
End Select
Next
私は次のエラーが表示されます:「アプリケーション定義またはオブジェクト定義のエラー」
この
はコードです。このエラーは、オブジェクト "シート"にメソッド "名前"がないため、選択ケースに到着します。私はエラーを持っている二cicleから、任意の問題を持っていないスクリプトの最初のcicleでのワークシート
Dim sheet as Worksheet
For Each sheet In ActiveWorkbook.Sheets
Select Case sheet.Name
Case "Archive": Sheets(sheet.Name).Delete
Case "Trend": Sheets(sheet.Name).Delete
Case "PivotTable": Sheets(sheet.Name).Delete
End Select
Next
として「シート」を宣言するためにしようと試みています:「型が一致しません」
どうすれば解決できますか?
おかげ
「ActiveWorkbook.WorkSheets」と「ワークシート(sheet.name)」は機能しますか? –
デバッグモードでコードを実行しましたが、 'For each ...'のようにブレークポイントを設定して 'sheet'の値を調べましたか?あなたは現在どのバージョンのOfficeを使用していますか? – FDavidov