.
En caso que el libro no exista crea un libro nuevo y lo nombra «Libro de Ejemplo.xlsx»; luego verifica entre las hojas si existe la hoja «myhoja» en caso afirmativo la borra, para luego insertar una nueva hoja y nombrarla «myhoja», esto lo hace por si se ha corrido la macro eliminar los datos existentes.
El vídeo que sigue muestra una explicación más detallada y gráfica de la macro presentada, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como por ejemplo formulario que crea un listado de todas las hojas para poder luego seleccionarlas, buscar en listbox mientras escribes en textbox, ordenar hojas libro excel por su nombre, conectar Excel con Access y muchos ejemplos más.
if (payload.eventType == ‘subscribe’) {
// Add code to handle subscribe event.
} else if (payload.eventType == ‘unsubscribe’) {
// Add code to handle unsubscribe event.
}
if (window.console) { // for debugging only
window.console.log(‘YT event: ‘, payload);
}
}
Sub CreaLibroExcel()
Dim she As Worksheet
Dim f, b, ruta, path1 As String
Dim verexi As Object
Application.StatusBar = «Creando libro y finalizando…»
f = «Libro de Ejemplo.xlsx»
ruta = ActiveWorkbook.Path
path1 = ruta & «» & f
b = «myhoja»
Set verexi = CreateObject(«Scripting.FileSystemObject»)
If verexi.FileExists(path1) Then
Workbooks.Open Filename:=path1, UpdateLinks:=0
ActiveWorkbook.Sheets.Add Before:=Worksheets(1)
For Each she In Worksheets
If she.Name = b Then she.Delete
Next
ActiveSheet.Name = b
Else
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=path1
ActiveWorkbook.Sheets.Add Before:=Worksheets(1)
ActiveSheet.Name = b
End If
Application.StatusBar = Clear
End Sub
Otros post de utilidad:
- Recuperar password de hoja bloqueada
- Función BUSCARV
- Función BUSCARH
- Función SI
- Abre explorador de archivo de Windows e inserta foto
- Abre explorador de archivo de Windows
- Combobox suma datos repetidos
- Busca un dato en todas las hojas de excel
- Combobox incrustado en Excel
- Formulario para insertar datos en hoja de excel
- Formulario de alera y envío de mail
- Tutoriales sobre VBA
- Llenar combobox y buscar datos
- Mensaje de Alerta y envío de mail con Excel
- Combobox que lista hojas de excel y las selecciona
- Busca un dato en todas las hojas de excel
.
If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.
Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends