Project: Can't Run PROJXTAB.XLM Macro File
  
PSS ID Number: Q111892
Article last modified on 11-16-1994
 
3.00 3.00a
 
WINDOWS
 

--------------------------------------------------------------------
The information in this article applies to:
 
 - Microsoft Project for Windows, versions 3.0 and 3.0a
 - Microsoft Excel for Windows, versions 3.0a, 4.0, 4.0a, and 5.0
--------------------------------------------------------------------
 
SUMMARY
=======
 
When you run the Microsoft Excel PROJXTAB.XLM sample macro that ships with
Microsoft Project, you may receive an error and the macro will halt.
 
NOTE: The PROJXTAB.XLM macro is supplied as a sample only. Its intent is to
show, by example, how a Microsoft Excel macro can use DDE channels to
communicate with Microsoft Project.
 
The PROJXTAB.XLM macro, which creates a crosstab report, is intended to run
well on small projects only. You may encounter problems if you attempt to
run this macro with large projects, projects with long task or resource
names, or projects that span several years.
 
WORKAROUND
==========
 
Microsoft provides macro examples for illustration only, without warranty
either expressed or implied, including but not limited to the implied
warranties of merchantability and/or fitness for a particular purpose. This
macro is provided 'as is' and Microsoft does not guarantee that the
following code can be used in all situations. Microsoft does not support
modifications of the code to suit customer requirements for a particular
purpose.
 
The following changes should allow the macro to run successfully for many
projects (for both the Task By Resource and Resources By Task options).
 
   In this cell         Make the following change
   ----------------------------------------------
 
   B2:        MacroSheet="PROJXTAB.XLM"
 
   B22:       =TEXT.BOX("Task/Resource Cross Tab Report")
 
   B54:       =EXECUTE(DDEChannel,"Alerts .Show=[No]")
 
   B119:      =SET.NAME("ProjResIDs",REQUEST(DDEChannel,"2
               (*"&ListSep&"(ID"&LisSep&"Name))"))
 
   B120:      Rows=5
 
   B125:      =SET.NAME("Rows",Rows+1)
 
   B128:      =SET.NAME("Rows",Rows+1)
 
   B131:      =SET.NAME("Rows",Rows+1)
 
   B135:      =SET.NAME("Rows",Rows-1)
 
   B150:      =EXECUTE(DDEChannel,"EditGoto"&INDEX(ProjResIDs,count,1))
 
   B172:      =SET.NAME("ProjTaskIDs",REQUEST(DDEChannel,"T(*"&ListSep&"
               (ID"&ListSep&"Name))"))
 
   B197:      =EXECUTE(DDEChannel,"EditGoto "&INDEX(ProjTaskIDs,count,1))
 
   B204:      =EXECUTE(DDEChannel,"EditGoto "&INDEX(res_tasks,count2,2))
 
KBCategory: kbusage
KBSubcategory:
 
Additional reference words: 3.00 3.00a 4.00 4.00a 5.00
=============================================================================
Copyright Microsoft Corporation 1994.
