فراخوانی فایل اکسل

[arashkalami]

سلام
من می خوام وقتی دکمه مورد نظر کلیک شد، فایل اکسلی که در کنار برنامه قرار داره باز شه
با تشکر

[سید حمید حق پرست]

سلام علیکم
با تابع ShellExecute میتونید باز کنید :
Private Declare Function ShellExecute 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

Private Sub Command1_Click()
ShellExecute hWnd, vbNullString, App.Path & "\test.xls", 0, vbNullString, 1
End Sub
یا :
Private Declare Function ShellExecuteA Lib "shell32.dll" (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
Private Declare Function GetDesktopWindow Lib "user32.dll" () As Long
Private Const SW_SHOWNORMAL As Long = 1

Public Sub OpenFile(ByVal File As String, Optional ByVal Operation As String)
Dim Directory As String
Dim Pos As Long
Directory = Left(File, InStrRev(File, "\"))
ShellExecuteA GetDesktopWindow, IIf(Len(Operation) = 0, vbNullString, Operation), File, vbNullString, Directory, SW_SHOWNORMAL
End Sub

Private Sub Command1_Click()
OpenFile App.Path & "\test.xls"
End Sub
موفق باشید.

یا علی (ع)

[سید حمید حق پرست]

دستت درد نکنه

خواهش میکنم، همون استفاده از دکمه تشکر کافیه عزیز (قوانین انجمن هست)
راه دیگر هم استفاده از دستور shell هست :
Private Sub Command1_Click()
Dim Shell As Object
Set Shell = CreateObject("Shell.Application")
Shell.ShellExecute App.Path & "\test.xls"
End Sub
موفق باشید.

یا علی (ع)

[siyn71]

سلام دستور ساده ترش هم اینه
Shell App.Path & "\Excel.xls", vbNormalFocus

[سید حمید حق پرست]

سلام دستور ساده ترش هم اینه
Shell App.Path & "\Excel.xls", vbNormalFocus

:لبخندساده:چاکریم داش حمید:لبخند:
این دستور فقط فایلهای exe و bat باز میکنه عزیز (تست کنید).
موفق باشید.

یا علی (ع)

[siyn71]

درسته ببخشید.. من برا باز کردنه اگزه هام ازاین استفاده میکنم فکرکردم رو بقیه هم جواب میده:خجالت: