{Disarmed} Re: [belajar-access] Convert access to excel

 

Maaf kurang teliti, maksud saya:

'2. buat Query2 > dari Table1 pada field ID, beri criteria : Between 65.537 And 100.00

 

Thank you | Terima Kasih | Matur Suksema

Sumiyanto

---

From: Sumiyanto Surabaya <sumiyanto@yahoo.com>
To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Sent: Sunday, 8 January 2012 7:57 AM
Subject: Re: [belajar-access] Convert access to excel

Dear mas Niky_Nugraha,

'pada Table1 misalnya yang akan diconvert buat Field ID type data autonumber, supaya no terbentuk otomatis 1-100.000
'1. buat Query1 > dari Table1 pada field ID, beri criteria : Between 1 And 65.536 (batas maksimum baris/row dalam satu sheet file excel)
'2. buat Query2 > dari Table2 pada field ID, beri criteria : Between 65.537 And 100.00

'kemudian  buat module sbb:

Function TransferToExcel()

Dim strFilePath As String
'Check untuk melihat apakah file sudah ada?
strFilePath = "C:\Order.xls"
If (Dir$(strFilePath) <> "") Then
'Delete file jika sudah ada
Kill strFilePath
End If

    'gunakan TransferSpreadsheet untuk meng-convert ke dalam format Excel Spreadsheet multi sheet
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Query1", strFilePath
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Query2", strFilePath
   
    MsgBox "convert ke dalam format Excel Spreadsheet berhasil...", vbInformation, "Pesan"
End Function

Thank you | Terima Kasih | Matur Suksema

Sumiyanto

---

From: "Niky_Nugraha@manulife.com" <Niky_Nugraha@manulife.com>
To: belajar-access@yahoogroups.com
Sent: Sunday, 1 January 2012 6:43 PM
Subject: [belajar-access] Convert access to excel

 

Dear Master Access,

Newbie mau tanya nih.

Bagaimana caranya convert access to excel dimana data access cukup besar ini ketika diconvert to excel bila row sheet pertamanya udah mentok langsung pindah ke sheet excel berikutnya.

contoh data access sebanyak 100.000 baris sedangkan excel 2003 untuk 1 sheet-nya hanya muat 66.000 baris.

Yang saya inginkan ketika diconvert dari access to excel, sheet 1 excel berisi 66.000 baris dan sisanya terisi di sheet 2.


Terima kasih,


Niky N

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (3)

Recent Activity:

• New Members 9

Visit Your Group

SPAM IS PROHIBITED

MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

if(window.yzq_d==null)window.yzq_d=new Object(); window.yzq_d['W9HDAEoGYqw-']='&U=13cp6au2d%2fN%3dW9HDAEoGYqw-%2fC%3d493064.14543979.14562481.13298430%2fD%3dMKP1%2fB%3d6060255%2fV%3d1';

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___

--
This message has been scanned for viruses and
dangerous content by MailScanner, and is
believed to be clean.