Skalian nimbrung disini deh.. :D, saya juga pakai excel untuk reporting.
pertanyaan saya adalah ketika program yang saya buat trus saya package pakai
"Package & Deployment Wizard" bawaannya VB6, trus saya coba instal dikomputer
yang tidak install MS.Office, kok reportnya g mau jalan ya?keterangannya "Can't
Create Object..." padahal
referensi library excelnya (excel.exe)sudah saya sertakan..kira2 kenapa
ya?apakah memang harus install excelnya?.mohon pencerahannya.
thanks.
Regards,
Arief
--- On Sat, 11/28/09, Bace - Bace <bac...@yahoo.com> wrote:
From: Bace - Bace <bac...@yahoo.com>
Subject: Re: [Programmer-VB] report dengan microsof excel
To: Programmer-VB@yahoogroups.com
Date: Saturday, November 28, 2009, 12:45 AM
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 <dars...@posindonesi a.co.id>
To: Programmer-VB@ yahoogroups. com
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
============ ========
_
