VB6からエクセル操作

質問

VB6でエクセルを開き、ある処理をして、
名前を付けて保存ダイアログを出して保存したいのですが、
名前を付けて保存ダイアログを出すところがうまくいきません。
Dim app As Excel.Application
Dim book As Excel.Workbook
Dim sheet As Excel.Workshee
Set app = CreateObject("Excel.Application")
app.Visible = True
Set book = app.Workbooks.Open("c:\test.csv") 'ファイルを開く
Set sheet = book.Worksheets(1)
sheet.Columns("B:D").Delete Shift:=xlToLeft
sheet.Columns("C:D").Delete Shift:=xlToLeft
sheet.Rows("1:7").Delete Shift:=xlUp
ここで、名前を付けて保存ダイアログを出して、ファイルを保存したい。

回答No.2

NotFound404 · ベストアンサー

fName=app.getsaveAsFilename(・・・
If fName <> fale Then
保存処理
・・・
の感じで。詳しくはExcelのVBAでGetSaveAｓFileNameメソッドを。

回答No.1

bin-chan

検索サイトで「vb6 book 保存ダイアログ」をキーワードに検索。（ググる）