Programación General > Visual Basic 6.0 e inferiores

 Re: Como exportar tablas a excel en windows XP

(1/1)

hecman:
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

hjom:
no importa la vercion del sistema operativo, el que importa es el de office.

para office97 es EXEL8 y para 2000 es EXEL9.

Navegación

[0] Índice de Mensajes