Private Sub cmdExportXLS_Click()
On Error GoTo HELL
CD1.CancelError = True
CD1.FileName = List1.Text
CD1.DefaultExt = "xls"
CD1.Filter = ""
CD1.Filter = "Microsoft Excel (*.xls)|*.xls|"
CD1.ShowSave
Cndb.Execute "select * into [Excel 8.0; Database=" & CD1.FileName &
"].NewTable1 from (" & Adodc1.RecordSource & ")"
Me.MousePointer = vbHourglass
Me.MousePointer = vbNormal
MsgBox "Completed!", vbInformation
cmdExportHide_Click
Exit Sub
HELL:
Me.MousePointer = vbNormal
MsgBox Err.Description, vbExclamation
Err.Clear
End Sub
kalo masih bermasalah coba hubungi lagi,
saya pake coding di atas sudah berhasil..
pastikan Anda menggunakan ADO utk koneksi dari VB ke Database.
On 2/5/08, jontampubolon <[EMAIL PROTECTED]> wrote:
> Saya sudah mencoba, tapi tidak berhasil. Nampaknya ada baris program
> yang kurang tepat. Kalau berkenan, dapatkah diberikan contoh yang
> sudah jadi (lengkap)!
> --- In [email protected], "Martin Zhang ±i¤p(c)ú"
> <[EMAIL PROTECTED]> wrote:
> >
> > biasa sy pake ini, mudah2an bermanfaat..
> > cndb.Execute "select * into [Excel 8.0; Database=" & app.path &
> > "\export.xls" & "].NewTable1 from (" & Adodc1.RecordSource & ")"
> >
> >
> >
> > 2008/1/23 Juned Syafruddin <[EMAIL PROTECTED]>:
> >
> > > Dear programmer
> > >
> > > saya mau nanya bagaimana hasil dari query yang ada di access di
> export ke
> > > excel dengan program VB
> > >
> > > terima kasih , semoga ada yang mau membantu
> > >
> > > juned
> > >
> > > ---------------------------------
> > > Never miss a thing. Make Yahoo your homepage.
> > >
> > > [Non-text portions of this message have been removed]
> > >
> > >
> > >
> >
> >
> >
> > --
> > ~orang awam~
> >
> >
> > [Non-text portions of this message have been removed]
> >
>
>
>
--
~orang awam~
