>Hi Michel
>
>I am working with a similar problem today, trying to automate the opendatasource() command to link with an excel file. (office 2003)
>
>I am using VFP 8.0 SP1.
>
>Were you able to come up with the correct syntax to make this operate correctly?
>
>I am struggling a bit with this one myself...
>
>
>
>I didn't see any replies to your message, sorry to reply with a question.
>
>
>>In a VFP procedure, I merge a Word document with an Excel data source.
>>
>>In my Word document, I put some merge fields in the header and the footer.
>>
>>It works fine with VFP7/8 and Office XP.
>>
>>With Office 2003, the merge fileds in the header and the footer do not merge.
>>
>>In the final document, they look like the merge fields expressions (i.e. «CompanyName» instead of the name in the database).
>>
>>However when I open the Word document and I merge it manually with the same Excel data source, it works fine.
>>
>>the command line to open the Excel data source I used is :
>>OpenDataSource("C:\FOLDER\EXCELSOURCE.XLS", 1, .F., .F., .T., .F., "", "", .F., "", "", "", "SELECT * FROM `EXCELSOURCE$`", "")
>>
>>Thanks in advance for your help.
>>
>>Stéphan Laporte
>>slaporte@analystik.ca
I was able to get my merge to work in office 2003 with an excel datasource. I do not know how to avoid the confirmation message about the datasource when the file is opened...
I used part of your code in my example - thanks...
Example of the code that works in office 2003:
oword=crea('word.application')
oword.visible=.t.
oword.documents.open('c:\ubs_vfp\source\mcustomer_notice.doc')
oword.APPLICATION.activedocument.mailmerge.OpenDataSource('c:\ubs_vfp\source\mcustomer_notice.xls',,,.T.,,,,,,,,"Entire Spreadsheet")
Thanks,
Stacy
Black Mountain Software, Inc.