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 :)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
2013/5/25 <h.kurniawan@yahoo.com>
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 |
| XL-mania-subscribe@yahoogroups.com 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/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/XL-mania/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/XL-mania/join
(Yahoo! ID required)
<*> To change settings via email:
XL-mania-digest@yahoogroups.com
XL-mania-fullfeatured@yahoogroups.com
<*> To unsubscribe from this group, send an email to:
XL-mania-unsubscribe@yahoogroups.com
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
__._,_.___
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (2) |
+-:: 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 |
| XL-mania-subscribe@yahoogroups.com 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/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
| 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 |
| XL-mania-subscribe@yahoogroups.com 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/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
.
__,_._,___
Nenhum comentário:
Postar um comentário