IMPORTAR DATOS
Publicado por PABLO (8 intervenciones) el 25/07/2015 19:51:53
HOLA BUENAS TARDES REALIZE UNA MACRO CON EL GRABADOR PARA VER SI PODIA IMPORTAR LOS ARCHIVOS PERO RESULTA QUE ESTOS TIENEN FECHA Y SE IMPORTAR SEGUN LA FECHA CORRESPONDIENTE QUE YO DEJE E DENOMINADA EN LA RUTA, QUISIERA SABER COMO PUEDO HACER PARA QUE ME IMPORTE EL ARCHIVO CORRESPONDIENTE A LA FECHA QUE TENGA EN LA HOJA DE MI LIBRO DE MI LIBRO EXCEL BUENO LE DEJO LA MACRO
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
0
