Aug 22
En este truco eliminaremos una columna de un documento de Excel a través de Automatización.
#Define xlShiftDown -4121
#Define xlShiftToLeft -4159
#Define xlShiftToRight -4161
#Define xlShiftUp -4162
oExcel = Createobject("Excel.Application")
oExcel.Visible= .T.
oBook = oExcel.WorkBooks.Add
oExcel.Cells(1,1).Value= "A"
oExcel.Cells(1,2).Value=
"B"
oExcel.Cells(1,3).Value= "C"
oExcel.Cells(1,4).Value= "D"
oExcel.Cells(1,5).Value= "E"
oBook.ActiveSheet.Columns("C:C").Select
* oBook.ActiveSheet.Columns("C:AB").Select
oExcel.Selection.Delete(xlShiftToLeft)
oExcel.Quit()
oExcel = Null
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
