Question

我有一些代码可以从一个主工作簿复制数据并将其粘贴到新工作表中。我想让代码将此新的excel文件保存在页面内单元格中指定的特定目录中。我遇到了“运行时错误'1004'”，不确定是否可以解决。我下面有一些代码可以显示当前的内容。单元格A11中的数据为C:\Users\MY.NAME\Desktop\Data.xls

 Dim Source2, StrFile2 As String

    Source = Workbooks("Main Workbook").Sheets("Directory Location").Range("A11").Value2
    StrFile = Dir(Source)

ActiveWorkbook.SaveAs Filename:=Source2 & StrFile2

Answer 1

这不会让我问一个澄清的问题。如果您只是想将工作簿复制到单元格A11中的位置，则对我有用。确保将单元格A11中的扩展名更改为xlsm

Sub fff()
    Dim Source2, StrFile2 As String
    Source2 = Range("A11").Value
    ActiveWorkbook.SaveAs Filename:=Source2
End Sub

将新的Excel文件保存在单元格中指定的文件目录中

1 个答案: