Private Sub Command30_Click()

Dim rst As DAO.Recordset
Dim db As DAO.Database
Dim PathFileName As String
rstFile = "Z:\\Server\Vehiculos.xlsx"
With DoCmd
Set rst = CurrentDb.OpenRecordset("SELECT miTabla.IdVehiculo FROM miTabla WHERE miTabla.Importar = -1;")

If rst.RecordCount = 0 Then Exit Sub
With rst

Dim i As Integer
Do While Not rst.EOF
    For i = 0 To rst.Fields.Count - 1
        'Debug.Print rst(i);
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "miTablaImportados", rstFile, True, i!A:M
    Next i
    rst.MoveNext
Loop

rst.Close
Set rst = Nothing
   
End With
    End With
End Sub