Question

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

有人知道如何通过修改或增强以下代码来实现这一目标吗？

所有人都非常感谢。

由于

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

excel从最后一个单元格中的多个单元格数据-2字节点

0 个答案: