在 Excel 中，使用 VBA，如何获取“路径+文件名+扩展名”并更改扩展名？

Question

拥有一个动态生成 Excel 文件和 csv 文件的程序。 excel文件具有“加载时”加载csv数据的VBA代码，我想通过让csv文件具有相同的文件名，但只是不同的扩展名来动态调用该csv。所以，根据我的理解，如果 xls 文件在这里：

C:\directory\filename.xls

这个 VBA 代码：

Function GetFullName() As String

 GetFullName = ThisWorkbook.FullName 

End Function

会导致

GetFullName() = "C:\directory\filename.xls"

所以，如果这是正确的 (source of code)，我如何将“.xls”替换为“.csv”，然后将该值插入到文件调用中。或者例如，为了简单起见，该文件具有使用此代码打印 PDF 的 VBA；这将需要我使用 GetFullName，并将“.xls”更改为“.pdf”：

Sub PrintPDF()

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\directory\filename.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False _

End Sub

希望问题很清楚，如果有更好的解决方案概念，我愿意接受。如果您有任何问题，请告诉我。

Answer 1

替换可能正是您想要的：

Function GetFullNameCSV() As String

 GetFullNameCSV = Replace(ThisWorkbook.FullName, ".xls",".csv")  

End Function

你可以通过包含你想要的扩展来扩展它：

sFileName = GetNewExt("pdf")

Function GetNewExt(Ext As String) As String

 GetNewExt = Replace(ThisWorkbook.FullName, ".xls","." & Ext)  

End Function