質問編集履歴
1
重複している文章を削除しました。タグを追加しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -40,44 +40,4 @@
|
|
|
40
40
|
### 補足情報（FW/ツールのバージョンなど）
|
|
41
41
|
windows 10です。
|
|
42
42
|
|
|
43
|
-
### 前提・実現したいこと
|
|
44
|
-
visual Studioでエクセルを起動させたい。
|
|
45
|
-
実装中に以下のエラーメッセージが発生しました。
|
|
46
|
-
|
|
47
|
-
### 発生している問題・エラーメッセージ
|
|
48
|
-
エラーメッセージ
|
|
49
|
-
|
|
50
|
-
System.Runtime.InteropServices.COMException: '申し訳ございません。
|
|
51
|
-
C:\Users\k_sat\Desktop\給料計算.xlsxが見つかりません。
|
|
52
|
-
名前が変更されたか、移動や削除が行われた可能性があります。
|
|
53
|
-
|
|
54
|
-
### 該当のソースコード
|
|
55
|
-
|
|
56
|
-
|
|
43
|
+
以上です。ご教示よろしくお願いいたします。
|
|
57
|
-
|
|
58
|
-
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
59
|
-
|
|
60
|
-
'変数宣言
|
|
61
|
-
Dim ex As New Microsoft.Office.Interop.Excel.Application
|
|
62
|
-
Dim sh As Microsoft.Office.Interop.Excel.Worksheet
|
|
63
|
-
Dim wb As Microsoft.Office.Interop.Excel.Workbook
|
|
64
|
-
|
|
65
|
-
'ファイルオープン
|
|
66
|
-
wb = ex.Workbooks.Open(“C:\Users\k_sat\Desktop\給料計算.xlsx”)
|
|
67
|
-
sh = wb.Sheets(“Sheet1”)
|
|
68
|
-
Dim a As Integer = 20
|
|
69
|
-
Dim b As Integer = 5
|
|
70
|
-
sh.Range(“A1”).Value = a + b
|
|
71
|
-
wb.Save()
|
|
72
|
-
ex.Quit()
|
|
73
|
-
|
|
74
|
-
End Sub
|
|
75
|
-
```
|
|
76
|
-
|
|
77
|
-
### 試したこと
|
|
78
|
-
|
|
79
|
-
参照の追加からMicrosoft Excel 16.0 Object Libraryを追加済。
|
|
80
|
-
インポートでImports Microsoft.Office.Interopを使用しています。
|
|
81
|
-
|
|
82
|
-
### 補足情報（FW/ツールのバージョンなど）
|
|
83
|
-
windows 10です。
|