Macro para Exportar ListBox a un Nuevo Excel
Hola buen día,
Favor su apoyo.
Quisiera exportar los datos de un listbox hacia un nuevo libro Excel.
Nota: Al momento de presionar el Botón para exportar tiene que aparecer la ventana de Guardar Como para poder especificar ruta y nombre del Archivo.
De antemano muchas gracias por el apoyo.
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro para guardar el nuevo archivo con el nombre que le pongas en la ventana del explorador.
Private Sub CommandButton1_Click() 'Por.Dante Amor Set l1 = Workbooks.Add Set h1 = l1.ActiveSheet c = ListBox1.ColumnCount f = ListBox1.ListCount h1.Range(h1.Cells(1, 1), h1.Cells(f, c)) = ListBox1.List With Application.FileDialog(msoFileDialogSaveAs) .Title = "Exportar Archivo a Nuevo Excel" .AllowMultiSelect = False .FilterIndex = 1 If .Show Then march = .SelectedItems(1) h1.SaveAs Filename:=march, _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False End If End With MsgBox "Nuevo Libro Creado" Unload Me End Sub
Saludos.Dante Amor
Recuerda valorar la respuesta.
Hola Dante, gracias por la pronta respuesta.
Probé el código pero me lanza error en la siguiente línea:
h1.Range(h1.Cells(1, 1), h1.Cells(f, c)) = ListBox1.List
¿Y qué error te envía?
¿Tienes un listbox que se llama "ListBox1"?
Envíame tu archivo para revisar el error
