|
▼けんけん さん:
こんにちは。
.Net については殆ど解らないのですが、なかなか回答がつかないので…。
以下のコードは VBA ですが、他の offie 製品(Access)から
Excel を開いて書き込む例です。
Private Sub コマンド0_Click()
Const xName = "C:\A.xls"
Dim xlsApp As Excel.Application
Dim xlsWkb As Excel.Workbook
Set xlsApp = CreateObject("Excel.Application")
xlsApp.Visible = True
Set xlsWkb = xlsApp.Workbooks.Open(xName)
xlsWkb.Sheets("Sheet1").Range("A1").Value = Me.Text_Box1.Value
xlsWkb.Close SaveChanges:=True
Set xlsWkb = Nothing
xlsApp.Quit
Set xlsApp = Nothing
End Sub
Excel を非表示にしてテストすると、
エラーが出た際にオブジェクトの解放ができずに
Excel ファイルを破損してしまう事が多々あります。
うまくいくようでたら、xlsApp.Visible = True を
コメント化にでもして下さい。
参考になりましたら幸いです。
|
|