Problemas con macro. editcopy- Project 2013
Publicado por Amolinac (2 intervenciones) el 18/12/2013 14:17:30
Estimados necesito ayuda
Me cambié hace poco de P2010 a 2013 y tenía una macro para pasar datos de la vista Uso de tareas a Excel, la macro crea una hoja de Excel y copia estos datos, me produce problemas al usarla en Project 2013, más exactamente me dice que hay problemas con el comando Editcopy. En otra oportunidad no da este error, y luego de un buen momento crea la planilla Excel pero no me copia datos a la planilla...
Gracias
pego acá la macro problematica :)
Me cambié hace poco de P2010 a 2013 y tenía una macro para pasar datos de la vista Uso de tareas a Excel, la macro crea una hoja de Excel y copia estos datos, me produce problemas al usarla en Project 2013, más exactamente me dice que hay problemas con el comando Editcopy. En otra oportunidad no da este error, y luego de un buen momento crea la planilla Excel pero no me copia datos a la planilla...
Gracias
pego acá la macro problematica :)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub MacroCurvasS_EASYCOM()
' Macro DatosExcelCurvasS' Macro grabada el dom 15-07-12 por AntonioMolina.
ViewApply Name:="Uso de tareas"
PaneNext
SelectTimescaleRange Row:=2, StartTime:="lun 02-01-84", Width:=24106, Height:=1
DetailStylesRemove Item:=pjCumulativeWork
DetailStylesRemove Item:=pjAllAssignmentRows
DetailStylesRemove Item:=pjCumulativeCost
DetailStylesAdd Item:=pjCumPctComplete, Position:=1
DetailStylesAdd Item:=pjPctComplete, Position:=2
DetailStylesAdd Position:=3
DetailStylesAdd Item:=pjBaselineWork, Position:=4
DetailStylesAdd Item:=pjActualWork, Position:=5
DetailStylesAdd Item:=pjCost, Position:=6
DetailStylesAdd Item:=pjBaselineCost, Position:=7
DetailStylesAdd Item:=pjActualCost, Position:=8
SelectTimescaleRange Row:=0, StartTime:="lun 02-01-84", Width:=24106, Height:=8
EditCopy
Dim ObjExcel As Object
Dim Libro As Object
Dim Hoja As Object
Dim NombreHoja As String
Set Libro = Nothing'Crear el Objeto para abrir archivos EXCELSet ObjExcel = CreateObject("Excel.Application")
ObjExcel.Visible = True
'Crear un nuevo libroSet Libro = ObjExcel.Workbooks.Add
Set Hoja = Libro.Sheets(1)
Libro.Sheets(1).Select
Libro.Sheets(1).Name = "Hoja1"
With Hoja
.Cells(2, 3).Select
Libro.Sheets(1).Paste
.Cells(2, 3).Select
End With
End Sub
Valora esta pregunta
0