FIX: FOR EACH...ENDFOR Does Not Work with Object Variable (161199)

MORE INFORMATION

The example provided below assumes that the computer has Visual FoxPro 5.0 and Microsoft Excel for Windows 95 version 7.0a installed. The FOR EACH...ENDFOR command is not available in earlier versions of FoxPro.

The code opens Excel, adds two workbooks, and lists their names on the Visual FoxPro desktop.

Steps to Reproduce Problem

Place the following code in a program and run it:

PUBLIC otest
   otest=CREATE("excel.application")
   otest.Visible=1
   otest.workbooks.ADD
   otest.workbooks.ADD

   FOR EACH wb IN otest.WorkBooks  && this works fine
      ?  wb.Name
   ENDFOR

   myvar = otest.WorkBooks   && create an object variable
   FOR EACH wb IN myvar      && this fails with error message
      ? wb.Name
   ENDFOR
   otest.Quit
				

The first FOR EACH...ENDFOR loop places the names for the two workbooks on the Visual FoxPro desktop. The second loop, using the object variable, causes an error message.

NOTE: In the above example, if you choose to Ignore the first error message, a "Nesting Error" occurs and the second wb.Name is displayed on the screen.