Glacierbuka 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
'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: [email protected]
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
