weee lha dalah! (= bhs inggisnya = Wow!)
lha yang mau ikut bantu-bantu apa ya diSURUH kerja-bhakti dulu "mbikin" contoh filenya...
baru bisa thimik-thimik nulis makrohnya...
ya udah.. kita mbikin dulu wokbuk berisi dua sheet data asal-asalan (sheet oleh ditambah sendiri)
satu sheet lagi (index 1, ter-kiri), hanya untuk menggambar si TOMBOL yg mau diceklik,
sheet ini, sbg sheet aktip, tidak akan ikut dikonversi..
makanya jangan menjalankan makro dari sheet data ya...
pokoknya di sheet tambahan itu ada tombol yg bisa di-ceklik, lalu tiba-tiba di folder yg sama
(=folder tempat si file contoh berada) sudah ada file-file CSV hasil konversian dari tiap sheet di wokbuk contoh
Private Sub CommandButton1_Click()
' siti Vi // bluewater, 14 Okt 2010
' XL-mania case / Msg#16688
'-----------------------------------
Dim i As Long 'pencacah loop
Dim sht As Worksheet 'mewakili tiap sheet yg di loop
Dim dPath As String 'path dimana file ini terrekam
Dim msgTxt As String 'text bakal laporan
' menentukan path
dPath = ThisWorkbook.path & "\"
' mematikan [msg konfimasi] dari excel
Application.DisplayAlerts = False
' loop kunjungan ke semua sheet
For Each sht In ThisWorkbook.Worksheets
' (kecali sheet dimana [tombol] berada)
If Not sht.Name = ActiveSheet.Name Then
' sheet yg dikunjungi diKOPY ke NewBook
sht.Copy
' (langsung menjadi wokbuk aktip kan?)
' lalu diSaveAs dgn nama =nama-sheet-nya, type csv
ActiveWorkbook.SaveAs _
Filename:=dPath & sht.Name & ".csv", _
FileFormat:=xlCSV
' truss di-tup-tup...
ActiveWorkbook.Close
' sambil menyusun text laporan.. line by line
i = i + 1
msgTxt = msgTxt & i & vbTab & _
dPath & sht.Name & ".csv" & vbNewLine
End If
Next
Application.DisplayAlerts = False
MsgBox "Telah Dikonversi " & i & " biji CSV-Books sbb : " & _
vbCrLf & vbCrLf & msgTxt, vbInformation, "Lapor Boss !"
End Sub
2010/10/13 Effendi Wijaya <effendiwijaya@gmail.com>
>
> Dear All Pakar Excel,
> salam malu bertanya kerja manual.
>
> aku butuh bantuan dari pakar-pakar excel disini,
> kasus nya setiap bulan aku harus buat laporan hasil producksi yang
> akan di upload ke system
>
> masalah muncul ketika upload ke system harus pakai CSV file, sementara
> aku punya beberapa sheet excel dalam satu file.
>
> sekarang aku lakukan manual satu persatu setiap sheet convert ke CSV file.
> nah aku ingin menghemat waktu dengan hanya satu tombol macro maka
> semua sheet yang ada di excel file akan terconvert ke CSV file, satu
> sheet jadi satu file CSV.
> bagi para pakar macro, please help....sorry kalau tidak melampirkan
> contoh filenya,
> ism.
> thank for help nya...
> E.Wijaya
| rrrr.... capek.... panas... |
| 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