Visual Basic - Cambiar nombre de hoja

Life is soft - evento anual de software empresarial
   
Vista:

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:

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 Then
  Response = 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder