|
あるフォルダ(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
|
|