Dear Suhu² Access.
Sebelum saya bertanya, perkenalkan nama saya Ari, dan baru 3 minggu ini
menggunakan Ms. Access 2007.
Saya punya kasus sebagai berikut :
Saya mempunya tabel
- i-bank
- sms
- phone
Keseluruhan tabel tersebut yang telah di input datanya oleh user harus di
export ke Ms. Excel, sampai saat ini saya hanya mampu membuat code untuk export
ke Ms. Excel dengan kondisi 1 tabel untuk satu file Ms. Excel , sedangkan yang
diminta oleh user adalah ke-3 tabel tersebut diatas diexport ke dalam 1 file
excel dengan 3 sheet di dalamnya yaitu sheet : i-bank, sms dan phone.
Mungkin master ² semua ada yang bisa menolong permasalahan yang sedang saya
alami, atas bantuannya saya ucapkan terima kasih banyak.
berikut macro dan code yang saya buat :
Setting macro :
Action : TransferSpreadsheet
Transfer type : Export
Spreedsheet Type : Microsoft Excel 97 - Excel 2003 Workbook
Table Name : Tabel-Registrasi
File Name :c:\e-banking\phone.xls
Code di VBA MS. Access
Private Sub Command2_Click()
'WillR - opens the specified Spreadsheet
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim stDocName As String
Set xlApp = New Excel.Application
stDocName = "Export2Excel"
DoCmd.RunMacro stDocName ---> code untuk memanggil macro untuk export
dari tabel acces ke excel yang
disimpan
di folder C:\e-banking\dbe-bank.xls
With xlApp
.Visible = True
Set xlWB = .Workbooks.Open("C:\e-banking\dbe-bank.xls", , False) --->
memanggil & open file excel
End With
End Sub
'-----------------------------
Best Regards,
Ari Ferianto
