MSAccess opening an excel file (*.xls)

[hockeyboi16]

How do i open a pre-existing excel file (*.xls) using VBA in microsoft Access?

When i try to use

dim workbook as Excel.Workbook

i am getting an error, so i therefore cannot use any of the code i have found on the web. Any suggestions?

Any help is much appreciated! Thanks in advance

--whit

 

[PHV]

Dim oWB As Object
Set oWB = GetObject("\path\to\file.xls")

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[hockeyboi16]

Hmm, once i do this, what do i do?

I appreciate you helping me out!

--whit

 

[PHV]

what do i do
You now have a valid Excel.Workbook object.
Examples:
oWB.Application.Visible = True
oWB.SaveAs "\path\to\newfile.xls"
...

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[hockeyboi16]

ahh, i see, thank you so much!

 

[hockeyboi16]

Okay, i have another question...

i did this, and the application.visible = true, and it opens up Excel. The only thing is, i'm doing this in a sub, and once i put the application to visible= true, it goes to "end sub" and excel is exited. How can i make this stay open so the user can edit the file in excel?

--whit

 

[PHV]

Sub yourProcedure()
Dim oXL As Object
Set oXL = CreateObject("Excel.Application")
oXL.Workbooks.Open "\path\to\file.xls"
oXL.Visible = True
Set XL = Nothing
End Sub

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[firefytr]

How about the FollowHyperlink method?

And if you are going to create an instance of Excel, you should probably check if one is open already (IMHO).

Regards,
Zack Barresse

Simplicity is the ultimate sophistication. What is a MS MVP? PODA
- Leonardo da Vinci