ERROR EN IMPORTACION

Que tal.


Tengo problemas con una macro, espero y me puedan ayudar.

En la macro importo un archivo que es definido por un control que llena los
archivos de cierto folder. Al escoger un archivo la macro importa la
informacion, la macro funciona muy bien, pero quiero agregarle un proceso
que si el archivo que quiero importar no tiene el nombre de la hoja (que
QUIERO importar) muestre un mensaje de error.
Agrego el codigo para ver si me pueden ayudar…

Con esa etiqueta solo obtengo el error”

RUN TIME ERROR ‘1004’:
The microsoft jet database engine could not find the object “Par list$”.
Make sure the object exist and that you spell its name and the path name
correctly



Sub cargaWO()

modeloc = UserForm2.ComboBox2.Value

Sheets.Add
ActiveSheet.Name = "Part list"
On Error GoTo errores ‘’’’’Agregue esta etiqueta para ir a llamar el
mensaje
With ActiveSheet.QueryTables.Add(Connection:=Array( _
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User
ID=Admin;Data Source=C:\Documents and Settings\emmanuel.ayala\My
Documents\MAC" _
, _
"ROS\KAIZEN\PART LIST\" & modeloc & ";Mode=Share Deny Write;Extended
Properties=""HDR=YES;"";Jet OLEDB:System database="""";Jet O" _
, _
"LEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet
OLEDB:Engine Type5;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global" _
, _
" Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet
OLEDB:New Database Password="""";Jet OLEDB:Create System Database=Fal" _
, _
"se;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on
Compact=False;Jet OLEDB:Compact Without Replica Repair=False;" _
, "Jet OLEDB:SFP=False"), Destination:=Range("A1"))
.CommandType = xlCmdTable
.CommandText = Array("'Part List$'")
.Name = modeloc
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceDataFile = _
"C:\Documents and Settings\emmanuel.ayala\My
Documents\MACROS\KAIZEN\PART LIST\" & modeloc & ""
On Error GoTo errores
.Refresh BackgroundQuery:=False
End With

Unload UserForm2
Range("a1").Value = modeloc
Worksheets("Part list").Range("A1").Replace _
What:=".xls", Replacement:="", _
SearchOrder:=xlByColumns, MatchCase:=False


Sheets("KIT").Activate
Exit Sub
errores:
MsgBox "La Hoja no tiene el formato apropiado"
Sheets("Part list").Delete
End Sub



Mil gracias