Question

我试图将一张表格TDadosRecTransf从ModStatRec.xlsm复制到我想保存为TDadosRecTransf.xlsx的新文件中。我希望保存文件TDadosRecTransf.xlsx的路径是工作表单元格A9中的文本值＆＃34; Instrucoes＆＃34;用ModStatRec.xlsm代替＆＃34; C：\ Transfer \ Receitas \＆＃34;我现在有。

我有以下代码

Sheets("TDadosRecTransf").Select
Sheets("TDadosRecTransf").Copy
ActiveWorkbook.SaveAs Filename:="C:\Transfer\Receitas\TDadosRecTransf.txt", _
    FileFormat:=xlText, CreateBackup:=False

我尝试在代码顶部设置一个像这样的

Dim Filepath As String
Filepath = Workbooks("ModStatRec.xlsm").Worksheets("Instrucoes").Range("A29").Value

和行

ActiveWorkbook.SaveAs Filename:="Filepath" & "\TDadosRecTransf.txt", FileFormat:=xlText, CreateBackup:=False

但这不起作用。

我做错了什么？我怎么能这样做？请帮忙......

Answer 1

删除双引号

ActiveWorkbook.SaveAs Filename:=Filepath & "\TDadosRecTransf.txt", FileFormat:=xlText, CreateBackup:=False

VBA宏使用另一个工作簿中的单元格的路径来保存Excel文件

1 个答案: