Seleccionar, copiar e insertar columnas en excel

Seleccionar, copiar e insertar columnas en excel

Postby quique » Tue Sep 09, 2008 7:35 am

Perdón por preguntar una de kinder para los que saben, pero no me funciona, tengo una hoja de excel y necesito seleccionar las columnas B a H para poder copiarlas e insertarlas en la posición de la columna I, considerando

Code: Select all  Expand view  RUN
         oExcel:workBooks:open( oConfig:cPath +  'archivos\nomina.xls' )
         oHoja := oExcel:get( "activeSheet" )

considerando el dicho de un desesperado va a todas he intentado (entre muchas otras convinaciones)
Code: Select all  Expand view  RUN
            oHoja:columns( "2:8" ):select()
            oHoja:columns( "B:H" ):select()
            oHoja:columns( "B1:H1" ):select()
            oHoja:range( "2:8" ):select()
            oHoja:range( "B:H" ):select()
            oHoja:range( "B1:H1" ):select()
            oExcel:columns( "2:8" ):select()
            oExcel:columns( "B:H" ):select()
            oExcel:columns( "B1:H1" ):select()


¿Alguien que lo haya hecho puede ayudarme?
Saludos
Quique
User avatar
quique
 
Posts: 408
Joined: Sun Aug 13, 2006 5:38 am

Postby pymsoft » Tue Sep 09, 2008 8:10 am

quique:


en VB serìa asi:


Code: Select all  Expand view  RUN
    Columns("B:H").Select
    Selection.Copy
    Range("I1").Select
    ActiveSheet.Paste




y en harbour serìa algo asi (no probado)



Code: Select all  Expand view  RUN
    oHoja:Columns("B:H").Select()
    oHoja:copy()
    oHoja:Range("I1").Select()
    oHoja:Paste()




espero te sirva
Pedro Gonzalez
User avatar
pymsoft
 
Posts: 383
Joined: Tue Oct 11, 2005 1:01 pm
Location: Savona - Italia

Postby quique » Tue Sep 09, 2008 3:18 pm

Gracias pymsoft, pero

no tengo visual basic, pero con xharbour no funcionó

oHoja:Columns("B:H").Select()

por alguna razón me selecciona de al A a la U, tal vez sea porque la hoja tiene esas columnas en blanco (se ve la cuadricula de excel) y el resto en gris (no se ve la cuadricula de excel), pero supongo que no debería de afectar, porque seleccionando e insertando renglones no tengo problema

oHoja:copy()

Este me copia toda la hoja, supongo que debería usar oExcel:selection:copy(), pero si la primera no funciona ya esta parte sale mal

oHoja:Range("I1").Select()

marca error "Error description: Error 1478812:RANGE/0 S_OK: SELECT"

oHoja:Paste()

Ya no llega aquí
Saludos
Quique
User avatar
quique
 
Posts: 408
Joined: Sun Aug 13, 2006 5:38 am

Postby quique » Tue Sep 09, 2008 5:15 pm

No pude instertar columnas, terminé seleccionando todo el rango de celdas e insertarlo como rango de celdas
Saludos
Quique
User avatar
quique
 
Posts: 408
Joined: Sun Aug 13, 2006 5:38 am

Postby pymsoft » Wed Sep 10, 2008 8:42 am

quique,


el VB es el de Excel (Alt-F11)


Pones grabar macro y te salva todo el codigo, el cual luego puedes verificar.
Lograste solucionar al final?


saludos
Pedro Gonzalez
User avatar
pymsoft
 
Posts: 383
Joined: Tue Oct 11, 2005 1:01 pm
Location: Savona - Italia

Postby quique » Wed Sep 10, 2008 4:55 pm

pymsoft

Si trabajé con los macros de excel, visual basic solamente lo trabajé cuando lo estudié, asi que practicamente estoy en cero, solo nociones, pero supongo que el problema está en el archivo de excel, porque todo mundo me decía que el rango se selecciona con "B:H" tanto las macros, tu, y demas personas que trataron de ayudarme, pero nunca funcionó correctamente.

Si logré solucionar el problema pero no de la manera deseada, en lugar de copiar e insertar columnas copié e inserte rango de celdas, con rango de celdas o de renglones no tuve ningún problema. De hecho el problema solamente lo tuve con la selección para copiar, porque despues de eso ajusto los tamaños de las celdas y ahí si me acepta el rango "B:H".
Saludos
Quique
User avatar
quique
 
Posts: 408
Joined: Sun Aug 13, 2006 5:38 am

Postby pymsoft » Thu Sep 11, 2008 12:21 pm

quique,


bueno, lo importante es resolver el problema :)

me parece raro que no puedas seleccionar las columnas... estaran ocultas?, hay otro rango seleccionado? que version de excel usas?


saludos
Pedro Gonzalez
User avatar
pymsoft
 
Posts: 383
Joined: Tue Oct 11, 2005 1:01 pm
Location: Savona - Italia

Postby quique » Thu Sep 11, 2008 2:29 pm

no están ocultas

no hay nada seleccionado

office 2007
Saludos
Quique
User avatar
quique
 
Posts: 408
Joined: Sun Aug 13, 2006 5:38 am

Postby pymsoft » Thu Sep 11, 2008 2:41 pm

quique,

yo uso el 2003, a mi me funciona.

sera un problema del 2007? o de la hoja?



saludos
Pedro Gonzalez
User avatar
pymsoft
 
Posts: 383
Joined: Tue Oct 11, 2005 1:01 pm
Location: Savona - Italia

Postby quique » Thu Sep 11, 2008 2:53 pm

creo que el problema ha de ser de la hoja, porque como comentaba arriba, las columnas que selecciona al indicar el rango son todas las que están en la parti visible de la hoja (las que muestran la cuadricula de excel) para serte sincero, practicamente no conozco excel porque no lo uso mas que para vaciar la información del programa sobre la hoja, los formatos me los da el cliente.
Saludos
Quique
User avatar
quique
 
Posts: 408
Joined: Sun Aug 13, 2006 5:38 am


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 63 guests