Excel - Importar Datos excel

   
Vista:

Importar Datos excel

Publicado por PABLO MERCA950@HOTMAIL.COM (6 intervenciones) el 04/08/2015 00:59:19
hola buenas tardes realice una macro con el grabador para ver si podía importar los archivos pero resulta que estos tienen fecha y se importan según la fecha correspondiente del archivo *.txt que yo deje denominada en la ruta bueno en este caso es el dia 19 de julio, quisiera saber cómo puedo hacer para que me importe el archivo correspondiente a la fecha que tenga en la hoja de mi libro de mi libro excel sin estar cambiando el nombre del archivo bueno le dejo la macro, desde ya muchas gracias

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
38
39
40
Sub Botón3_AlHacerClic()
'
' Botón3_AlHacerClic Macro
' Macro grabada el 19/07/2015 por PABLO
'
 
    Application.ScreenUpdating = False
    Sheets("CNT").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\WorkContadores\EXPORT\BKP\dropMeters_2015-07-19.TXT" _
        , Destination:=Range("A8"))
        .Name = "dropMeters_2"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
        1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Sheets("CNV_CNT").Select
    Range("K1").Select
End Sub
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

Importar Datos excel

Publicado por Rafael (38 intervenciones) el 04/08/2015 13:42:00
Espero entender que lo que quieres es que cuando se ejecute la macro busque los datos del dia del sistema (vaya la fecha de tu ordenador).

para eso puedes modificar la siguiente linea:
1
"TEXT;C:\WorkContadores\EXPORT\BKP\dropMeters_2015-07-19.TXT" _

por esta otra:
1
"TEXT;C:\WorkContadores\EXPORT\BKP\dropMeters_" & Format(Date, "yyyy-mm-dd") & ".TXT" _

Nos cuentas si es lo que buscabas???
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Importar Datos excel

Publicado por PABLO (6 intervenciones) el 04/08/2015 22:32:20
Me tira error en la línea 36 código. Creo haberme expresado mal ya que la planilla trabaja con la fecha que tiene la planilla no la del sistema. Por eso es que necesito que de la carpeta bkp donde se alojan el archivo dropmeter me importe el que corresponde a la fecha de la planilla. Ya que en la carpeta bkp se alojan los archivos de todo el mes día por día. Muchas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Importar Datos excel

Publicado por PABLO (6 intervenciones) el 04/08/2015 22:52:11
perdon vote mal culpa del touch del celular
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar