Access VBA to open xlsx file

CLCoop

New Member
Joined
May 30, 2018
Messages
38
Little help please I keep trying this code to open the STATECODE.xlsm file and I do have the Microsoft Excel 16.0 object library selected for tools. If it change the name of the file to any other file it seems to work to include other xlsm.
Option Compare Database

Function OpenExcelFromAccess()
Dim Myxl As Object

Set Myxl = CreateObject("Excel.Application")
With Myxl
.Application.Visible = True
.Workbooks.Open "H:\STATECODE.xlsm"

End With
End Function
 

Joe4

MrExcel MVP, Junior Admin
Joined
Aug 1, 2002
Messages
51,434
Office Version
365
Platform
Windows
Do you need to open the Excel file in VBA?
Whenever possible, I find it preferrable to link my Excel file to an Access Table object. No VBA required to do that, and any updates to the Excel file will be reflected in the Access table.
 

CLCoop

New Member
Joined
May 30, 2018
Messages
38
smart... I made something hard didn't I... overthinking coding never! Thanks for the rethink.
 

Joe4

MrExcel MVP, Junior Admin
Joined
Aug 1, 2002
Messages
51,434
Office Version
365
Platform
Windows
No worries!
Glad I was able to help.
 

Forum statistics

Threads
1,081,716
Messages
5,360,819
Members
400,600
Latest member
Stuckagainandagain

Some videos you may like

This Week's Hot Topics

  • VBA (Userform)
    Hi All, I just would like to know why my code isn't working. Here is my VBA code: [CODE=vba]Private Sub OKButton_Click() Dim i As Integer...
  • List box that changes fill color
    Hello, I have gone through so many pages trying to figure this out. I have a 2020 calendar that depending on the day needs to have a certain...
  • Remove duplicates and retain one. Cross-linked cases
    Hi all I ran out of google keywords to use and still couldn't find a reference how to achieve the results of a single count. It would be great if...
  • VBA Copy and Paste With Duplicates
    Hello All, I'm in need of some input. My VBA skills are sub-par at best. I've assembled this code from basic research and it works but is...
  • Macro
    is it possible for a macro to run if the active cell value is different to the value above it
  • IF DATE and TIME
    I currently use this to check if date has passed but i also need to set a time on it too. Is it possible? [CODE=vba]=IF(B:B>TODAY(),"Not...
Top