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 回答日時： 2014/02/15 13:34

fName=app.getsaveAsFilename(・・・

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

No.1 回答者： bin-chan 回答日時： 2014/02/15 00:24

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

（ググる）