Ver Mensaje Individual
  #1 (permalink)  
Antiguo 06/04/2015, 09:22
maurimono
 
Fecha de Ingreso: octubre-2004
Ubicación: Santiago de Chile
Mensajes: 504
Antigüedad: 19 años, 6 meses
Puntos: 0
Información Copiar hoja excel en excel con varias hojas

Hola. primero que nada comentar que soy programador con experiencia en otros lenguajes, pero por cosas de la vida me encuentro con este desafío que no he logrado superar. Se trata de lo siguiente, Tal como indico en el título, se trata de copiar una hoja excel en otro excel (que tiene varias ya creadas).
Al respecto he encontrado algunos ejemplos pero muy poca documentación. Lo mas cercano que tengo es el siguiente código:

Código HTML:
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim oExcel As Microsoft.Office.Interop.Excel.Application

        Dim Obook As Microsoft.Office.Interop.Excel.Workbook, _
            Obook2 As Microsoft.Office.Interop.Excel.Workbook, _
            Osheet As Microsoft.Office.Interop.Excel.Worksheet, _
            Osheet2 As Microsoft.Office.Interop.Excel.Worksheet

        oExcel = New Microsoft.Office.Interop.Excel.Application()
        oExcel.SheetsInNewWorkbook = 1
        oExcel.DisplayAlerts = False
        oExcel.Visible = False

        Obook = oExcel.Workbooks.Open("C:\MG\CreaExcel\prueba.xls")
        Osheet = Obook.Sheets("Sheet1")

        Obook2 = oExcel.Workbooks.Open("C:\MG\CreaExcel\p.xls")
        Osheet2 = Obook2.Sheets("January")

        Osheet2.Range("A1", "C6").Value = Osheet.Range("A1", "C6").Value

        Obook2.Save()

        Obook.Close()
        Obook2.Close()

        oExcel.Quit()

    End Sub
Saludos y un millón de gracias
Mauricio
__________________
Dios es mas grande que tu problema :-)