Microsoft Project - Problemas con macro. editcopy- Project 2013

   
Vista:

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 :)
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 EXCEL
Set ObjExcel = CreateObject("Excel.Application")
ObjExcel.Visible = True
'Crear un nuevo libro
Set 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Microsoft Project
- Cursos de Microsoft Project
información
Cursos y Temas de Microsoft Project
- Manual Microsoft Project 2000
- Curso de Microsoft Project 2000
- Curso de Microsoft Project 2000

Problemas con macro. editcopy- Project 2013

Y si nos compartes el archivo?

Capacitacion Certificada
http://capacitacioncertificada.com/
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Problemas con macro. editcopy- Project 2013

Publicado por Amoloinac (2 intervenciones) el 15/05/2014 18:14:44
Williams, el archivo es el texto que he puesto ahi, copias y pegas en un archivo de macro de project
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar