DoCmd Transferspreadsheet

[epetzen]

Als ik deze functie heb uitgevoerd staat m'n exel gevuld met de juiste data op de juiste plaats.

Is er een manier om vervolgens dit exel bestand direct te openen.

Alvast bedankt,

Peter

 

[sesam]

automation

Je kunt automation gebruiken, gebruik dan een object van de excel-applicatie die je vervolgens de opdracht geeft om het betreffende bestand te openen. Een voorbeeld:
Dim obj As Object, tFile as string
tFile="c:\voorbeeld.xls"
Set obj = CreateObject("Excel.Application")
obj.Workbooks.Open tFile
obj.Visible = -1

 

[sesam]

Open bestand met uitvoerend programma

Je kunt ook de volgende code proberen, die opent het opgegeven bestand met het gekoppelde programma:

Public Const ERROR_SUCCESS = 0&

Public Const IDC_APPSTARTING = 32650&
Public Const IDC_HAND = 32649&
Public Const IDC_ARROW = 32512&
Public Const IDC_CROSS = 32515&
Public Const IDC_IBEAM = 32513&
Public Const IDC_ICON = 32641&
Public Const IDC_NO = 32648&
Public Const IDC_SIZE = 32640&
Public Const IDC_SIZEALL = 32646&
Public Const IDC_SIZENESW = 32643&
Public Const IDC_SIZENS = 32645&
Public Const IDC_SIZENWSE = 32642&
Public Const IDC_SIZEWE = 32644&
Public Const IDC_UPARROW = 32516&
Public Const IDC_WAIT = 32514&
Public Const WIN_NORMAL = 1
Public Const WIN_MAX = 2
Public Const WIN_MIN = 3
Private Const ERROR_NO_ASSOC = 31&
Private Const ERROR_OUT_OF_MEM = 0&
Private Const ERROR_FILE_NOT_FOUND = 2&
Private Const ERROR_PATH_NOT_FOUND = 3&
Private Const ERROR_BAD_FORMAT = 11&
Private Declare Function apiShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Function fHandleFile(stFile As String, lShowHow As Long)
Dim lRet As Long, varTaskID As Variant
Dim stRet As String
'First try ShellExecute
lRet = apiShellExecute(hWndAccessApp, vbNullString, _
stFile, vbNullString, vbNullString, lShowHow)


If lRet > ERROR_SUCCESS Then
stRet = vbNullString
lRet = -1
Else
Select Case lRet
Case ERROR_NO_ASSOC:
'Try the OpenWith dialog
varTaskID = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL" & stFile, WIN_NORMAL)
lRet = (varTaskID <> 0)
Case ERROR_OUT_OF_MEM:
stRet = "Error: Out of Memory/Resources. Couldn't Execute!"
Case ERROR_FILE_NOT_FOUND:
stRet = "Error: File not found. Couldn't Execute!"
Case ERROR_PATH_NOT_FOUND:
stRet = "Error: Path not found. Couldn't Execute!"
Case ERROR_BAD_FORMAT:
stRet = "Error: Bad File Format. Couldn't Execute!"
Case Else:
End Select
End If
fHandleFile = lRet & IIf(stRet = "", vbNullString, ", " & stRet)
End Function

Zet de code in een module en Roep dan bijvoorbeeld aan fHandleFile("c:\voorbeeld.xls",WIN_NORMAL)