Excel VBA質問箱 IV

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

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


58032 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   あるフォルダ(C:\ABC\)に20〜40ファイルくらい毎週、ある列を
削除するのでマクロを作って見たのですが↓
オートフィルタがかかっていたり、かかってなかったりする
ファイルが混在するので、オートフィルタがかかっていない時は
エラーになるのですが、
どのように直したらいいでしょうか?

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 質問
【23436】Re:オートフィルターがある時、オートフィ... IROC 05/3/23(水) 10:55 回答
【23437】Re:オートフィルターがある時、オートフィ... u-chan 05/3/23(水) 11:30 お礼

58032 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free