Question

我已经使用了这段代码，但是这段代码工作了一个系统，当我使用这个宏书到其他计算机错误时，maggasae发现运行时错误5无效的程序调用或参数

请有人提供解决方案。

提前致谢

Sub ExportAPDF_and_SaveAsXLSX() 
    Dim wsThisWorkSheet As Worksheet 
    Dim strFileName As String 
    Dim strBasePath As String 

    strBasePath = "C:\Users\bmohan.CHECKMATE\Desktop\Debit Note\" 
    strFileName = Range("aa13") 
    Set wsThisWorkSheet = ActiveSheet wsThisWorkSheet.ExportAsFixedFormat _ 
    Type:=xlTypePDF, _ filename:=strBasePath & strFileName, _ 
        Quality:=xlQualityStandard, _ 
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _ 
        OpenAfterPublish:=False 
    MsgBox "Data Exported Successfully""" 
    Range("R11").Value = Range("x11").Value + 1 
End Sub

Answer 1

另一台计算机上的用户名是否不同？如果是这样，您将需要使用如下环境变量：

strBasePath = "C:\Users\" & Environ$("Username") & "\Desktop\Debit Note\"

错误5无效的过程调用或参数

1 个答案: