This Text file is old! In a ��Museum, an unsorted archive of (user-)pages. (Saved from Geocities in Oct-2009. The archival story: oocities.org)
--------------------------------------- (To 🚫report any bad content: archivehelp @ gmail.com)

' 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