2017-09-15 52 views
0

私はこのコードが、このコード作業のシステムを使用して、私は他のコンピュータのエラーmaggasaeこのmacrobookを使用していたときにエラー5無効なプロシージャ呼び出しまたは引数

誰かがsoluctionを提供してくださいランタイムエラー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 
+1

あなたはそれを強調表示し、ないてください – WhatsThePoint

+0

こんにちは大胆かつ歓迎内のStackOverflowにはCtrl + Kを押すことで、あなたのコードをフォーマットしてくださいでした。 ヘルプページ、特に というセクションを読んでください。[ここで私はどのような話題を聞くことができますか?](http://stackoverflow.com/help/on-topic)と[私は尋ねるのを避けるべきですか? "](http://stackoverflow.com/help/dont-ask)。 さらに重要なことは、[Stack Overflow question checklist](http://meta.stackexchange.com/q/156810/204922)をお読みください。 [最小、完全、および検証可能な例](https://stackoverflow.com/help/mcve)についても知りたいことがあります。 – GPhilo

答えて

0

は、他のコンピュータ上の別のユーザー名ですか?もしそうなら、あなたはこのように環境変数を使用したいと思うでしょう:

strBasePath = "C:\Users\" & Environ$("Username") & "\Desktop\Debit Note\" 
関連する問題