HOLA A TODOS!! TENGO UN GRAN PROBLEMA!! QUIERO EXPORTAR DE ACCESS A EXCEL, ESO YA LO TENGO PERO QUIERO HACERLO CON DELIMITADORES ..... LO QUE NECESITO QUE ME AYUDEN ES QUE CON EL CODIGO DE ABAJO YO EXPORTO Y ME EXPORTA LA CONSULTA PERO EN UNA TABLA ASI>
NOMBRE CURSO
JUAN PEREZ MATEMATICA
JUAN PEREZ INGLES
JUAN PEREZ CIENCIAS
JUAN PEREZ MATEMATICA
JUAN PEREZ FISICA
LUIS PAZ FISICA
LUIS PAZ MATEMATICA
LUIS PAZ INGLES
LUIS PAZ INGLES
Y LO QUE YO NECESITO ES QUE ME LO EXPORTE ASI>
NOMBRE CURSO
JUAN PEREZ CIENCIAS, FISICA, INGLES, MATEMATICA
LUIS PAZ FISICA, INGLES, MATEMATICA
SE PODRA????????
ASI ES COMO EXPORTO A EXCEL :
Código:
Set rst = CurrentDb.OpenRecordset(strsql, dbOpenDynaset)
If Not (rst.EOF And rst.BOF) Then
hoja.Range("A2").CopyfromrecordSet rst
Dim y As Integer
Dim iNumCols As Integer
iNumCols = rst.Fields.Count
For y = 1 To iNumCols
hoja.Cells(1, y).Value = rst.Fields(y - 1).Name
Next
With hoja.Range("A1").Resize(1, iNumCols)
.Font.Bold = True
.EntireColumn.AutoFit
.Columns("A:Z").AutoFit
.Interior.ColorIndex = 37
End With
End If
ESPERO QUE ME PUEDAN AYUDAR