
26/03/2010, 02:26
|
 | Colaborador | | Fecha de Ingreso: diciembre-2003 Ubicación: Desde una destilería
Mensajes: 2.584
Antigüedad: 21 años, 2 meses Puntos: 144 | |
Respuesta: VBA Excel y crear hojas de calculo Prueba algo con esto. El expediente lo pasamos por un inputbox, aunque puedes tomarlo de cualquier otro sitio:
Código:
Sub Nuevahoja()
'si hay errores, que continúe
On Error Resume Next
'preguntamos cual es el expediente
hoja_de_calculo = InputBox("Introduce el expediente")
'eliminamos los caracteres raros
hoja_de_calculo = Replace(hoja_de_calculo, ":", "")
hoja_de_calculo = Replace(hoja_de_calculo, "/", "")
hoja_de_calculo = Replace(hoja_de_calculo, "\", "")
hoja_de_calculo = Replace(hoja_de_calculo, "?", "")
hoja_de_calculo = Replace(hoja_de_calculo, "*", "")
hoja_de_calculo = Replace(hoja_de_calculo, "[", "")
hoja_de_calculo = Replace(hoja_de_calculo, "]", "")
'seleccionamos la hoja
Sheets(hoja_de_calculo).Select
'si no existe esa hoja, la creamos
If ActiveSheet.Name <> hoja_de_calculo And hoja_de_calculo <> "" Then
Sheets.Add
ActiveSheet.Name = hoja_de_calculo
End If
End Sub
|