Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 542
Default Bypass Workbook_Open event when opening Another WB

Hi, this is what i have so far. I'm trying to open another workbook (oWB) and
read data from multiple sheets, the Populate fields in thisworkbook and close
oWB. oWB will sometimes be opened as read only because it is on a network.
And in the open code of oWB there is a read only check that gives me an
error. I need to open the workbook so the automatic "Open" event doesnt fire
(in oWB) how do i do this?. Thanks for any help!

MyPath = Application.GetOpenFilename(fileFilter:="Microsoft Excel Files
(*.xls), *.xls", Title:="Select File to Open...")
Set oXL = New Excel.Application
Set oWB = oXL.Workbooks.Open(Filename:=MyPath)

Also, will this keep oWB invisible? id like to keep it from poping up on the
screen.
and is it necessary for me to create a new application oXL? I took this from
another program i had that was written in VB from a word application so this
is why i am asking. thanks again!


  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 7,247
Default Bypass Workbook_Open event when opening Another WB


You don't need to create a new instance of Excel. Just use
EnableEvents to turn off events when opening the workbook.
E.g.,

Application.EnableEvents = False
Set oWB = Application.Workbooks.Open(MyPath)
Application.EnableEvents = True

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)




On Wed, 8 Apr 2009 10:14:01 -0700, James
wrote:

Hi, this is what i have so far. I'm trying to open another workbook (oWB) and
read data from multiple sheets, the Populate fields in thisworkbook and close
oWB. oWB will sometimes be opened as read only because it is on a network.
And in the open code of oWB there is a read only check that gives me an
error. I need to open the workbook so the automatic "Open" event doesnt fire
(in oWB) how do i do this?. Thanks for any help!

MyPath = Application.GetOpenFilename(fileFilter:="Microsoft Excel Files
(*.xls), *.xls", Title:="Select File to Open...")
Set oXL = New Excel.Application
Set oWB = oXL.Workbooks.Open(Filename:=MyPath)

Also, will this keep oWB invisible? id like to keep it from poping up on the
screen.
and is it necessary for me to create a new application oXL? I took this from
another program i had that was written in VB from a word application so this
is why i am asking. thanks again!

  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 3,355
Default Bypass Workbook_Open event when opening Another WB

Chip, I've recently had to change the AutomationSecurity setting to low
before opening workbooks with macros as I'm being asked to enable the macros
when I open them. This change came when I was using Office 2003 when a patch
was pushed.

"Chip Pearson" wrote:


You don't need to create a new instance of Excel. Just use
EnableEvents to turn off events when opening the workbook.
E.g.,

Application.EnableEvents = False
Set oWB = Application.Workbooks.Open(MyPath)
Application.EnableEvents = True

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)




On Wed, 8 Apr 2009 10:14:01 -0700, James
wrote:

Hi, this is what i have so far. I'm trying to open another workbook (oWB) and
read data from multiple sheets, the Populate fields in thisworkbook and close
oWB. oWB will sometimes be opened as read only because it is on a network.
And in the open code of oWB there is a read only check that gives me an
error. I need to open the workbook so the automatic "Open" event doesnt fire
(in oWB) how do i do this?. Thanks for any help!

MyPath = Application.GetOpenFilename(fileFilter:="Microsoft Excel Files
(*.xls), *.xls", Title:="Select File to Open...")
Set oXL = New Excel.Application
Set oWB = oXL.Workbooks.Open(Filename:=MyPath)

Also, will this keep oWB invisible? id like to keep it from poping up on the
screen.
and is it necessary for me to create a new application oXL? I took this from
another program i had that was written in VB from a word application so this
is why i am asking. thanks again!


Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Bypass worksheet_change event Dr.Schwartz Excel Programming 3 May 27th 05 02:20 PM
Bypass Workbook_Open when opening a workbook with VBA Paul Excel Programming 2 February 14th 05 07:37 AM
Workbook_open Event Bruce Maston Excel Programming 6 April 6th 04 01:19 AM
WorkBook_Open Event Squid[_3_] Excel Programming 1 February 8th 04 02:45 AM
OnTime event not firing in Workbook_Open event procedure GingerTommy Excel Programming 0 September 24th 03 03:18 PM


All times are GMT +1. The time now is 12:12 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"