Importar Datos excel
Publicado por PABLO (8 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
0