I was capable of opening an excel worksheet from my project but nothing appeared on the sheet, The fields and the recordsets could not bet seen, I used the following code:
Dim strExcelFile As String
Dim strWorksheet As String
Dim strDB As String
Dim strTable As String
Dim Conn As ADODB.Connection
Dim query As String
Set Conn = New ADODB.Connection
Dim certNo As Integer
Conn.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & "Fixed Asset Register.mdb" & ";"
Conn.Open
Dim xlobj As Excel.Application
Set xlobj = CreateObject("Excel.Application")
Dim xFile As String
xFile = txtFi2Name.Text
xlobj.Workbooks.Add
xlobj.ActiveWorkbook.SaveAs FileName:= _
"D:Documents and SettingsuserMy Documentsvb_project_AccessToExcel" + xFile
xlobj.DisplayAlerts = False
xlobj.Visible = True
Please Help me see the recordset on the sheet!
I'm still an infant programmer guyz av brainedstormed enough to deserve an aid by you proffesionals please
hoping to hear from you soon
- Add new comment
- 10 views