Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
OLE Dispatch error
Message
From
20/09/2006 11:17:35
 
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Environment versions
Visual FoxPro:
VFP 7 SP1
OS:
Windows XP SP2
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01155551
Message ID:
01155566
Views:
18
>>It never rains but it pours. As you may have noticed from recent post, I'm pretty new to this Excel automation lark. However, I do have some code that's been working fine for me. I've built my exe and it works fine as well as from VFP -on MY m/c
>>
>>Now when my users invoke the exe and run this code:
>>
>>
>>EXPORT TO &lcFilePath TYPE XL5
>>loExcel = CREATEOBJECT([Excel.Application])
>>With loExcel
>>  .Workbooks.Open( lcFilePath)
>>  If not thisform.lCustom		&& If chose non-custom, formatted o/p (default)
>>    With .ActiveWindow
>>      .DisplayZeros	= .F.
>>      .Width		= 1124       && <---------------- THIS THE OFFENDING LINE
>>      .Height 	= 645
>>   EndWith
>>  With .ActiveSheet
>>    ...
>>
>>
>>my error routine reports:
>>
>>OLE dispatch error 1479 at line 30 of ...., line of code = .
>>
>>The actual line is:
>>
>> .Width = 1124
>>
>>but the routine says "."
>>
>>What gives here?????
>>
>>Of course Help tells me zip.
>>
>>I suspected that it might be because Excel was already open on their m/cs, so closed it, but no difference.
>>
>>'ppreciate it.
>
>Where did you set Excel visible? Try to add try/catch block to your code. Finally, don't use macro in the first line, but rather name expression.

Thanks, Naomi

I set visible = .T. very lst line before EndWith of "With loExcel"
I'm in VFP7 - no Try - Catch
Name expression - hadn't noticed.

Wilco

Terry
- Whoever said that women are the weaker sex never tried to wrest the bedclothes off one in the middle of the night
- Worry is the interest you pay, in advance, for a loan that you may never need to take out.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform