vba - excel另存为来自多个单元格的数据-最后一个单元格上的-2个字

Question

到目前为止，我已经研究并提出了此代码，但最后一个单元格的地址格式为：街道地址（#街道名称后缀）城市，省。我需要从字符串中排除城市和省份来创建文件名，而不为城市和省份创建单独的单元格（因为打印文档中的显示应该左对齐并读取##街道名称城市和省份，没有任何额外的空格）。信息会一直变化，因此调整单元格宽度不是一个选项。

有谁知道如何通过修改或增强下面的代码来实现这一点？

非常感谢所有帮助。

谢谢

Sub SaveAsString()

Dim strPath As String
Dim strFolderPath As String

strFolderPath = "D:\Fire Alarm Services\"

    strPath = strFolderPath & _
    Range("K1").Value & " " & _
    Range("N10").Value & " " & _
    Range("H12").Value & " " & _
    Format(Range("H10").Value, "mmm dd yyyy") & ".xlsm"

fileSaveName = Application.GetSaveAsFilename(strPath _
, fileFilter:="Excel Files (*.xlsm), *.xlsm")

End Sub

标签： vbaexcelsave-as