Dear AA,
coba pakai method GetSaveAsFilename
Dim vInput As Variant
vInput = Application.GetSaveAsFilename(fileFilter:="Excel Workbook
(*.xlsx), *.xlsx")
If vInput <> False Then
ActiveWorkbook.SaveAs CStr(vInput)
End If
'Note:
kelemahannya adalah jika macro disimpan workbook yang aktif, maka file macro
akan hilang.
Agar macro nggak hilang sebaiknya maro disimpan di workbook yang lain dan tidak
menjadi satu dengan workbook yang akan disimpan.
thanks
-zainul-
From: [email protected] [mailto:[email protected]] On
Behalf Of Ahmad Adriansyah
Sent: Monday, July 01, 2013 2:11 PM
To: [email protected]
Subject: RE: [belajar-excel] Download
Dear Pak Hendrik,
Sudah saya perbaiki menjadi seperti ini :
Hanya pasa pada saat running, muncul error message :
Kalau menampilkan jendela ini kodingnya apa ya Pak ?
Untuk format filnya menjadi .xlsx ya Pak, bukan xlsm. Terima kaih.
Rgds,
AA
