我正在尝试找到解决以下问题的代码:
我已经到位的格式代码。我只是不知道如何自动打开所有文件,进行格式化并保存它们。
期待您的回答。 最好
答案 0 :(得分:0)
要打开文件,您可以修改此代码(带扩展名的位置和文件名):
patH = "C:\General\"
filE = "Example.csv"
Workbooks.Open Filename:=patH & filE
要保存格式化文件,您可以修改下面的代码(如果存在同名文件,则会覆盖):
path2 = "C:\General\"
file2 = "Example2"
dirFile = path2 & file2
ThisWorkBook.SaveAs dirFile, AccessMode:=xlExclusive, _
ConflictResolution:=Excel.XlSaveConflictResolution.xlLocalSessionChanges