visual Studioでエクセルを起動させたい

Question

前提・実現したいこと

visual Studioでエクセルを起動させたい。
実装中に以下のエラーメッセージが発生しました。

発生している問題・エラーメッセージ

エラーメッセージ

System.Runtime.InteropServices.COMException: '申し訳ございません。‪‪‪‪
C:\Users\k_sat\Desktop\給料計算.xlsxが見つかりません。
名前が変更されたか、移動や削除が行われた可能性があります。

該当のソースコード

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        '変数宣言
        Dim ex As New Microsoft.Office.Interop.Excel.Application
        Dim sh As Microsoft.Office.Interop.Excel.Worksheet
        Dim wb As Microsoft.Office.Interop.Excel.Workbook

        'ファイルオープン
        wb = ex.Workbooks.Open(“‪‪‪‪C:\Users\k_sat\Desktop\給料計算.xlsx”)
        sh = wb.Sheets(“Sheet1”)
        Dim a As Integer = 20
        Dim b As Integer = 5
        sh.Range(“A1”).Value = a + b
        wb.Save()
        ex.Quit()

    End Sub

試したこと

参照の追加からMicrosoft Excel 16.0 Object Libraryを追加済。
インポートでImports Microsoft.Office.Interopを使用しています。

補足情報（FW/ツールのバージョンなど）

windows 10です。

以上です。ご教示よろしくお願いいたします。

Comments

[YAmaGNZ]

エクセルファイルは指定したところに存在しますか？

[rarara_123]

はい、存在しております。

[Hey_CH]

デスクトップに新規のExcelファイルを作成した場合も同じ現象が起きるのでしょうか？

[rarara_123]

新規Excelファイルを作成しても同じ現象となります。

[Hey_CH]

エラーの出るファイルをダブルクリックで開くと同じエラーが出るのでしょうか？

[rarara_123]

いえ、ファイルそのものは開くことが出来ます。

[Hey_CH]

MessageBox.Show(System.IO.File.Exists(“‪‪‪‪C:\Users\k_sat\Desktop\給料計算.xlsx”))
これの実行結果は何と表示されますか？

[rarara_123]

「False」と表示されて、そのあと「System.NullReferenceException: 'オブジェクト参照がオブジェクト インスタンスに設定されていません。」と表示されます。

Answer 1

ちょっとVB詳しくないんで間違いがあるかもしれませんが、問題点が21点見つかりました。

１．文字列が「""」ではなく、「“‪‪‪‪”」（\u201C\u201D）で囲まれている
２．「“‪‪‪‪C:\Users\k_sat\Desktop\給料計算.xlsx”」の「“‪‪‪‪C」←の「“」と「C」の間に「\u202A」が4文字含まれている。

なので、以下のようにすれば開けるようになるのではないでしょうか。
※他にもあると思うので、コード全体を調べる必要があるかもしれません。

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        '変数宣言
        Dim ex As New Microsoft.Office.Interop.Excel.Application
        Dim sh As Microsoft.Office.Interop.Excel.Worksheet
        Dim wb As Microsoft.Office.Interop.Excel.Workbook

        'ファイルオープン
        wb = ex.Workbooks.Open("C:\Users\k_sat\Desktop\給料計算.xlsx")
        sh = wb.Sheets("Sheet1")
        Dim a As Integer = 20
        Dim b As Integer = 5
        sh.Range("A1").Value = a + b
        wb.Save()
        ex.Quit()

    End Sub

Comments

[YAmaGNZ]

全角の「”」に関しては正常に認識してくれるので問題はないのですが、「”」と「C」の間のものは問題ありですね。
提示ソースをコピーしてユーザー名部分のみ変更した場合は動作しませんでしたが、不要な文字を消したところ動作しました。
Webサイトからコピーしてきて、そこのソースにいらない文字が入っていたとかですかね？

[Hey_CH]

> 全角の「”」に関しては正常に認識してくれる
あ、そうなんですね、失礼しました。ご指摘ありがとうございます。

[rarara_123]

ありがとうございます！エクセル起動することが出来ました。

[YAmaGNZ]

コンパイルでエラーが出ないとはいえ、一応全角の「”」も半角にしておいたほうがいいです。

[Hey_CH]

> Webサイトからコピーしてきて、そこのソースにいらない文字が入っていたとかですかね？
「\u202A」で検索すると稀にパスに入ってて邪魔してるようなページがでてきますね。
どこで紛れるのかはちょっとわからないですね。でも、コピペ以外には紛れ込まなそうな気がしますね。

[Hey_CH]

犯人はプロパティのセキュリティタブのパス（からコピペしたとき）かもしれません。
https://devblogs.microsoft.com/oldnewthing/20150506-00/?p=44924