在另一个工作簿中使用文件名多次保存excel文件。

我有一个小问题。我有两个文件

我想在特定文件夹中多次保存“File#1”。 预期的文件名在“文件#2”的第1页C列中。我该怎么做呢？任何帮助都将不胜感激

---

：）

下面是一段代码，取自我用于类似用途的代码-它应该会有所帮助：

Option Explicit
Sub Exportmacro()

Dim rCell As Range, rRng As Range 'define loop names
Dim NewCaseFile As Workbook 'give a name to new work book for duplicate sheet
Dim wks As Worksheet 'name of the copy of feedback
Dim sPath As String
sPath = MacScript("(path to desktop folder as string)")
'turn off screen
With Application
    '.ScreenUpdating = False  ‘only removed while testing
    '.EnableEvents = False
    '.Calculation = xlCalculationManual  ‘disabled for the moment
End With

'Student numbers in cells A7:A160 WARNING SET TO 3 STUDENTS ONLY FOR TEST
Set rRng = Worksheets("studentlist").Range("A7:A9")

    For Each rCell In rRng '<--| loop through "students" range

        'now open new workbook 
         Set NewCaseFile = Workbooks.Add

        'now save as xls with student number as filename Filename:=sPath & rCell.Value & ".xlsx"
         ActiveWorkbook.SaveAs Filename:=rCell.Value & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

        'now close duplicate file
         ActiveWorkbook.Close False

    Next rCell   '<-- next student number
End With         '<-- once all done
'turn screen back on
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

选项显式
子Exportmacro（）
Dim rCell作为范围，rRng作为范围“定义循环名称
Dim NewCaseFile As工作簿“为重复工作表的新工作手册命名”
Dim wks作为反馈副本的工作表名称
像细绳一样暗淡
sPath=MacScript（“（以字符串形式指向桌面文件夹的路径）”）
'关闭屏幕
应用
“.ScreenUpdate=False”仅在测试时删除
'.EnableEvents=False
“.Calculation=xlCalculationManual”暂时禁用
以
'单元格A7中的学生编号：A160警告设置为3名学生仅用于测试
设置rRng=工作表（“学生列表”）。范围（“A7:A9”）
对于rRng中的每个rCell，请包含您的代码。此外，请查看（您将获得您的第一个徽章！），并查看“”，以及如何创建徽章。为您指明正确的方向，您将必须在您的范围内循环并在保存时使用这些值。有什么需要改进的吗？A-N-Y？？我否决了投票并将其标记！！