Hola, con el siguiente codigo podemos exportar una tabla a Excel en win98, alguien sabe como exportarla a excel pero en Win XP, este proceso me genera un error. ahí va el codigo
Private Sub CmdCrear_Click()
If Len(Trim(NomArch)) = 0 Then MsgBox "Escriba el nombre del archivo!": NomArch.SetFocus: Exit Sub
Dim strExcelFile As String, strWorksheet As String, strDB As String
Dim strTable As String, objDB As Database
strExcelFile = LblRuta & NomArch & ".xls"
strWorksheet = "WorkSheet1"
strDB = App.Path & "control.mdb"
strTable = ListTabla.List(ListTabla.ListIndex)
Set objDB = OpenDatabase(strDB)
If Dir(strExcelFile) <> "" Then Kill strExcelFile
objDB.Execute _
"SELECT * INTO [Excel 8.0;DATABASE=" & strExcelFile & _
"].[" & strWorksheet & "] FROM " & "[" & strTable & "]"
objDB.Close
Set objDB = Nothing
End Sub