Stopping "Link Worksheets?" message box (using automation)
 

Hi,

I am using Visual FoxPro 7 and Excel 2000. I am using GetObject
(code below) to copy a range of cells to a table. When the program is
running, the user is asked if he/she wants to link the worksheets.

How can I stop this and all message boxes. I can not find anything
about parameters, etc... in the Excel or VFP help files.

Thanks,

-paul w


*--
loWorkBook = GetObject('&lsheetloc')

With loWorkBook
.Sheets(2).Select
EndWith

With loWorkBook.ActiveSheet.Range("A2:A65536")
.NumberFormat = "Mm/Dd/Yyyy"
EndWith

loWorkBook.Close(.T.)

Append From '&lsheetloc' Type XL8 SHEET "PortfolioReturn"

pw
livingston,montana
please use "pw at williamsonenterprises dot com" for e-mail
thanks


----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000 Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =---

Stopping "Link Worksheets?" message box (using automation)
 

Paul,

I am mot sure but this might help:

Application.DisplayAlerts = False/True

John


Okay John! I will try and do the same in Visual FoxPro (I am
primarily developing in Access 97 these days so I should be able to
figure out the syntax conversion!).

Thanks!

-pw





-----Original Message-----
Hi,

I am using Visual FoxPro 7 and Excel 2000. I am using
GetObject
(code below) to copy a range of cells to a table. When
the program is
running, the user is asked if he/she wants to link the
worksheets.

How can I stop this and all message boxes. I can not
find anything
about parameters, etc... in the Excel or VFP help files.

Thanks,

-paul w


*--
loWorkBook = GetObject('&lsheetloc')

With loWorkBook
.Sheets(2).Select
EndWith

With loWorkBook.ActiveSheet.Range("A2:A65536")
.NumberFormat = "Mm/Dd/Yyyy"
EndWith

loWorkBook.Close(.T.)

Append From '&lsheetloc' Type XL8
SHEET "PortfolioReturn"

pw
livingston,montana
please use "pw at williamsonenterprises dot com" for e-
mail
thanks


----== Posted via Newsfeed.Com - Unlimited-Uncensored-
Secure Usenet News==----
http://www.newsfeed.com The #1 Newsgroup Service in the
World! 100,000 Newsgroups
---= 19 East/West-Coast Specialized Servers - Total
Privacy via Encryption =---
.



pw
livingston,montana
please use "pw at williamsonenterprises dot com" for e-mail
thanks


----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000 Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =---