in an
if-else-then statement, if the first is false, then Else is evaluated.
So, if File1 not open, it opens it.
In that case, Else is not evaluated!
simply use two separate if-then statements:
If Not WorkbookOpen("File1.xls") Then
Workbooks.Open Filename:="C:\File1.xls"
End If
If Not WorkbookOpen("File2.xls") Then
Workbooks.Open Filename:="C:\File2.xls"
End If
Paul
----- Original Message ----
> From: 0 1 <hhholme...@gmail.com>
> To: MS EXCEL AND VBA MACROS <excel-macros@googlegroups.com>
> Sent: Tue, December 7, 2010 10:58:33 AM
> Subject: $$Excel-Macros$$ Check if two files are open; if not, open them
>
> With File3.xls open, I'd like to run a macro that checks if File1.xls
> and File2.xls are open. If either or both are not open, then open
> them. The code below evaluates only the first file (File1.xls), and
> never proceeds to the next step (i.e., it never checks for File2.xls).
> Any idea what I need to change?
>
> Public Sub CheckSourceDocs()
>
> If Not WorkbookOpen("File1.xls") Then
> Workbooks.Open Filename:="C:\File1.xls"
> ElseIf Not WorkbookOpen("File2.xls") Then
> Workbooks.Open Filename:="C:\File2.xls"
> End If
>
> End Sub
>
> Function WorkbookOpen(WorkBookName As String) As Boolean
> ' returns TRUE if the workbook is open
> WorkbookOpen = False
> On Error GoTo WorkBookNotOpen
> If Len(Application.Workbooks(File1.xls).Name) > 0 Then
> WorkbookOpen = True
> ElseIf Len(Application.Workbooks(File2.xls).Name) > 0 Then
> WorkbookOpen = True
> Exit Function
> End If
> WorkBookNotOpen:
> End Function
>
> On a related note, File1 and File2 provide source data for File3
> (i.e., they are linked, as in Edit > Links ...). The only reason I
> need to open them is that this is the only way I can populate File3
> with the source data. If there's a way to populate File3 without even
> opening File1 and 2, I'm all ears.
>
> --
>----------------------------------------------------------------------------------
>-
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
>http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts
>
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts
