删除当前文件夹下所有表格的A列

1007890405

求万能的大神给个VBA，删除当前文件夹下所有表格的A列并保存，工作簿中只有sheet1当中有内容，在网上找了几个，都用不了。

饮冰e士

过客fppt

1. Sub DeleteColumnAFromAllFiles()
   
2.     Dim folderPath As String
   
3.     Dim fileName As String
   
4.     Dim wb As Workbook
   
5.     Dim ws As Worksheet
   
6.     Dim fileExtension As String
   
7.    
   
8.     folderPath = ThisWorkbook.Path & ""
   
9.     fileExtension = "*.xlsx"
   
10.    
    
11.     fileName = Dir(folderPath & fileExtension)
    
12.    
    
13.     Do While fileName <> ""
    
14.         Set wb = Workbooks.Open(folderPath & fileName)
    
15.         Set ws = wb.Sheets("Sheet1")
    
16.         ws.Columns("A:A").Delete
    
17.         wb.Save
    
18.         wb.Close
    
19.         fileName = Dir
    
20.     Loop
    
21. End Sub

复制代码

z865593849

cai2532

留下脚印学习了。