VBでExcelファイルに書き込んで、、

質問

下記は本であった例題です↓。

'エクスポート先セルをRow(行)とColumn(列)の形式で指定する
Xls.Application.Goto "r2c3"
'セルに値をエクスポートする
Xls.Application.activecell.Value = "★彡☆彡"

Xls.Application.Quit 'Excelを閉じる
Set Xls = Nothing
Debug.Print "Completed!!"
End Function
質問ですが、
このＶＢを実行した後に、
「更新した内容を保存しますか」
と聞いてきます
そこで、ＶＢの中で、保存するようにするには？
つまり、「保存しますすか」のメッセージを出さない
ようにしたいのです
よろしくお願いします

回答No.2

Wendy02 · ベストアンサー

こんばんは。

VB って何でしょうか？VB6 ですか？
.Net ですと、こんなに雑にしてはいけませんね（^^;

ともかく、オートメーションを使うわけですね。
ご質問者さんは、Access の質問が多いようなので、Access なら、Function に換えてしまってください。

私自身もひさびさで、しばらく分からなかったです。（恥ずかしいぐらいに忘れてしまっていました。）Save メソッドでも使えますが、数行の差ですが、以下のほうが簡単かと思います。

Sub Test()
Dim xlApp As Object　'Excel.Application
Dim xlBk As Object　'Excel.Workbook

Const FNAME = "Test01.xls"

　Set xlApp = CreateObject("Excel.Application")
　　xlApp.Visible = True
　Set xlBk = xlApp.WorkBooks.Add
　　xlApp.GoTo "Sheet1!r2c3"
　　xlApp.ActiveCell.Value = "★彡☆彡"
　　xlApp.DisplayAlerts = False　　'ここに入れる
　　xlBk.SaveAs FNAME
　　xlBk.Close False
　　xlApp.DisplayAlerts = True　　'ここに入れる
　　xlApp.Quit

　Set Bk = Nothing
　Set xlApp = Nothing
End Sub

お礼

回答ありがとうございました

回答No.3

Wendy02

追伸　#2 です。
後は、#2766893 を参照してください。
「ＶＢでエクセルのセルのバックカラーをつけるには？」

#2で作ったものは、実際は、WordからのExcelオートメーションです。VBとは、コマンドの働きが違います。上記で書いた内容のように、単に、そのまま、Save で可能です。

お礼

重ねてありがとうございました
助かりました

回答No.1

bin-chan

> ＶＢの中で、保存するようにするには？
Xls.ActiveWorkbook.Save
を
Xls.Application.Quit 'Excelを閉じる
の行の前に設定

補足

回答ありがとうございました
ご指摘のとうり
Xls.ActiveWorkbook.Save
を
Xls.Application.Quit 'Excelを閉じる
の前にいれてみると
「オブジェクトはこのプロパティまたはメソドで
　サポートしていません」
と出てしまいました
重ねて聞くのは申しわけありません
・・の方向で調べよ、の類のアドバイスで結構ですので
気がむいたらお願いします