EXPORT DATA TABLE ATAU QUERY MS ACCESS KE MS EXCEL

Hello - MSACCESS EVERYDAY Selamat siang semuanya, semoga teman-teman semua dalam keadaan sehat wal'afiat, tidak kurang suatu apapun, dan tentunya tambah sukses. Aamin.

Pada kesempatan ini kami ingin share/berbagi ilmu tentang ms Access dan tentunya masih melibatkan VBA.

Trik atau ilmu yang ingin kami bagikan yaitu Cara Export data baik dari Table, maupun Query di ms. Access ke Ms. Excel. Tidak panjang lebar silahkan simak berikut ini:

- Contoh nama Table di Ms. Acces yang mau di Export ke Ms. Excel

- Silahkan copas code script: Export data table/query ms. Access ke Ms. Excel dibawah ini:

Private Sub Command0_Click()
  DoCmd.TransferSpreadsheet _
  TransferType:=acExport, _
  SpreadsheetType:=acSpreadsheetTypeExcel12Xml, _
  TableName:="AkSb", _
  FileName:="F:\GL PRATAMA\test.xlsx", _
  HasFieldNames:=True
End Sub

Keterangan: 

- Private Sub Command0_Click()
silahkan disesuaikan dengan Comman Button dengan sesuai dengan kebutuhan.

- TableName:="AkSb", _
yang warna biru itu nama Table ms. Access yang ingin diexport ke ms. Excel, silahkan ganti dengan nama table anda.

-  FileName:="F:\GL PRATAMA\test.xlsx", _
Warna biru diatas, silahkan ganti dengan lokasi penyimpanan hasil export dan test.xlsx ini nama file excel hasil dari proses export dari ms Access

Kaau semuanya sudah disesuaikan, silahkan coba jalankan script program: Export data Table atau Query Ms. Access ke Ms. Excelnya.

Oke teman-teman MSACCESS EVERYDAY, berikut hasil script punya kami, bagaimana punya teman-teman?..

Mungkin ada yang bertanya, bagaimana gan kalau Export data Access ke Excelnya hasilnya langsung terbuka? oh gitu toh Export data Access ke Excel nya pengen langsung kebuka ya hasilnya?..

Baiklah ini dia script Export data Access ke Excelnya dan hasilnya langsung kebuka otomatis:

Private Sub Command0_Click()
 Dim xlApp As Object, wkbk As Object

 DoCmd.TransferSpreadsheet _
 TransferType:=acExport, _
 SpreadsheetType:=acSpreadsheetTypeExcel12Xml, _
 TableName:="AkSb", _
 FileName:="F:\GL PRATAMA\test.xlsx", _
 HasFieldNames:=True

 Set xlApp = CreateObject("Excel.Application")

 With xlApp

 .Visible = True

 Set wkbk = .Workbooks.Open("F:\GL PRATAMA\test.xlsx")

 End With
End Sub

Silahkan perhatikan!.. perbedaanya cuma ada pada script text yang berwarna hijau diatas.

Kalau sudah ditambahkan script kode export data table/query ke excel nya, silahkan dicoba kembali.

Semoga bermanfaat!

Tweet

Subscribe to receive free email updates: