Forums Últimos mensajes - Powered by IBM
 

Nombres de hojas automaticos

15/05/2008 - 22:07 por Silvia Gutierrez | Informe spam
Buenas tardes a todos, les queria lanzar la sigueinte pregunta, tengo un
fichero txt con 20 nombres, me gustaria :
a) que al abrir un libro nuevo se creara veinte hojas y qe cuyos nombres
fuesen los del txt.

b) que desde A1 a S1, apareciera los nombres de esas hojas.


No se si la parte a) se puede hacer de alguna forma automatica, les dejo el
formato de txt que tengo
nombre1
nombre2
nombre3
etc

Muchas gracias por adelantado
 

Leer las respuestas

#1 Héctor Miguel
16/05/2008 - 04:31 | Informe spam
hola, Silvia !

... tengo un fichero txt con 20 nombres, me gustaria:
a) que al abrir un libro nuevo se creara veinte hojas y qe cuyos nombres fuesen los del txt.
b) que desde A1 a S1, apareciera los nombres de esas hojas.
No se si la parte a) se puede hacer de alguna forma automatica, les dejo el formato de txt que tengo
nombre1
nombre2
nombre3
etc



- ten preparado un libro de excel (p.e. con solo una hoja)
- copia/pega las siguientes lineas en un modulo de codigo estandar
- modifica la ruta correcta a donde guardas tu fichero *.txt
- corre la macro (estando activa la hoja 1) y...

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Sub Crear_hojas()
Dim n As Byte, h As Byte
Application.ScreenUpdating = False
With ActiveSheet
Workbooks.OpenText _
"c:\documents and settings\<usuario>\mis documentosombres.txt"
n = Range([a1], [a65536].End(xlUp)).Rows.Count
.[a1].Resize(, n).Value = _
Application.Transpose(Range([a1], [a65536].End(xlUp)).Value)
ActiveWorkbook.Close False
For h = 1 To n
Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = .Cells(1, h)
Next
.Select
Cells.EntireColumn.AutoFit
End With
End Sub

Preguntas similares