Bisa juga pakai: Sub Simpan()
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Text Files (*.txt), *.txt")
If fileSaveName <> False Then
MsgBox "Save as " & fileSaveName
End If
End Sub
_____
From: [email protected] [mailto:[email protected]]
On Behalf Of siti Vi
Sent: Friday, February 19, 2010 10:05 PM
To: [email protected]
Subject: Re: [belajar-excel] VBA explorer
CommonDialog1.ShowSave
Sebelumnya,... object control dari class bernama CommonDialog harus sudah di
tanamkan di sheet
(cari di ToolBar ControlToolBox > More Controls)
_____
----- Original Message -----
From: Dwi Wuryantadi
To: [email protected]
Sent: Friday, February 19, 2010 9:06 PM
Subject: [belajar-excel] VBA explorer
Tolong dong gimana syntax vba untuk menampilkan kotak dialog folder untuk
menyimpan file
tq b 4
__________ Information from ESET NOD32 Antivirus, version of virus signature
database 4880 (20100219) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
<<image001.gif>>
