05/05/2009, 01:37
|
| | | Fecha de Ingreso: diciembre-2008
Mensajes: 122
Antigüedad: 15 años, 5 meses Puntos: 0 | |
| Respuesta: Copiar datos de excel a excel
Set oXLApp = CreateObject("excel.application")
oXLApp.Visible = True
oXLApp.Workbooks.Open (listaMateriales)
oXLApp.ActiveWorkbook.ActiveSheet = oXLApp.ActiveWorkbook.ActiveSheet.Name
For iRow = 1 To 3
oXLApp.ActiveSheet.Columns("A:C").Copy
Next iRow
oXLApp.Sheets("Hoja2").Select ' se posiciona en la nueva hoja
oXLApp.Sheets("Hoja2").Columns("A:C").PasteSpecial
oXLApp.Cells().Select ' selecciona
oXLApp.ActiveSheet.Paste ' pega los datos
oXLApp.Application.CutCopyMode = False
Así estoy trabajando.
Gracias |