PaneNext Problem

[Jeff]

When I run the following code it executes, but returns only the word
"Resource Name" in my excel spreadsheet.

As you can see from the commented code, I have tried all sorts of
things to get this to work. The "PaneNext" Command does not seem to be
working.

HELP!!!

JEff
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub TrasferTimescaleData()
Const intervalType As Integer = pjTimescaleWeeks
Const dataType As Integer = pjWork

'Link to Excel
Dim Xl As Excel.Application, XlSheet As Worksheet
Set Xl = CreateObject("Excel.Application")
Set XlSheet = Xl.Workbooks.Add.ActiveSheet

'Copy Left Table
'SelectRange 1, 2: SelectAll: EditCopy
'XlSheet.Paste XlSheet.Cells(2, 1)

'Transfer Table Headings
Dim i As Integer, Heading As String
For i = 1 To ActiveSelection.FieldNameList.Count
XlSheet.Cells(1, i) = ActiveSelection.FieldNameList(i)
Next

'Copy Time Scale Data
Dim TSValues As TimeScaleValues
Dim noColumns As Integer, startCol As Integer
ViewApply Name:="Resource &Usage"

'TimescaleEdit intervalType, intervalType
'DetailStylesRemoveAll
'DetailStylesAdd Item:=dataType
'Set TSValues =
ActiveProject.ProjectSummaryTask.TimeScaleData(ActiveProject.ProjectStart,
ActiveProject.ProjectFinish, , intervalType)
'noColumns = TSValues.Count
'PaneNext
SelectResourceColumn Column:="name"
OutlineHideSubTasks
'SelectColumn Column:=3
'ToggleAssignments
'SendKeys "^{HOME}"
TimescaleEdit MajorUnits:=2, MajorLabel:=9, Separator:=True,
MajorUseFY:=True, TierCount:=1
PaneNext
SelectTimescaleRange Row:=1, StartTime:="Fri 7/2/04", Width:=40,
Height:=1046917
'SendKeys "^{C}"
EditCopy
'EditCopy startCol
=XlSheet.Cells.SpecialCells(xlCellTypeLastCell).Column 1
'AppActivate ("Microsoft Excel")
'Xl.Workbooks.Add
'Application.ActivateMicrosoftApp (pjMicrosoftExcel)
'XlSheet.Paste XlSheet.Cells(2, startCol)



'Finally, Just a little formatting
XlSheet.Rows(1).Font.Bold = True
XlSheet.Range("A1",
XlSheet.Cells.SpecialCells(xlCellTypeLastCell).Address).EntireColumn.AutoFit
Xl.Visible = True
End Sub

 

[JackD]

I'd suggest that you throw most of that out.
Project is different from excel so this select and copy stuff does not work
very well.

I'd read the archives on using timescaledata:
http://groups.google.com/groups?sourceid=navclient&ie=UTF-8&q=timescaledata

You can see a couple examples of code which writes from Project to excel on
my site.
http://masamiki.com/project

You can use that as a starting point and add the timescaled data to it.