Hola , haber si me pueden echar la mano... soy relativamente nueva, y eh estado dando mucha lata, jajaj

Lo que intento hacer aqui es copiar de pruebas4 una joja especifica llamda direcciones, a otro excel, pero el problema es que hay mas hojas en ese libro llamados alumnos, calificaciones y solo necesito la de direcciones, y ya quite puse y agrege y no me funciona, lo mas que logro es que me copie una hoja pero no la que necesito...

Espero me explique bien, saludos y gracias.


Dim oExcel As Excel.Application
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Worksheet

Dim oExcel2 As Excel.Application
Dim oBook2 As Excel.Workbook
Dim oSheet2 As Excel.Worksheet


oExcel = CreateObject("Excel.Application")
oExcel.Visible = False
oBook = oExcel.Workbooks.Open("c:\pruebas4.xls")

oExcel2 = CreateObject("Excel.Application")
oExcel2.Visible = False
oBook2 = oExcel2.Workbooks.Add
oSheet2 = oBook2.Sheets(1)


oSheet = oBook.ActiveSheet
oSheet2.Range("A1", "A3").Value = oSheet.Range("A1", "A3").Value
oSheet2.Range("B1", "B3").Value = oSheet.Range("C1", "C3").Value



oSheet = Nothing
oBook.Close(False)
oExcel.Quit()

oSheet2 = Nothing
oBook2.Close(False)
oExcel2.Quit()


MsgBox("Proceso Terminado con Exito")

__________________
El mundo esta en manos de aquellos que tienen el coraje de soñar y de correr el riesgo de vivir sus sueños.

Si quieres trabajar con un libro de cuatro hojas, pon esto:

Luego, para gestionar los datos de la hoja 3:

__________________
José María Movilla Cuadrado
______________________

Visual Basic Videos Programacion Foro Programacion
Tutoriales Programacion Trucos Programacion Codigos Programacion

Creo que no me explique bien, es un solo libro con varias hojas, y solo debo de copiar una hoja en un libro nuevo.... Como seleccionar esa hoja de ese libro.

Saludos

__________________
El mundo esta en manos de aquellos que tienen el coraje de soñar y de correr el riesgo de vivir sus sueños.

Claro, claro... He sido yo que he cometido el error absurdo de hablar de una hoja con 4 libros, cuando en realidad lo que he querido decir es, por supuesto, por lógica..., un libro con 4 hojas... He corregido el post.

Pero el código está bien. Pruébalo. Cuando pones Set oSheet(3) = oBook.Worksheets(3) estás seleccionando sólo la hoja 3.

__________________
José María Movilla Cuadrado
______________________

Visual Basic Videos Programacion Foro Programacion
Tutoriales Programacion Trucos Programacion Codigos Programacion