' Traspaso de datos desde una Tabla Access a una Hoja de Excel creándola al mismo tiempo.
Private Sub Comando1_Click()
Dim sExcelFileName As String
Dim sWorkSheetName As String
Dim sTableName As String
Dim cnn As ADODB.Connection
' Datos por defecto
sExcelFileName = "C:\Mis documentos\HojaExcel.xls"
sWorkSheetName = "WorkSheet1"
sTableName = "NombreTabla"
' Abre la base de datos
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Mis documentos\BaseDatos.mdb;"
' Crea una hoja de cálculo nueva mediante la instrucción SELECT...INTO
cnn.Execute "SELECT * INTO [Excel 8.0;DATABASE=" & sExcelFileName & "].[" & _
sWorkSheetName & "] FROM " & "[" & sTableName & "]"
End Sub
-------------------------------------------------------------------------------------------------
Páginas sobre Traspasos de datos a Excel desde Visual Basic:
http://es.geocities.com/softjaen/Articulos/Excel/ado_dao_excel.htm
http://es.geocities.com/softjaen/Articulos/Excel/ado_dao_excel.htm#Index72
http://support.microsoft.com/default.aspx?scid=kb;EN-US;247412
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)