Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

411 - Copiar hojas en Excel desde vb

Simple ejemplo para realizar una copia de una hoja indicada, a una nueva

A la función CopiarHoja, se le debe indicar como parámetros :

El nombre del objeto sheets origen, es decir el nombre de la hoja que se va a copiar .
El segundo parámetro el nombre de la nueva hoja, que se agrega en este caso con el método Add del objeto sheets de vba.
Por último el path del archivo de Excel .

Nota: Si se pasa como parámetro en la hoja de destino, un nombre de una que ya existe , se visualiza un error mediante un mensaje, ya que como está puesto el ejemplo, solo es para copiar en una nueva hoja, no en una ya existente.

Indicar la referencia a Microsoft Excel Object Library

Código fuente en el formulario

Option Explicit ' NameHojaOrigen: La hoja que se va a copiar _ NameNuevaHoja : Nombre para la nueva _ PathLibro : Ruta del Xls '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Copiar_hoja(NameHojaOrigen As String, _ NameNuevaHoja As String, _ PathLibro As String) On Error GoTo Error_Sub ' crea el objeto Excel Dim ObjExcel As Object Set ObjExcel = CreateObject("Excel.Application") 'ObjExcel.Visible = True 'abre el libro ObjExcel.Workbooks.Open PathLibro With ObjExcel Dim SheetO As Object Dim SheetD As Object On Error Resume Next Set SheetO = .Sheets(NameHojaOrigen) Set SheetD = .Sheets(NameNuevaHoja) If SheetO Is Nothing Then MsgBox "Error. la hoja Origen indicada no existe", vbCritical End If If Not SheetD Is Nothing Then MsgBox "Error. la hoja Destino ya existe en el libro. " & _ "Indicar otro nombre para la nueva hoja", vbCritical End If If SheetD Is Nothing And Not SheetO Is Nothing Then On Error GoTo 0 Set SheetO = Nothing Set SheetD = Nothing Else Set SheetO = Nothing Set SheetD = Nothing ObjExcel.Quit Set ObjExcel = Nothing Exit Sub End If .Sheets.Add ' agrega con Add una nueva hoja en el libro .ActiveSheet.Select ' La selecciona .ActiveSheet.Name = NameNuevaHoja ' le cambia el nombre .Sheets(NameHojaOrigen).Select ' Se posiciona en la hoja de origen .Cells.Select ' selecciona todas las celdas .Selection.Copy ' copia el contenido .Sheets(NameNuevaHoja).Select ' se posiciona en la nueva hoja .Cells.Select ' selecciona .ActiveSheet.Paste ' pega los datos .Application.CutCopyMode = False .ActiveWorkbook.Save ' graba los cambios en el libro End With ' descarga la referencia y cierra el Excel ObjExcel.Quit Set ObjExcel = Nothing MsgBox "Ok", vbInformation Exit Sub Error_Sub: MsgBox Err.Description On Error Resume Next Set ObjExcel = Nothing Err.Clear End Sub Private Sub Form_Load() Call Copiar_hoja("Informe", "Copia De Informe", "c:\Libro1.xls") End Sub

Recursos Visual basic 6.0 - Enlaces relacionados :

Buscar en Recursos vb