coba VBA di bawah : Sub HK()
Dim HKDir As String
Dim HKDate As String
Dim HKnow As Date
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
HKDir = .SelectedItems(1)
End If
End With
HKnow = Now()
HKDate = Format(HKnow, "mmddyyyy hhnnss")
Worksheets("results").Select
ActiveWorkbook.SaveAs Filename:=HKDir & "\" & HKDate & ".csv", _
FileFormat:=xlCSV, ReadOnlyRecommended:=False
End Sub
semoga membantu :)
2013/5/25 <[email protected]>
> Dear rekan2 semua,
>
> Saya mempunyai template file excel untuk membuat sebuah report, yang ingin
> saya tanyakan bagaimana cara copy data yang ada di sheet "result" dan
> disave as csv (comma delimited) di folder tertentu (misalkan c:/report)
> dengan nama tertentu misalkan report ddmmyy (diambil dari tanggal
> pemrosesan).
>
> Mohon info nya.
>
> Terima kasih
>
> Kurniawan
> Powered by Telkomsel BlackBerry®
>
> ------------------------------------
>
> +-:: XL-mania ::::::::::::::::::::----------------------------------+
> | Maaf moderasi terlambat karena yahoogroups sering error |
> +-------------------------------------------------------------------+
> | DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
> | pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
> +-------------------------------------------------------------------+
> | Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
> | Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
> +-------------------------------------------------------------------+
> | Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
> | [email protected] atau kirimkan mereka file dari |
> | http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
> +-------------------------------------------------------------------+
> | Berikan testimoni di : |
> | http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
> +-------------------------------------------------------------------+
> | Message lama ada di : |
> | http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
> | http://www.mail-archive.com/[email protected] |
> +-------------------------------------------------------------------+Yahoo!
> Groups Links
>
>
>
>
HK .xlsm
Description: Binary data
