ini kayaknya blum ada yg reply ya...
(maaf kalo ternyata sudah ada)
sebetulnya pekerjaan yg dimasalahkan (copy paste file) sudah cukup
cepat bila dikerjakan melalui win-explorer; tetapi jika dikehendaki
otomatisnya melalui VBA, kira-kira codingnya sbb
Sub Kerjaken_Dik(
'-- codedBy: siti©Vi / 16Jun2010 --
Dim FSO, fsA, fsB
Set FSO = CreateObject("Scripting.FileSyste
Set fsA = FSO.GetFile("C:\dbGaji8\DB\
Set fsB = FSO.GetFile("C:\LePekerjaan\
FSO.CopyFile fsA, fsB, True
End Sub
'-- note -- penting buangett ----
' destination files: t_gaji.dbf (= file yg akan di-OverWrite)
' HARUS SUDAH ADA; walaupun hanya berupa file yg dibuat
' dgn notepad yg berisi apa saja / boleh kosong;
' asal.. NAMANYA = t_gaji.dbf
' parameter TRUE pada method CopyFile adalah nilai untuk formal parameter
' yg bernama Overwrite (makanya dijawab =TRUE)
'
' code vba tsb di atas hanya salah satu cara saja...
Dear para Master
Mohon bantuannya
Menggunakan Makro Excel :
1.Meng-copy file misalnya dari C:\dbgaji8\DB\t_gaji ke dan file menjadi berektensi DBF C:\LePekerjaan\t_gaji.dbf 2.Untuk selanjutnya setiap peng-copy-an akan menimpa file t_gaji.dbf yang ada di folder C:\LePekerjaan sebelumnya
Terima kasih
| momod akan terdampar seminggu lagi, moderasi akan lemodmod... |
| hidup tanpa google dan fesbuk dan yahuuuu... ampun dehhh... |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| 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.friendster.com/xlmania atau... |
| 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