SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: hecman en Viernes 17 de Enero de 2003, 15:40

Título: Re: Como exportar tablas a excel en windows XP
Publicado por: hecman en Viernes 17 de Enero de 2003, 15:40

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

Título: Como exportar tablas a excel en windows XP
Publicado por: hjom en Miércoles 22 de Enero de 2003, 08:59

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

para office97 es EXEL8 y para 2000 es EXEL9.