Red de conocimiento informático - Problemas con los teléfonos móviles - Después de conectarse a la base de datos de Access en VB6.0, ¿cómo escribir código para exportar la base de datos a Excel, Word o HTML?

Después de conectarse a la base de datos de Access en VB6.0, ¿cómo escribir código para exportar la base de datos a Excel, Word o HTML?

¿Privado?Sub?Command1_Click()

Dim?xlapp?As?Variant

Dim?xlBook?As?Variant

Dim ?xlSheet?As?Variant

Dim?sum?As?Long

Establecer?xlapp?=?CreateObject("excel.application")

¿Establecer? xlBook?=?xlapp.Workbooks.Open(App.Path?&?"\data\report.xlt")?'Abrir plantilla EXCEL

'Set?xlBook?=?xlapp.Workbooks.Add

Set?xlSheet?=?xlBook.worksheets(1)

xlapp.Visible?=?True

Adodc1.ConnectionString?=?cn.ConnectionString

Adodc1.RecordSource?=?"select?*?from?[Sheet1]?where?trial number='"?&?shiyanH?&?"'"

Adodc1.Refresh

Si?Adodc1.Recordset.RecordCount?>?0?Entonces

Adodc1.Recordset.MoveFirst

xlSheet.Cells(suma?+?1,?2 )?=?shiyanH

For?sum?=?0?To?Adodc1.Recordset.RecordCount?-?1

xlSheet.Cells(suma?+?3,?1 )?=?Adodc1.Recordset(1)

¿Para?j?=?2?A?21

Si?Adodc1.Recordset(j)?<>?""? Entonces

Si?Adodc1.Recordset(j)?=?"*********"?Entonces

xlSheet.Cells(sum?+?3,?j )?=?(Adodc1.Recordset(j))

Else

xlSheet.Cells(sum?+?3,?j)?=?Val(Adodc1.Recordset(j) ))

¿Fin?Si

Fin?Si

Adodc1.Recordset.MoveNext

Siguiente ?sum

Fin?Si

Fin?Sub

Sub?Main()

cn.ConnectionString?=?"Provider= Microsoft.Jet.OLEDB.4.0;Data?Source="?&?App.Path?&?"\data\tsdb.mdb;Persist?Security?Info=False"

frmStart.Show

End?Sub

Lo anterior es el código para leer la tabla de datos de Access e importarla a Excel.