質問編集履歴
1
重複している文章を削除しました。タグを追加しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -82,84 +82,4 @@
|
|
|
82
82
|
|
|
83
83
|
|
|
84
84
|
|
|
85
|
-
### 前提・実現したいこと
|
|
86
|
-
|
|
87
|
-
visual Studioでエクセルを起動させたい。
|
|
88
|
-
|
|
89
|
-
実装中に以下のエラーメッセージが発生しました。
|
|
90
|
-
|
|
91
|
-
|
|
92
|
-
|
|
93
|
-
### 発生している問題・エラーメッセージ
|
|
94
|
-
|
|
95
|
-
エラーメッセージ
|
|
96
|
-
|
|
97
|
-
|
|
98
|
-
|
|
99
|
-
System.Runtime.InteropServices.COMException: '申し訳ございません。
|
|
100
|
-
|
|
101
|
-
C:\Users\k_sat\Desktop\給料計算.xlsxが見つかりません。
|
|
102
|
-
|
|
103
|
-
名前が変更されたか、移動や削除が行われた可能性があります。
|
|
104
|
-
|
|
105
|
-
|
|
106
|
-
|
|
107
|
-
### 該当のソースコード
|
|
108
|
-
|
|
109
|
-
|
|
110
|
-
|
|
111
|
-
|
|
85
|
+
以上です。ご教示よろしくお願いいたします。
|
|
112
|
-
|
|
113
|
-
|
|
114
|
-
|
|
115
|
-
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
116
|
-
|
|
117
|
-
|
|
118
|
-
|
|
119
|
-
'変数宣言
|
|
120
|
-
|
|
121
|
-
Dim ex As New Microsoft.Office.Interop.Excel.Application
|
|
122
|
-
|
|
123
|
-
Dim sh As Microsoft.Office.Interop.Excel.Worksheet
|
|
124
|
-
|
|
125
|
-
Dim wb As Microsoft.Office.Interop.Excel.Workbook
|
|
126
|
-
|
|
127
|
-
|
|
128
|
-
|
|
129
|
-
'ファイルオープン
|
|
130
|
-
|
|
131
|
-
wb = ex.Workbooks.Open(“C:\Users\k_sat\Desktop\給料計算.xlsx”)
|
|
132
|
-
|
|
133
|
-
sh = wb.Sheets(“Sheet1”)
|
|
134
|
-
|
|
135
|
-
Dim a As Integer = 20
|
|
136
|
-
|
|
137
|
-
Dim b As Integer = 5
|
|
138
|
-
|
|
139
|
-
sh.Range(“A1”).Value = a + b
|
|
140
|
-
|
|
141
|
-
wb.Save()
|
|
142
|
-
|
|
143
|
-
ex.Quit()
|
|
144
|
-
|
|
145
|
-
|
|
146
|
-
|
|
147
|
-
End Sub
|
|
148
|
-
|
|
149
|
-
```
|
|
150
|
-
|
|
151
|
-
|
|
152
|
-
|
|
153
|
-
### 試したこと
|
|
154
|
-
|
|
155
|
-
|
|
156
|
-
|
|
157
|
-
参照の追加からMicrosoft Excel 16.0 Object Libraryを追加済。
|
|
158
|
-
|
|
159
|
-
インポートでImports Microsoft.Office.Interopを使用しています。
|
|
160
|
-
|
|
161
|
-
|
|
162
|
-
|
|
163
|
-
### 補足情報（FW/ツールのバージョンなど）
|
|
164
|
-
|
|
165
|
-
windows 10です。
|