--- In [email protected], "Sheri" <sheri...@...> wrote:
>
> --- In [email protected], "entropyreduction"
> <alancampbelllists+yahoo@> wrote:
> >
> > > > > ExcelApp.GetSaveAsFileName("TestVariants.xls", "Excel Files
> > > > > (*.xls),*.xls", 1, "Hello")
> >
> > Ok, try comPlugin0.72_091221_no_guesses.zip. Above works okay on
> > my system. Yours?
>
> Yes, but this version breaks sub-objects again.
problem is still Variants. See below. Also, this version locks up Powerpro
debug window. Best test version for .72 was the 12-17 (the version prior to
first "no_guess").
> Your Excel demo script doesn't work but maybe this would be
> faster for testing. Worked fine in version dated 12/17.
>
> local appRef=com.create_object("Excel.Application")
> appRef.visible=1
> if (appRef.Workbooks.Count < 1)
> appRef.Workbooks.Add
> appRef.ActiveSheet.Name="TestSheet"
> appRef.Worksheets("TestSheet").Activate
> for(local local i=1; i<21; i++)
> appRef.ActiveSheet.Cells(i, 2).Value="Number "++ i
> endfor
> appRef.visible=1
> win.debug(appRef.ActiveSheet.Cells(1,2).Value)
> ;win.debug(appRef.Worksheets("TestSheet").Cells(1,2).Value)
> win.show("=excel")
> appRef.Release
> com.unload
> quit
from:
appRef.ActiveSheet.Cells.get_object_description("fdnpt")
get property: VARIANT Item(IN VARIANT rowIndex, IN VARIANT columnIndex
(optional))
put property: HRESULT Item = VARIANTrowIndex, VARIANTcolumnIndex (optional),
VARIANT
following works if substituted into above script:
appRef.ActiveSheet.Cells.get_property_typed("Item", "lvlv", ;;+
i, 2).set_property_typed("Value", "sv","Number "++ i)
Regards,
Sheri
