Cambiar de Hoja Seleccionada

hola, Cesar !

... en VB.NET 2003 y estoy manipulando una hoja de excel... agregando saltos de paginas
lo he podido hacer siempre ycuando sea en la hoja1, pero si me quiero pasar a la hoja2 no se como hacerlo.

(segun parece) en ningun lado le indicas que necesitas "avanzar" por las hojas que pudiera tener el libro (solo por la #1) -?-
no conozco de vb.net, pero (creo que) podrias probar con algo +/- como lo siguiente:
(siguiendo las lineas que expones de ejemplo de tu codigo)...

miExcel.Workbooks.Add(nArchivo)
For ContadorHojas As Integer = 1 To miExcel.Worksheets.Count
miExcel.Worksheets(ContadorHojas).Select()
For i As Int16 = 0 To IntContadorArreglo
With miExcel
.Rows(ArraySaltosPaginas(i)).Select()
.ActiveWindow.SelectedSheets.HPageBreaks.Add(Before:=miExcel.ActiveCell)
End With
Next i
Next ContadorHojas

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ el codigo expuesto __

El codigo que tengo es el siguiente:

miExcel.Workbooks.Add(nArchivo)
Dim ContadorHojas As Integer = 1
Hoja = miExcel.Worksheets(ContadorHojas)
For i As Int16 = 0 To IntContadorArreglo
With miExcel
.Rows(ArraySaltosPaginas(i)).select()

.ActiveWindow.SelectedSheets.HPageBreaks.Add(Before:=miExcel.ActiveCell)
End With
next i

Muchas gracias nuevamente Hector por tu ayuda, fijate que utilice el
siguiente comando y me funciono :
Hoja = miExcel.Worksheets(ContadorHojas)
Hoja.Activate()
De todas maneras voy a probar lo que me indicas
"miExcel.Worksheets(ContadorHojas).Select()"

Saludos,

"Héctor Miguel" escribió en el mensaje
news:%

hola, Cesar !

> ... en VB.NET 2003 y estoy manipulando una hoja de excel... agregando

saltos de paginas

> lo he podido hacer siempre ycuando sea en la hoja1, pero si me quiero

pasar a la hoja2 no se como hacerlo.

(segun parece) en ningun lado le indicas que necesitas "avanzar" por las

hojas que pudiera tener el libro (solo por la #1) -?-

no conozco de vb.net, pero (creo que) podrias probar con algo +/- como lo

siguiente:

(siguiendo las lineas que expones de ejemplo de tu codigo)...

miExcel.Workbooks.Add(nArchivo)
For ContadorHojas As Integer = 1 To miExcel.Worksheets.Count
miExcel.Worksheets(ContadorHojas).Select()
For i As Int16 = 0 To IntContadorArreglo
With miExcel
.Rows(ArraySaltosPaginas(i)).Select()

.ActiveWindow.SelectedSheets.HPageBreaks.Add(Before:=miExcel.ActiveCell)

End With
Next i
Next ContadorHojas

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ el codigo expuesto __
> El codigo que tengo es el siguiente:
>
> miExcel.Workbooks.Add(nArchivo)
> Dim ContadorHojas As Integer = 1
> Hoja = miExcel.Worksheets(ContadorHojas)
> For i As Int16 = 0 To IntContadorArreglo
> With miExcel
> .Rows(ArraySaltosPaginas(i)).select()
>
> .ActiveWindow.SelectedSheets.HPageBreaks.Add(Before:=miExcel.ActiveCell)
> End With
> next i