求助，如何修改才能批量删除某列

timbo.yang

Sub 批量删除某列()
Application.DisplayAlerts = False
Dim myFile As String
Dim myDoc As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
.AllowMultiSelect = False
.Title = "选择文件夹"
myFile = .SelectedItems(1)
End With
myDoc = Dir(myFile & "\" & "*.xls*")
Do While Len(myDoc) <> 0
Workbooks.Open (myFile & "\" & myDoc)
Worksheets(1).Columns("A:A").Select '删除哪列就把A改什么
Selection.Delete Shift:=xlToLeft
Workbooks(1).Close
Save = True
myDoc = Dir
Loop
Application.DisplayAlerts = True
End Sub

上面的试了很久，还是没有成功

chart888

测试了下
没毛病
好的很

timbo.yang

chart888 发表于 2017-6-27 20:55
测试了下
没毛病
好的很

不行啊，只删了最后一个excel

chart888

1. Private Sub CommandButton1_Click()
   
2. Application.DisplayAlerts = False
   
3. Dim myFile As String
   
4. Dim myDoc As String
   
5. With Application.FileDialog(msoFileDialogFolderPicker)
   
6. .Show
   
7. .AllowMultiSelect = False
   
8. .Title = "选择文件夹"
   
9. myFile = .SelectedItems(1)
   
10. End With
    
11. myDoc = Dir(myFile & "" & "*.xls*")
    
12. Do While Len(myDoc) <> 0
    
13. Workbooks.Open (myFile & "" & myDoc)
    
14. Worksheets(1).Columns("A:A").Select '删除哪列就把A改什么
    
15. Selection.Delete Shift:=xlToLeft
    
16. Workbooks(myDoc).Close Savechanges:=True
    
17. myDoc = Dir
    
18. Loop
    
19. Application.DisplayAlerts = True
    
20. End Sub

复制代码