Question

我搜索了“从另一个工作表vba中的命名范围中保存为文件名”并没有得到任何结果。我试过这个：

Sub Save_Merge_file()
'
' Save_Merge_file Macro
'
    Windows("merge.csv").Activate
    Dim mfilename As String
    Dim Path As String
    Path = "C:\Users\e0300397\Documents\merges\"
    mfilename = Source.xlsx.Sheet1!filename
    ActiveWorkbook.SaveAs filename:=Path & mfilename & ".csv", FileFormat:=xlCSV
End Sub

我收到“运行时错误” 任何帮助将不胜感激。

Answer 1

对不起，这是我只读了一半......

试试这个......

Sub Save_Merge_file()
  Dim sFileName As String, sPath As String
  Dim wbSource as Workbook

  Windows("Source.xlsx").Activate
  Set wbSource = ActiveWorkbook
  sPath = "C:\Users\e0300397\Documents\merges\"
  sFileName = wbSource.Range("filename")

  Windows("merge.csv").Activate
  ActiveWorkbook.SaveAs Filename:=sPath & sFileName & ".csv", FileFormat:=xlCSV

End Sub

如果从Personal ...启动，那么您需要将上面的源工作簿正确引用到实际文件中。

我想在另一张工作表

1 个答案: