Saludos tengo el siguiente problema coloque las siguientes lineas de codigo para importar campos de access a excel


Private Sub Command1_Click()

Dim db As DAO.Database, rs As DAO.Recordset

Set ApExcel = CreateObject("Excel.Application")

Set db = OpenDatabase(App.Path & "\recibo_97.mdb")
Set rs = db.OpenRecordset("inquilino")

ApExcel.Workbooks.Open App.Path & "\libro1.xls"
ApExcel.Visible = True


With ApExcel

.Workbooks.Open App.Path & "\libro1.xls"

.Sheets(1).Activate

.Selection.SpecialCells(xlCellTypeLastCell).Select
x = .ActiveCell.Row + 1
y = 1

.Cells(x, y).CopyFromRecordset rs
End With

ApExcel.Visible = True
Set ApExcel = Nothing
Screen.MousePointer = vbDefault

End Sub

Pero quiero saber como modificarlo para solamente seleccionar ciertos campos de access y pasarlo a excel y no todos los que estan en la tabla.
Muchas gracias

Hola,
Yo lo hago asi:


Public Sub ExportaraExcel(s As String)
Dim appExcel As Object
Dim rs As Recordset
Dim nFila As Integer
Dim primera
Dim ultima
Dim resp

's = "select * from temp"

Set rs = mibd.OpenRecordset(s, dbOpenSnapshot)

Set appExcel = CreateObject("Excel.application")

With appExcel

' Hacemos Visble Excel
'.Visible = True

' Agregamos un Libro Nuevo
.Workbooks.Add

' Agregos los titulos a nuestra columnas
nFila = 1

With .Worksheets(1).PageSetup
.LeftMargin = appExcel.InchesToPoints(0.78740157480315)
.RightMargin = appExcel.InchesToPoints(0.78740157480315)
.TopMargin = appExcel.InchesToPoints(0.78740157480315)
.BottomMargin = appExcel.InchesToPoints(0.78740157480315)
.CenterHorizontally = False
.CenterVertically = False
.Zoom = False
.CenterFooter = "&D"
.LeftFooter = "Movimientos"
.RightFooter = "Pag : &P de &N"
End With

.cells(nFila, 1) = "SEGUIMIENTO DE MOVIMIENTOS"
.Range("A1:G1").Select
With .selection
.Font.Size = 30
.Font.Bold = True
'.MergeCells = True 'Combinar filas
End With

nFila = nFila + 3
.cells(nFila, 1).ColumnWidth = 18
.cells(nFila, 1) = "Num.Expediente"
.cells(nFila, 2).ColumnWidth = 12
.cells(nFila, 2) = "Num.Plano"
.cells(nFila, 3).ColumnWidth = 38
.cells(nFila, 3) = "Municipio"
.cells(nFila, 4).ColumnWidth = 38
.cells(nFila, 4) = "Asignado A"
.cells(nFila, 5).ColumnWidth = 6
.cells(nFila, 5) = "Digit."
.cells(nFila, 6).ColumnWidth = 6
.cells(nFila, 6) = "Revi."
.cells(nFila, 7).ColumnWidth = 7
.cells(nFila, 7) = "Meca."

.Range("A4:G4").BORDERS.Color = RGB(0, 0, 0)
.Range("A4:G4").Select

With .selection
.Font.Size = 12
.Font.Bold = True
End With
nFila = nFila + 1

s = x(2)
.cells(nFila, 1) = x(0) & " / " & x(1) & " / " & s
s = x(3)
.cells(nFila, 2) = s
.cells(nFila, 3) = x(4)
.cells(nFila, 4) = x(5)
.cells(nFila, 5) = x(6)
.cells(nFila, 6) = x(7)
.cells(nFila, 7) = x(8)

.Range("A5:G5").BORDERS.Color = RGB(0, 0, 0)
.Range("A5:G5").Select
With .selection
.Font.Size = 12
End With

nFila = nFila + 3

.cells(nFila, 1) = "Operaciones"
.cells(nFila, 2) = "Fecha"
.cells(nFila, 3) = "Asignado A"
.cells(nFila, 4) = "Modificado Por"

.Range("A88").BORDERS.Color = RGB(0, 0, 0)
.Range("A88").Select
With .selection
.Font.Size = 12
.Font.Bold = True
End With

rs.MoveFirst
Do While Not rs.EOF
nFila = nFila + 1

.cells(nFila, 1) = rs("oper")
s = rs("fecha")
.cells(nFila, 2) = s
.cells(nFila, 3) = rs("asig")
.cells(nFila, 4) = rs("mod")

.Range("A" & nFila & "" & nFila).BORDERS.Color = RGB(0, 0, 0)
.Range("A" & nFila & "" & nFila).Select
With .selection
.Font.Size = 12
End With
rs.MoveNext
Loop
'Guardas la hoja actual

.ActiveWorkbook.SaveAs App.Path & "\Consulta.xls"

' Cerramos la Base de datos
rs.Close
.ActiveWorkbook.printout 1
.Quit
Set appExcel = Nothing
End With

End Sub

Espero que te sirva.

Hola, sólo tienes que sustituir es ta línea del código

Set rs = db.OpenRecordset("inquilino")

por esta otra

Set rs = db.OpenRecordset("Select Campo1, Campo3, Campo5 From inquilino")

Saludos

Gracias anibal y naisha problema resuelto