Open Excel spreadsheet with Access

[Roo06]

I am trying to open a spreadsheet from Acess based on a value in a textbox. I don't how to create the reference to the path and file name and was wondering if someone could help. I am new to VBA and think I am close but need a bit of assitance. Below is the code I created:

Dim oApp As Object
Dim Path1 As String
Dim Path2 As String
Dim Full_Path As String

Path1 = "\\Budget_Tracking\"
Path2 = Text1.Value
Full_Path = Path1 & Path2


Set oApp = CreateObject("Excel.Application")
oApp.Workbooks.Open Filename:=Full_Path
oApp.Visible = True
oApp.UserControl = True

[maxamis4]

Here is an example of one of my codes"

Remember to include the excel reference library.

hope this helps, this is per your request open an excel file from access

Private Sub btnExport_Click()
' Exports data from port order to excel spread sheet.
On Error Resume Next
 
    Dim objApp As Excel.Application
    Dim objBook As Excel.Workbook
    Dim objSheet As Excel.Worksheet
    Dim sSQL As String
    Dim Path As String
 
    Set db = CurrentDb()
 
     Set objBook = Workbooks.Add(Template:=CurrentProject.Path & Path1 & Path2)  'Your excel spreadsheet file goes here
                Set objApp = objBook.Parent
                    Set objSheet = objBook.Worksheets("YOUR SHEETNAME") 'Name of sheet you want to View
                       objBook.Windows(1).Visible = True
                       objApp.Visible = True
 
 
 
End Sub
 

I am trying to open a spreadsheet from Acess based on a value in a textbox. I don't how to create the reference to the path and file name and was wondering if someone could help. I am new to VBA and think I am close but need a bit of assitance. Below is the code I created:

Dim oApp As Object
Dim Path1 As String
Dim Path2 As String
Dim Full_Path As String

Path1 = "\\Budget_Tracking\"
Path2 = Text1.Value
Full_Path = Path1 & Path2


Set oApp = CreateObject("Excel.Application")
oApp.Workbooks.Open Filename:=Full_Path
oApp.Visible = True
oApp.UserControl = True

[Roo06]

Thanks for the reply. I am not sure that address my need to have the name of the workbook be dynamic.

My problem is I need to open a certain workbook based on the value of a textbox.

Ex: texbox1 = 54362

I would want to open a workbook name 54362.xls.

The path would always be the same but the workbook name would change depending on what record is being viewed.

[maxamis4]

I did post that for you. If you notice the path where the work book is being called, I used your variables path1 & Path2, where you set path2 = textbox1

Let me know if you need more assistance.

Thanks for the reply. I am not sure that address my need to have the name of the workbook be dynamic.

My problem is I need to open a certain workbook based on the value of a textbox.

Ex: texbox1 = 54362

I would want to open a workbook name 54362.xls.

The path would always be the same but the workbook name would change depending on what record is being viewed.

[Roo06]

Now I got it. I totally missed it until you pointed it out. Your solution worked like a charm. Thanks again for your help.

I did post that for you. If you notice the path where the work book is being called, I used your variables path1 & Path2, where you set path2 = textbox1

Let me know if you need more assistance.

[pks00]

If all u want to do is open a excel file, why not try this

application.followhyperlink Full_Path


Is there any reason why u are using excel automation. I understand you are new to this, Im just wondering whether u are going to do any edits to this excel file