<u360632@stuttgart.de>De: Joachim Braig 
Objet: Re: In VBA, how to open a workbook
Date : jeudi 18 novembre 1999 10:03

Hi M.J.

very simple...

workbooks.open ("Workbook.xls")

if you want to test if your workbook is already open or not try this one...

Sub WB_Open()
dim MyBook As Workbook
dim Myname As String, MyPath As String
dim Win As Window
dim IsOpen As Boolean

    Myname = "Workbook.xls"
    MyPath = "C:\My documents\" 'or any other path

    for each Win In Windows
        if Win.Caption = Myname then
            Win.Activate
            IsOpen = true
            Exit for
        end if
    next Win
    if Not IsOpen then workbooks.Open (MyPath & Myname)
    set MyBook = activeworkbook
end Sub

hth
JB

Menglin Jin schrieb:

> Hi!
>
> how can I open a workbook in VBA module so that I can use something like
> workbooks("Workbook.xls").worksheets("Worksheet").range("A1")
>
> tried something like
> open "filename.xls" as #1
> but didn't work
>
> thanks a lot!
>
> M.J.