批量删除Excel文件中的某一列 VBA

python无法读取某软件批量导出的文件，因为文件有一列是特殊格式（目测超链接），python pd.read_excel、openpyxl、xlrd、xlwt都试了一遍，还是报错，最后发现把特殊数据那一列删了就可以读取了。
后续统计也不涉及那一列，索性把所有文件（200+）都删了，手动实现不现实，现学了VBA。

新建一个excel文件用来运行VBA，运行的时候关闭其他文件

Sub 删除第三列()
Dim xlPath As String
xlPath = [a1] & "/" 'A1单元格为要删除的文件夹地址，注意mac端为/，win为\，需要修改
Application.DisplayAlerts = False '不显示警告和错误
f = Dir(xlPath & "*.xls*") '获取excel文件地址
Do While f <> ""
    Set wb = Workbooks.Open(xlPath & f)
    wb.Worksheets(1).Columns("C:C").Delete '删除C:C列，可以修改为想删除的任意一列
    wb.Close True
    f = Dir
Loop
Application.DisplayAlerts = True
End Sub

测试之前记得保存文件，运行之后文件就被改了