excel belgesi çalıştırmak

[akd]

Merhaba arkadaşlar,
userforma koyduğum bir buton ile,
"D:\AKD_MAASLAR\SON MAAŞLAR\GEN.İŞÇİ.M-2007.xls"
bu excel kitabını nasıl çalıştırabilirim

 

[gulsum1]

'bura modüle
Option Compare Database


Option Explicit

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

'***App Window Constants***
Public Const WIN_NORMAL = 1 'Open Normal
Public Const WIN_MAX = 2 'Open Maximized
Public Const WIN_MIN = 3 'Open Minimized

'***Error Codes***
Private Const ERROR_SUCCESS = 32&
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&


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
Function fShellExeTest()
'Test UNC ShellExecute
fShellExeTest = apiShellExecute(hWndAccessApp, vbNullString, _
"\\server23\home-cd\dashish\ute_ref.txt", _
vbNullString, vbNullString, 1)
End Function
Function fShellExe(strFileName As String, lngShow As Long) As Long
fShellExe = apiShellExecute(hWndAccessApp, vbNullString, strFileName, _
vbNullString, vbNullString, lngShow)
End Function

Sub testShellEXE()
Dim lngX As Long
lngX = fShellExe("http://www.microsoft.com", 1)
End Sub


Private Sub Komut23_Click()

Dim varRet

varRet = fHandleFile("D:\SU PARASI.xls", WIN_NORMAL)

End Sub

 

[akd]

Teşekkürler syn gulsum1.
Bu kodların hepsi bunun içinmi acaba,
Kod çalışıyor gerçi, önemli olanda o zaten.
İyi çalışmalar...

 

[gulsum1]

hepsi de&#287;il
Private Sub Komut23_Click()

Dim lngX As Long
lngX = fShellExe("http://www.microsoft.com", 1)

End Sub
bu k&#305;s&#305;mda belirli bir internet sayfas&#305; a&#231;ar