Visual Basic para Aplicaciones - Macro para abrir archivo-Error 1004

Life is soft - evento anual de software empresarial
   
Vista:

Macro para abrir archivo-Error 1004

Publicado por adrian (3 intervenciones) el 25/01/2016 15:04:38
Hola tengo un problema con una macro, sirve para abrir un archivo en una ruta ya establecida (me funciona un tiempo pero luego siempre tengo error), ya lo probe en diferentes maquinas y desde cero pero nada no se q pasa.....(La macro esta asignada a un boton)

El codigo es el siguiente:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub Ejecutar()
'
' Ejecutar Macro
'
 
'
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
        "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=D:\AgruparconmacroTerceraParte.xlsm;Mode=Share Deny Writ" _
        , _
        "e;Extended Properties=""HDR=YES;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLED" _
        , _
        "B:Engine Type=37;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=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Loca" _
        , _
        "le on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False;Jet " _
        , _
        "OLEDB:Bypass UserInfo Validation=False;Jet OLEDB:Limited DB Caching=False;Jet OLEDB:Bypass ChoiceField Validation=False" _
        ), Destination:=Range("$A$5")).QueryTable
        .CommandType = xlCmdTable
        .CommandText = Array("BD$")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceDataFile = "D:\AgruparconmacroTerceraParte.xlsm"
        .ListObject.DisplayName = "Tabla_AgruparconmacroTerceraParte"
        .Refresh BackgroundQuery:=False----->Aqui se produce el error
    End With
End Sub



El mensaje del error es:

Se ha producido un error '1004' en ejcucion:
Error definido por la aplicacion o el objeto
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder