Cambiar nombre de hoja
Publicado por David (1 intervención) el 16/07/2015 15:23:08
Buenas tardes.
Soy nuevo en esto de las macros.
estoy usando una macro para importar archivos csv en un hoja Excel, el problema es que al final necesito 8 hojas de Excel y la macro que tengo, le tengo que especificar nombre de hoja, por lo que al final tengo 8 macros.
alguien me puede ayudar e indicarme que tengo que cambiar para que la macro solo me anexe los datos csv en la hoja activa.
pongo ejemplo:
Soy nuevo en esto de las macros.
estoy usando una macro para importar archivos csv en un hoja Excel, el problema es que al final necesito 8 hojas de Excel y la macro que tengo, le tengo que especificar nombre de hoja, por lo que al final tengo 8 macros.
alguien me puede ayudar e indicarme que tengo que cambiar para que la macro solo me anexe los datos csv en la hoja activa.
pongo ejemplo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub AnexarCSV50()
Dim t As Single
Dim LastRow As Long
LastRow = Range("B8").End(xlDown).Row + 1
strFile = Application.GetOpenFilename("CSV, *.csv")
If strFile = Empty ThenResponse = MsgBox("Ningún fichero seleccionado", _
vbOKOnly, "Error")
Exit Sub
Else
End If
With Sheets("Acom. 50m").QueryTables.Add(Connection:= _
"TEXT;" & strFile _
, Destination:=Sheets("Acom. 50m").Range("B" & LastRow))
.Name = "fichero"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False[/QUOTE]
Valora esta pregunta
0