buka workbook baru / kosong
buka module standar; tulis sub prosedur spt dibawah ini
Workbook baru (berisi makro) itulah yg akan menjalankan keinginan anda
Workbook yg diproses tidak perlu diberi makro.
'-----------------
Sub KonversiDataWorkbook()
Dim sht As Worksheet
'nama path dan file perlu anda sesuaikan/edit dulu
buka module standar; tulis sub prosedur spt dibawah ini
Workbook baru (berisi makro) itulah yg akan menjalankan keinginan anda
Workbook yg diproses tidak perlu diberi makro.
'-----------
Sub KonversiDataWorkboo
Dim sht As Worksheet
'nama path dan file perlu anda sesuaikan/edit dulu
'jika akan sering memproses banyak workbook, bisa diganti dgn InputBox
Workbooks.Open Filename:= _
"E:\FolderTertentu\SubFolderTertentu\NamaFileTertentu.xls"
For Each sht In ActiveWorkbook.Worksheets
sht.UsedRange.Copy
sht.UsedRange.PasteSpecial xlPasteValuesAndNumberFormats
sht.UsedRange.PasteSpecial xlPasteFormats
Next sht
Application.CutCopyMode = False
'nama path dan file perlu anda edit/sesuaikan dulu
ActiveWorkbook.SaveAs Filename:= _
"E:\FolderLainTertentu\SubFolderLainTertentu\NamaFileLainTertentu.xls"
ActiveWindow.Close
End Sub
'-----------------
'(belum di test karena tidak ada workbook contoh dari pemilik kasus sbg bahan yg mau di test)
----- Original Message -----
From: Yoesoef, Sofiani
To: XL-mania@yahoogroups.com
Sent: Tuesday, November 24, 2009 9:17 AM
Subject: ]] XL-mania [[ makro cara copy ke file baru dengan format value
Dear para pakar,
Mohon bimbingan dan bantuannya untuk permasalahan saya,
Bagaimana yah caranya dengan makro untuk meng-copy satu file excel dengan banyak sheet ke file baru di directory dan nama file name tertentu, tapi hasilnya format datanya setelah dicopy jadi value semua tanpa merubah format yang aslinya.
terima kasih untuk bantuannya,
best regards,
sofiani yoesoef
"E:\FolderTertentu\
For Each sht In ActiveWorkbook.
sht.UsedRange.
sht.UsedRange.
sht.UsedRange.
Next sht
Application.
'nama path dan file perlu anda edit/sesuaikan dulu
ActiveWorkbook.
"E:\FolderLainTerten
ActiveWindow.
End Sub
'-----------
'(belum di test karena tidak ada workbook contoh dari pemilik kasus sbg bahan yg mau di test)
----- Original Message -----
From: Yoesoef, Sofiani
To: XL-mania@yahoogroup
Sent: Tuesday, November 24, 2009 9:17 AM
Subject: ]] XL-mania [[ makro cara copy ke file baru dengan format value
Dear para pakar,
Mohon bimbingan dan bantuannya untuk permasalahan saya,
Bagaimana yah caranya dengan makro untuk meng-copy satu file excel dengan banyak sheet ke file baru di directory dan nama file name tertentu, tapi hasilnya format datanya setelah dicopy jadi value semua tanpa merubah format yang aslinya.
terima kasih untuk bantuannya,
best regards,
sofiani yoesoef
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Momods lagi hanimuuunnn... |
| 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 |
+-------------------------------------------------------------------+
| Momods lagi hanimuuunnn... |
| 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 |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário