vba - 从工作簿 1 的单元格中的数据宏到 "Save as"工作簿 2

Question

我是宏的基本用户，但现在陷入了以下困境。
我打开了两本工作簿。我需要“另存为”并使用工作簿 1 中单元格中的文件名关闭工作簿 2。宏从工作簿 1 运行。
抱歉，这是我从互联网上所能得到的。我猜最后一行有变化。哦，是的，我也不知道 Dim 是什么意思。

Dim FName As String
Dim FPath As String

FPath = "G:"

FName = Sheets("sheet 1").Range("A1").Text

ThisWorkbook.SaveAs Filename:=FPath & "\" & FName 

Answer 1

Dim 是你如何维度(声明你的变量)，在你的情况下，告诉代码 FName将引用您分配的字符串值。一个不错的教程见This link

要使您的代码正常工作，请尝试以下操作:

Dim FName As String
Dim FPath As String

FPath = "G:"

FName = ThisWorkbook.Sheets("sheet 1").Range("A1").Text 'use ThisWorkbook since you are running from Workbook1

With Workbooks("Workbook2.xlsx")
    .SaveAs Filename:=FPath & "\" & FName 
    .Close True '-> use false to not save changes
End With
'here you need to tell VBA what specific workbook you want to save
'if you used ThisWorkbook here, you would save the workbook where the code runs from, which is Workbook1

您还可以采取更好的方法，如下所示:

Dim FName as String, FPath as String
Dim wkb1 as Workbook, wkb2 as Workbook

Set wkb1 = ThisWorkbook '-> or Set wkb1 = Workbooks("workbook1")

FPath = "G:"
FName = wkb1.Sheets("sheet 1").Range("A1").Text

Set wkb2 = Workbooks("workbook2")
With wkb2
    .SaveAs Filename:=FPath & "\" & FName
    .Close True '-> use false to not save changes
End With