Hi,

I have written an Access form that went a command button is clicked, will open a link to an Excel workbook then append data into it and then close the link. The problem I have is that I cant get access to open up the workbook afterwards. I have checked the references and they are set correctly. I can open the workbook by minimising access then double clicking the file, but just cant get access to open it for me.

Any Ideas????

Why are you wanting to open an Excel spreadsheet via Access after you update it?

Just curious.

John

why not just leave it open after you update it, since you are trying to open it again after that anyways? Or perhaps create a new instance of excel instead of updating???

I dont actually open the spreadsheet, just link to it to update the information automatically from information stored in a table. I need to preview the spreadsheet before saving it under a different name. I have no problems updating it, but I just cant get it to open from access although I can open it manually.

Have you tried using the shell command?
I read someone here was using the shell command to open documents, I also have some sample code somewhere that makes an api call but you should try goofing around with the shell command some, if that doesnt work I have an api call that i know works because Ive used it to open word documents...

this is where I found some code:

http://msdn2.microsoft.com/en-us/library/xe736fyk(VS.80).aspx

Public Function Shell( _
ByVal PathName As String, _
Optional ByVal Style As AppWinStyle = AppWinStyle.MinimizedFocus, _
Optional ByVal Wait As Boolean = False, _
Optional ByVal Timeout As Integer = -1 _
) As Integer

and


http://p2p.wrox.com/topic.asp?TOPIC_...rchTerms=shell


Private Sub cmdNorthwind_Click()
Dim dq As String
Dim strExe As String
Dim strMdb As String
Dim strRun As String
Dim dblReturnVal As Double

dq = """"

'Define var strExe; Miscosoft Access
strExe = "C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE"

'Define var strMdb; Project database location
strMdb = "D:\Daniel\Databases\Northwind.mdb"

'Define the entire statement to implement at Shell
strRun = dq & strExe & dq & " " & dq & strMdb & dq

'Run the code to open the project database
dblReturnVal = Shell(strRun, vbMaximizedFocus)

End Sub


if you have trouble with the shell command send me an email and ill send you the code for an api call todo the same thing that I know works

[email protected]