Excel 获取文件名&；单元格引用的路径

我有以下代码将工作表导出为.CSV文件。它将使用当前文件名和当前位置创建.CSV格式的新文件

要修改它，它应该从单元格N15中选择要保存的文件名&它应该保存在预定义的路径中

Sub ExportAsCSV()

Dim MyFileName As String
Dim CurrentWB As Workbook, TempWB As Workbook

Set CurrentWB = ActiveWorkbook
ActiveWorkbook.ActiveSheet.UsedRange.Copy

Set TempWB = Application.Workbooks.Add(1)
With TempWB.Sheets(1).Range("A1")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
 End With        

Dim Change below to "- 4"  to become compatible with .xls files
MyFileName = CurrentWB.Path & "\" & Left(CurrentWB.Name, 
Len(CurrentWB.Name) - 5) & ".csv"

Application.DisplayAlerts = False
TempWB.SaveAs Filename:=MyFileName, FileFormat:=xlCSV, 
CreateBackup:=False, Local:=True
TempWB.Close SaveChanges:=False
Application.DisplayAlerts = True
End Sub

---

只需更改文件名变量的值

Sub ExportAsCSV()

    Dim MyFileName As String
    Dim CurrentWB As Workbook, TempWB As Workbook

    Set CurrentWB = ActiveWorkbook
    ActiveWorkbook.ActiveSheet.UsedRange.Copy

    Set TempWB = Application.Workbooks.Add(1)
    With TempWB.Sheets(1).Range("A1")
    .PasteSpecial xlPasteValues
    .PasteSpecial xlPasteFormats
     End With        

    Dim Change below to "- 4"  to become compatible with .xls files
    MyFileName = CurrentWB.Path & "\" & Range("N15").value2

    Application.DisplayAlerts = False
    TempWB.SaveAs Filename:=MyFileName, FileFormat:=xlCSV, 
    CreateBackup:=False, Local:=True
    TempWB.Close SaveChanges:=False
    Application.DisplayAlerts = True
    End Sub

---

非常感谢你的帮助。还有一件事我注意到，代码只适用于当前工作簿。我们可以定义工作簿名吗？该定义的工作簿将被导出。我对该字段不熟悉&在这里，请确保，更改工作表（“您的工作簿”）的范围（）。范围（“N15”）。值2非常感谢您的帮助。它工作得很好。节省了大量时间。我做了以下更改。活动工作簿.sheets（“Final”）&将范围（）替换为当前事件.worksheets（“Final”）.range.（“R1”）和.CSV）。此代码运行良好。它将从单元格R1中以CSV形式导出最终工作表。但它会将它导出到我的文档中。我们有没有办法把导出路径设置为。我尝试过currentwb.path，但对我无效。请建议。