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
Download.xlsm
Description: Download.xlsm
