Question

我正在尝试在VBA上保存文件名之间添加_，如：

    FName = "C:\Users\Public\Documents\DTMForGIS\" & _
            ComboBox1.Value & _
            & "_" & Format(Date, "ddmmmyyyy") & ".xls"

你可以看到我添加& "_" &来格式化它，但它不起作用。你能告诉我原因吗？

Answer 1

您还有一个&。

从&或ComboBox1.Value & _

中移除& "_" & Format(Date, "ddmmmyyyy") & ".xls"

例如

FName = "C:\Users\Public\Documents\DTMForGIS\" & _
        ComboBox1.Value & _
        "_" & Format(Date, "ddmmmyyyy") & ".xls"

或

FName = "C:\Users\Public\Documents\DTMForGIS\" & _
        ComboBox1.Value _
        & "_" & Format(Date, "ddmmmyyyy") & ".xls"

Answer 2

只为了一些有趣的事情

FNAME = "C:\Users\Public\Documents\DTMForGIS\" & _
    Format(Date,make_name(ComboBox1.Value) & "_" & "ddmmmyyyy" & ".xl\s")

Function make_name(fname As String) As String
    Dim new_fname As String
    new_fname = StrConv(fname, vbUnicode)
    make_name = Left("\" & Join(Split(new_fname, vbNullChar), "\"), Len(new_fname))
End Function

在文件名中添加/使用/连接“_”

2 个答案: