投稿日 | : 2005/01/13(Thu) 10:51 |
投稿者 | : こう |
URL | : |
タイトル | : Re^2: VB上でEXCELファイルの上書き保存をしたいのですが・・ |
説明不足で申し訳御座いませんでした。
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(strPath) '"strPath"パスまで指定オープンするファイル名
Set xlSheet = xlBook.Worksheets("Sheet1")
xlSheet.Cells(1, 1).Value = "12" 'セルに値を入力
xlSheet.Cells(2, 1).Value = "34"
xlSheet.Cells(3, 1).Formula = "=A1+A2" '計算式を入力
'ファイルを保存
xlApp.ActiveWorkbook.Save
上記で、ファイルを開いてセルに値を入力して、
そのまま上書きしたいのですが、
上記のソースでは、マイドキュメントにファイル名に1が付いて保存します
開いたファイルは何の変更も無くそのままです
新たにマイドキュメントに作成されます。