VB.NETでExcelファイルをPDFファイルに変換する

Question

VB.NETでExcelファイルをPDFファイルに変換するコードを書きたく、
Webより下記コードを見つけテストを行っています。

実行PCが2台あり、1台では正常に動作したのですが、
もう1台では★を付けた部分で
「パラメーターが間違っています。（HRESULT からの例外0x80070057（E_INVALIDARG）」が表示されてしまいます。
Webで調査したところエラーコード自体が色んなものに使われているようで、行き詰っております。何かここの設定を確認した方が良いなど、解決の手口がありましたらお教え頂けないでしょうか。

PCのOSは2台ともWindows10 Enterpriseです。

■コード
Dim rtn As Boolean = False
Dim fn As String = "C:\Users\TestUser\Desktop\テスト.xls"
Dim xlApp As Object
Dim errmsg As String
xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = False

    Try
        Dim xlBooks As Object = xlApp.Workbooks
        Dim xlBook As Object = xlBooks.Open(fn)
        Dim xlSheets As Object = xlBook.Sheets
        Dim newFn As String = "C:\Users\TestUser\Desktop\テスト.pdf"

★ xlBook.ExportAsFixedFormat(Type:=0,
Filename:=newFn,
Quality:=0,
IncludeDocProperties:=True,
IgnorePrintAreas:=False,
OpenAfterPublish:=False)
xlBook.Save()

       If Not xlSheets Is Nothing Then
            Try
            Finally
                System.Runtime.InteropServices.Marshal.ReleaseComObject
            End Try
        End If

        If Not xlBook Is Nothing Then
            Try
                xlBook.Close()
            Finally
                System.Runtime.InteropServices.Marshal.ReleaseComObject
            End Try
        End If

        If Not xlBooks Is Nothing Then
            Try
            Finally
                System.Runtime.InteropServices.Marshal.ReleaseComObject
            End Try
        End If

        rtn = True

    Catch ex As Exception
        errmsg = ex.Message
        MsgBox(errmsg)
        'Console.WriteLine("ERROR! ->" & errmsg)
    Finally
        If Not xlApp Is Nothing Then
            Try
                xlApp.Quit()
            Finally
                System.Runtime.InteropServices.Marshal.ReleaseComObject
            End Try
        End If
    End Try

■試したこと
・2台PCのExcel参照設定を比較した→同じだった

Comments

[YT0014]

実行ユーザの権限、C:\Users\TestUser\Desktopフォルダの存在確認は、実行されてますでしょうか？また、正常動作しないPCのExcelの再インストールも、試すべきかもしれません。
また、(http://www.vbforums.com/showthread.php?745489-in-one-system-its-running-well-some-other-system-it-showing-error-why)が、近いケースかもしれません。

[kenshirou]

今回の問題と関係ないかも知れませんが、そもそも、ReleaseComObjectの使い方は正しいのでしょうか？（ReleaseComObject(obj)のように、解放したいCOMオブジェクトを引数に渡す必要あり。）
あと、PDF出力先の「C:\Users\TestUser」配下には、実行ユーザはアクセス権限があるのでしょうか？

[kuta]

大変ご連絡が遅くなりまして申し訳ありません。

YT0014様
ご回答ありがとうございます。
存在確認も行っており、Excel再インストールでも解決しませんでした。。。
頂いたサイトを拝見したのですが、ほぼ同じ内容に思えました、が、ここでも解決されていないようですね・・・

kenshirou 様
別PCで正常に動作するため、引数の使用方法は問題無いかと思っています。
また、実行ユーザにアクセス権は付与されております。

[YT0014]

誤操作による投稿の為削除

Answer 1

ご報告が遅れて申し訳ありません。
皆様ありがとうございます。
色々試したのですが上手くいかず、自分なりの解決方法として
Adobe PDFというプリンタから印刷するという方法でPDF化を実装しました。
明確な解決方法を見つけられずもやもやさせてしまい申し訳ありません。。。
取り急ぎはこちらでクローズとさせて頂きます。

---

Dim xlApp As Object
xlApp = CreateObject("Excel.Application")

Dim xlBooks As Object = xlApp.Workbooks
Dim xlBook As Object = xlBooks.Open(InputFilePath)
Dim xlSheets As Object = xlBook.Sheets

xlSheets.PrintOut(Copies:=1, ActivePrinter:="Microsoft Print to PDF", Collate:=True,PrToFileName:=OutputFilePath)

xlBook.Close()
xlBooks.Close()

Answer 2

ＰＤＦに変換するのは、Worksheetオブジェクトです。
そして、ExportAsFixedFormatメソッドにてpdfに変換します。

複数のワークシートを一つのｐｄｆに変換する場合、先に複数のワークシートをアクティブにする必要があります。

    Dim xlBooks As Object = xlApp.Workbooks
    Dim xlBook As Object = xlBooks.Open(fn)
    Dim xlSheets As Object = xlBook.Sheets
    Dim newFn As String = "C:\Users\TestUser\Desktop\テスト.pdf"
    
    xlSheets.Select
    ActiveSheet.ExportAsFixedFormat Type:=0, _
                                    Filename:=newFn 

Comments

[kuta]

ご回答ありがとうございます。
頂いた内容で先にアクティブにするよう実装してみたのですが、結果変わらずでした・・・