cuongtokyo0240
Thành viên mới
- Tham gia
- 21/5/18
- Bài viết
- 37
- Được thích
- 4
Trong code mình có 1 vài chỗ viết bằng các chữ tiếng nhật .
anh em không cần phải hiểu vì đó chỉ là phần đặt tên , hiển thị thôi.
※ Code này đang áp dụng cho đối tượng Access - Đối với Excel cũng tương tự thôi nhé
Private Sub 表示_Click()
On Error GoTo Err_Step
Dim filepath As String 'ファイルパス（絶対パス）
Dim fFso As Object
If Nz(Me!FILE_PATH, "") = "" Then
MsgBox "ファイル名が指定されていません" & Chr(13) & Chr(13) & Chr(10) & _
"※ 拡張子なしで指定して下さい", vbExclamation, "ファイル名無し"
Exit Sub
Else
filepath = Me!FILE_PATH
Set fFso = CreateObject("Scripting.FileSystemObject")
If (fFso.FileExists(filepath) = True) Then '指定したファイルあり？
'ファイルが存在するときの処理
Application.FollowHyperlink filepath
Else
'ファイルが存在しないときの処理
MsgBox "指定されたファイルがありません" & Chr(13) & Chr(13) & Chr(10) & _
"※ 確認して下さい", vbExclamation, "ファイル名無し"
Exit Sub
End If
Set fFso = Nothing
End If
Exit_Step:
Exit Sub
Err_Step:
MsgBox Err.Description, vbCritical
Resume Exit_Step
End Sub
anh em không cần phải hiểu vì đó chỉ là phần đặt tên , hiển thị thôi.
※ Code này đang áp dụng cho đối tượng Access - Đối với Excel cũng tương tự thôi nhé
Private Sub 表示_Click()
On Error GoTo Err_Step
Dim filepath As String 'ファイルパス（絶対パス）
Dim fFso As Object
If Nz(Me!FILE_PATH, "") = "" Then
MsgBox "ファイル名が指定されていません" & Chr(13) & Chr(13) & Chr(10) & _
"※ 拡張子なしで指定して下さい", vbExclamation, "ファイル名無し"
Exit Sub
Else
filepath = Me!FILE_PATH
Set fFso = CreateObject("Scripting.FileSystemObject")
If (fFso.FileExists(filepath) = True) Then '指定したファイルあり？
'ファイルが存在するときの処理
Application.FollowHyperlink filepath
Else
'ファイルが存在しないときの処理
MsgBox "指定されたファイルがありません" & Chr(13) & Chr(13) & Chr(10) & _
"※ 確認して下さい", vbExclamation, "ファイル名無し"
Exit Sub
End If
Set fFso = Nothing
End If
Exit_Step:
Exit Sub
Err_Step:
MsgBox Err.Description, vbCritical
Resume Exit_Step
End Sub
Lần chỉnh sửa cuối:
))
