質問: vbから既存のexcelファイルを更新したい visualbasicのコーディングで既存のexcelファイルを開き、変更を加えた後同一ファイルに上書き保存したいのですが... createobjectだと新規作成しか出来ないし、getobjectで上書き保存するとexcelのページ違反が発生し強制終了されました。誰か詳しい方のアドバイスを待っています。 ついでに、保存時の上書き確認メッセージを表示しないようにする方法もわかれば教えていただきたいのですが...
回答: 参照設定で、microsoft excel9.0 object library 二チェックを付けてから、下記のようにコーディングします。 private sub command1_click() dim excelapp as new excel.application dim mysheet as excel.worksheet excelapp.workbooks.open "c:\folder1\book1.xls" set mysheet = excelapp.workbooks(1).worksheets("sheet1") 'z1とz2のセルに値を入力 mysheet.range("z1") = 1 mysheet.range("z2") = 2 '上書き保存してから閉じる excelapp.workbooks(1).save excelapp.workbooks(1).close set excelapp = nothing end sub