berikut code untuk mengecek apakah suatua file excel diload dimemori atau tidak.
Dim oApp As Object
Set oApp = GetObject("C:\FileXlS\File1.xls")
If TypeName(oApp) = "Nothing" Then
MsgBox "file belum ibuka"
Else
MsgBox "file sudah dibuka, tutup dulu"
End If
Semoga membantu: =(oVo)=
====================
BaceInside Publisher
Copyright @2009
Not for reproduced, republished.
Thank You
====================
________________________________
From: Nyoman Darsana <[email protected]>
To: [email protected]
Sent: Sat, November 28, 2009 8:16:56 AM
Subject: Re: [Programmer-VB] report dengan microsof excel
nimbrung dikit, saya juga menggunakan XLS untuk membuat report, cuman sampai
saat ini saya masih ada kesulitan , gimana sintaks di VB untuk mendeteksi
apakah file yang akan diisi report sedang dibuka/aktif dimemori atau tidak. thx
salam,
nyoman
----- Original Message -----
From: Bace - Bace
>To: Programmer-VB@ yahoogroups. com
>Sent: Friday, November 27, 2009 9:08 PM
>Subject: Re: [Programmer- VB] report dengan microsof excel
>
>
>sederhananya memang memasukkan satu persatu datanya, tetapi jika sudah mahir,
>nanti bisa digabung dengan database, sehingga tidak ada batasan dalam membuat
>report. Kecepatan mencetak report juga tidak terasa, karena hanya memerlukan
>waktu 1 detik untuk mengisi semua baris dan kolom untuk ukuran kertas legal
>(sekitar 25 kolom 60 baris) terisi semua.
>
>dan lebih hebatnya, dengan trik sedikit, dari file xls dapat di ekspor lgsng
>ke file pdf, sehingga klien tidak harus mencetak ke kertas, tetapi juga bisa
>mencetak ke file pdf.
> Semoga membantu: =(oVo)=
>============ ========
>BaceInside Publisher
>Copyright @2009
>Not for reproduced, republished.
>Thank You
>============ ========
>
>
>
>
>
________________________________
From: Jemmy <jemmytecoalu@ yahoo.com>
>To: Programmer-VB@ yahoogroups. com
>Sent: Fri, November 27, 2009 6:33:21 PM
>Subject: Re: [Programmer- VB] report dengan microsof excel
>
>
>Kalo dari sampel code yg diberikan, saya simpulkan main full coding ya,
>kemudian datanya di-insert satu per satu ya?
>
>Kalo begitu apa gak lambat kalo banyak data yang ingin ditampilkan pada
>reportnya?
>
>Thx.
>
>
>
>
>
>
________________________________
From: Bace - Bace <bac...@yahoo. com>
>To: Programmer-VB@ yahoogroups. com
>Sent: Thu, November 26, 2009 12:52:12 PM
>Subject: Re: [Programmer- VB] report dengan microsof excel
>
>
>berikut salah satu teknik untuk membuka dan mengisi file xls
>
>Private Sub Command1_Click( )
>' On Error Resume Next
> Dim NamaFile
> Dim strBackupFile As String
> Dim bytes() As Byte
> Dim file_name As String
> Dim file_num As Integer
> Dim file_length As Long
> Dim num_blocks As Long
> Dim left_over As Long
> Dim block_num As Long
> Dim hgt As Single
>
> 'buka file xls sebagai template
> 'pastikan di drive c: ada direktori FileXLS
> 'pastikan ada file xls dengan nama file1.xls
> 'ukuran kertas file file1.xls dapat diset sendiri dengan microsoft excel.
> 'semua format dan fungsi excel dapat dibuat sendiri (tabel, huruf bold,
>miring, dll)
> 'pada koding hanya mengisi text saja.
>
>
> 'untuk membuat objek excel
> 'pastikan referensi dll Microsoft excel 11.0 Objek Library dicentang
>(engine excel 2003), tergantung excel yang terinsatal di komputer anda
> '
> Set W = CreateObject( "excel.Applicati on")
> W.Visible = False
>
> 'buka file yang ada didirektoriC: \FileXlS\ File1.xls
> W.Workbooks. Open FileName:="C: \FileXlS\ File1.xls"
>
> 'isi data yang dikenendaki
> 'isi data baris 1 kolom 2
> W.Cells(1, 2).Formula = "Testing data"
>
> 'isi data baris 2 kolom 3
> W.Cells(2, 2).Formula = "data 1"
>
>
> 'mencetak file1.xls langsung keprinter, hilangkan tanda ' , jangan lupa
>member tanda ' pada bagian membuka dengan microsoft excel
>' W.Save
>' W.ActivePrinter = "nama printer komputer"
>' W.ActiveWindow. SelectedSheets. PrintOut Copies:=1, ActivePrinter: = _
>' "nama printer komputer", Collate:=True
>' W.Workbooks. Close
>
> 'membuka buka dgn excel, jika tidak di print
> W.Visible = True
>
>End Sub
>
>
>
>j
> Semoga membantu: =(oVo)=
>============ ========
>BaceInside Publisher
>Copyright @2009
>Not for reproduced, republished.
>Thank You
>============ ========
>
>
>_
>
>
