coba ini mas jeff,
sapa tau bantu
yang ini di declare dulu :
Dim objapp As Excel.Application
Dim objbook As Excel.Workbook
Dim objsheet1 As Excel.Worksheet
yang ini dicommand button:
SQL = "select * from AM_beliapp where bla..bla.. "'"
Set RST = OBJ.Execute(SQL)
Set objapp = New Excel.Application
Set objbook = objapp.Workbooks.Add
Set objsheet1 = objapp.Worksheets.Add
objsheet1.Name = "terima" --> buat namain workbooknya
objsheet1.Columns.AutoFit
For i = 0 To RST.Fields.Count - 1 Step 1
objsheet1.Cells(1, i + 1).Value = RST.Fields(i).Name
Next i
objsheet1.Range("A2").CopyFromRecordset RST
udah mas jeff
kalo ada yang lain guys?
----- Original Message ----
From: jeffrey_ananta <[EMAIL PROTECTED]>
To: [email protected]
Sent: Friday, June 15, 2007 3:02:21 PM
Subject: [Programmer-VB] transfer ke excell
aku mau share juga de..sekalian minta tolong..ni ada logic koding
yang tak buat, untuk transfer ke excell :
'reference microsoft excel library nya di aktifin dulu
Set EXAP = CreateObject( "Excel.Applicati on")
Set eX_book = EXAP.Workbooks. Add
Dim i, j
'buat judul di excell
'ada 9 field
EXAP.Cells(1, 1) = "No KW"
EXAP.Cells(1, 2) = "Tgl KW"
EXAP.Cells(1, 3) = "Customer"
EXAP.Cells(1, 4) = "No SJ"
EXAP.Cells(1, 5) = "Deskripsi"
EXAP.Cells(1, 6) = "Jumlah"
EXAP.Cells(1, 7) = "Harga"
EXAP.Cells(1, 8) = "Sub Total"
EXAP.Cells(1, 9) = "No Kontrak"
rs.movefirst
For i = 2 To Val(rs.count) + 1
For j = 1 To 9
EXAP.Cells(i, j) = rs(j - 1)
Next j
rs.movenext
Next i
EXAP.Visible = True
kurang lebih gt.. nah disini banyak kelemahannya. .
fieldnyat statis ga flexksibel.. ada ide lain ga..
saya terinspirasi dengan tools importnya di access.. ada yang bisa
bantu?
<!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a {
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc {
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o {font-size:0;}
.MsoNormal {
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq {margin:4;}
-->
____________________________________________________________________________________
Luggage? GPS? Comic books?
Check out fitting gifts for grads at Yahoo! Search
http://search.yahoo.com/search?fr=oni_on_mail&p=graduation+gifts&cs=bz
