Coba ganti Code
ActiveWorkbook.SaveAs ("Data hasil download")
dengan
Direktori = InputBox("Masukkan Nama Dir dan Sub Dir mis D:\DirBaru")
NamaFile = InputBox("Masukkan Nama File")
MkDir Direktori
ChDir Direktori
ActiveWorkbook.SaveAs Filename:=Direktori & "\" & NamaFile & ".xlsm",
FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Salam,
HK
________________________________
From: Ahmad Adriansyah <[email protected]>
To: "[email protected]" <[email protected]>
Sent: Monday, 1 July 2013, 12:51
Subject: [belajar-excel] Download
Dear Exceler,
Bagaimana caranya ketika kita akan download data dan save as file lain, sebelum
tersave maka akan muncul directory dulu dan kita member nama file dan setelah
itu baru save.
Berikut ini koding yang saya buat :
--------------------------------------------------------------------------------
Sub download()
Dim dKey As Range
Dim dTbl As Range
Set dKey = Sheet1.Range("a1")
Set dKey = Range(dKey, dKey.End(xlDown))
dKey.Name = "dKey"
Set dTbl = Range(dKey, dKey.End(xlToRight))
dTbl.Name = "dTabel"
dTbl.Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs ("Data hasil download")
End Sub
--------------------------------------------------------------------------------
Terima kasih.
Rgds,
AA
