vba - 打印宏 - 问题

Question

我正在使用下面提到的代码来打印一张纸。我的任务已完成，但我收到一条错误消息，指出“运行时错误'-2147024773 (8007007b)':文档未保存。”

另外，在下面的代码中，我可以在文件名中添加一个文本(除了单元格 A1 文本吗？)。我希望文件名是名称(在单元格 A1 上)并在最后添加一个文本“- Workpaper”。

有人可以帮忙吗？

Sub PrintFile()
  With ActiveSheet
    .ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:="C:\Foldername\" & Range("A1").Text, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
  End With
End Sub

Answer 1

尝试将 "Range("A1").Text"更改为 "Range("A1").Value"
Text vs Value

此外，您应该在使用该值之前检查有效的文件名。

Function ValidateFileName(ByVal name As String) As Boolean
    ' Check for nothing in filename.
    If name Is Nothing Then
        ValidateFileName = False
    End If

    ' Determines if there are bad characters.
    For Each badChar As Char In System.IO.Path.GetInvalidPathChars
        If InStr(name, badChar) > 0 Then
            ValidateFileName = False
        End If
    Next

    ' If Name passes all above tests Return True.
    ValidateFileName = True
End Function