سلام خدمت همه
کد زیر فایل های اکسل و ورد رو باز میکنه
بر اساس همین کد خواستم فایل های پاورپوینت هم باز کنم که موفق نشدم
اگه ممکنه راهنمایی بفرمایید و کد رو توسعه بدین.
Private Sub Command29_Click()
Dim path As String
Dim path2 As String
Dim path3 As String
Dim path4 As String
Dim OAPP As Object
If shomare.Value <> "" Then
If movzooe.Value <> "" Then
If nam.Value <> "" Then
path = CurrentProject.path & "\forms" & shomare.Value & ".docx"
path2 = CurrentProject.path & "\forms" & shomare.Value & ".doc"
path3 = CurrentProject.path & "\forms" & shomare.Value & ".xlsx"
path4 = CurrentProject.path & "\forms" & shomare.Value & ".xls"
If Dir(path) <> "" Then
Set OAPP = CreateObject(Class:="word.application")
OAPP.Visible = True
OAPP.Documents.Open FileName:=path, ReadOnly:=True
ElseIf Dir(path3) <> "" Then
Set OAPP = CreateObject(Class:="excel.application")
OAPP.Visible = True
OAPP.UserControl = True
OAPP.Workbooks.Open FileName:=path3, ReadOnly:=True
ElseIf Dir(path2) <> "" Then
Set OAPP = CreateObject(Class:="word.application")
OAPP.Visible = True
OAPP.Documents.Open FileName:=path2, ReadOnly:=True
ElseIf Dir(path4) <> "" Then
Set OAPP = CreateObject(Class:="excel.application")
OAPP.Visible = True
OAPP.UserControl = True
OAPP.Workbooks.Open FileName:=path4, ReadOnly:=True
Else
MsgBox "فایل مورد نظر پیدا نشد", vbDefaultButton1, "خطا"
End If
Else
msg = DLookup("msgdes", "MSGFR", "msgid = '1'")
MsgBox msg, vbOKOnly, "توجه"
End If
Else
msg = DLookup("msgdes", "MSGFR", "msgid = '1'")
MsgBox msg, vbOKOnly, "توجه"
End If
End If
End Sub