open work books

[edwardfraser]

Hi there is there a simple script I can use to open a work book?

This is crucial for me in the development of my macro

I am trying to build on my script so can use it to open workbooks even on a network envirmoment.

The current script I have is as follows:

Dim Myfile As String
Myfile = Application.GetOpenFilename()
Workbooks.open (Myfilename)



I dont think goes far enough.


I want to also have a error function built in for if the target file is open already or cant be found it the target location.

Thanks heaps

 

[Ruddles]

I'll start you off. If you intend to reference your newly-opened workbook, you'll have to declare a suitable object to use to reference it. So for example:-

Dim Myfile As String
Dim MyWorkbook As Excel.Workbook
Dim MyWorksheet As Excel.Worksheet
'
 Myfile = Application.GetOpenFilename()
 Set MyWorkbook = Workbooks.Open(Myfile)
' 
 Set MyWorksheet = MyWorkbook.Sheets(1)
' 
'  now[COLOR=#008000] use MyWorksheet to access the data[/COLOR]
' 
 MsgBox "Cell A1 contains " & MyWorksheet.Range("A1")

BTW, you declared Myfile but used Myfilename in your code. That wouldn't have helped.