Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

58032 / 76732

←次へ　｜　前へ→


	【23434】オートフィルターがある時、オートフィルターをはずす

u-chan - 05/3/23(水) 10:13 -


	引用なし

	パスワード

あるフォルダ（C:\ABC\）に２０～４０ファイルくらい毎週、ある列を
削除するのでマクロを作って見たのですが↓
オートフィルタがかかっていたり、かかってなかったりする
ファイルが混在するので、オートフィルタがかかっていない時は
エラーになるのですが、
どのように直したらいいでしょうか？

Sub Date_DaleteData()

Dim i As Integer
Dim myBook　　　　　As Workbook
Dim mySheet　　　　 As Worksheet

　　Set myBook = ActiveWorkbook
　　Set mySheet = myBook.Worksheets(1)

　　mySheet.Activate　
　　Application.ScreenUpdating = False

With Application.FileSearch
　　　　.LookIn = "C:\ABC\"
　　　　.Filename = "*"
　　　　.FileType = msoFileTypeExcelWorkbooks
　　　　.Execute
　　　　
　　　'列の削除、保存してファイルを閉じる。
　　　For i = 1 To .FoundFiles.Count
　　　　 Workbooks.Open .FoundFiles(i)
　　　　 ActiveWorkbook.Sheets(1).slect
　　　　 Rows(1).autofiltor
　　　　ActiveWorkbook.Sheets(1).slect
　　　　　Columns("E:E").Select
　　　　Selection.Delete
　　　　ActiveWorkbook.Save
　　　　ActiveWorkbook.Close True
　　　Next i
End With
End Sub

0 hits

▼

【23434】オートフィルターがある時、オートフィルターをはずす u-chan 05/3/23(水) 10:13

≪