タイトル : Re^2: Excelのプロセス 投稿日 : 2007/03/05(Mon) 13:46 投稿者 : Jack
よねKENさん、魔界の仮面弁士さん初めまして 早速の御教授ありがとうございます。 お二方のアドバイスを参考に以下のようなソースに変更してみました が、巧くいきません。 @でエラーが出る為、以降のソースが正しいかどうかも解りません それと、魔界の仮面弁士さんのアドバイスにもありますWorkBooksの開放にあたり「ReleaseComObject」メソッドが表示されない為参照の仕方がおかしいとは思いま すが是非宜しくお願いします。 Dim objExcel As Excel.Application Dim objBooks As Excel.Workbooks Dim objBook As Excel.Workbook Dim objWSheets As Excel.Worksheets Dim objWSheet As Excel.Worksheet Dim objRange As Excel.Range Dim strName As String '開くファイルのパスを入力する MsgBox("出力する帳票を選択して下さい!",MsgBoxStyle.Information, "確認") objExcel = CreateObject("Excel.Application") strName = objExcel.GetOpenFilename("Excelファイル (*.xls), *.xls") objBooks = objExcel.Workbooks() objBook = objBooks.Open(strName) objWSheets = objExcel.Worksheets() '@ココでエラーが出ます objWSheet = objWSheets("Sheet1") objRange = objWSheet.Cells(1, 1) objRange.Value = "TestTest" objRange = Nothing objWSheet = Nothing objWSheets = Nothing objBook.Close() objBooks.Close() objExcel.Quit() MsgBox("出力終了", MsgBoxStyle.Information, "報告") |