-PR-
解決
済み

VBから既存のExcelファイルを更新したい

  • すぐに回答を!
  • 質問No.19166
  • 閲覧数2285
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 69% (36/52)

VisualBasicのコーディングで既存のExcelファイルを開き、変更を加えた後同一ファイルに上書き保存したいのですが...
CreateObjectだと新規作成しか出来ないし、GetObjectで上書き保存するとExcelのページ違反が発生し強制終了されました。誰か詳しい方のアドバイスを待っています。
ついでに、保存時の上書き確認メッセージを表示しないようにする方法もわかれば教えていただきたいのですが...
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル13

ベストアンサー率 46% (643/1383)

参照設定で、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
お礼コメント
rukaandkaito

お礼率 69% (36/52)

ありがとうございました、うまくいきました。
考え方が間違っていたみたいですね。
excelに対してopenで開くというのは、ヘルプにも記述があったのですがついつい考えすぎ、getobjectに固執してしまいました。
また質問することがあると思いますが、その際にはよろしくお願いします。
親切な回答をありがとうございました!(^。^)/
投稿日時 - 2000-12-15 16:40:37
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ