Question

Excel。VBA，批量另存某一特定文件夹里所有.xlsx文件名(依据被修改工作薄某一特定单元值

Excel。VBA，批量另存某一特定文件夹里所有.xlsx文件名(依据被修改工作薄某一特定单元值赋予修改后文件名)。

Answer 1

代码如下，防错细节代码自己完善吧：

Dim Pa$, Na$
Pa = "D:\ABC\" '特定文件夹，以\结束
Na = Dir(Pa & "*.xlsx")
While Na <> ""
   With Workbooks.Open(Pa & Na)
      fna = .Sheets(1).Range("C1").Text '用于新文件名的特定单元格，这里假定为C1
      .SaveAs "改名后存放文件的文件夹\" & fna
      .Close False
   Next
   Na = Dir
Wend