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

前提・実現したいこと

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です。

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

YAmaGNZ

2021/04/05 04:44

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

rarara_123

2021/04/05 04:49

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

Hey_CH

2021/04/05 05:02

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

rarara_123

2021/04/05 05:05

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

Hey_CH

2021/04/05 05:10

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

rarara_123

2021/04/05 05:14

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

Hey_CH

2021/04/05 05:23

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

rarara_123

2021/04/05 05:30

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

行動規範の内容に同意します

回答1件

ベストアンサー

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

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

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

VB
1    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
2
3        '変数宣言
4        Dim ex As New Microsoft.Office.Interop.Excel.Application
5        Dim sh As Microsoft.Office.Interop.Excel.Worksheet
6        Dim wb As Microsoft.Office.Interop.Excel.Workbook
7
8        'ファイルオープン
9        wb = ex.Workbooks.Open("C:\Users\k_sat\Desktop\給料計算.xlsx")
10        sh = wb.Sheets("Sheet1")
11        Dim a As Integer = 20
12        Dim b As Integer = 5
13        sh.Range("A1").Value = a + b
14        wb.Save()
15        ex.Quit()
16
17    End Sub

投稿2021/04/05 05:55

編集2021/04/05 06:12

Hey_CH

総合スコア437

YAmaGNZ

2021/04/05 06:08

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