duytienmta
Thành viên mới
- Tham gia
- 28/9/14
- Bài viết
- 9
- Được thích
- 0
Mình có đoạn code sau, xin hỏi các cao nhân chỉ giáo giúp lỗi này k chạy được cứ báo lỗi tumtime 445 ạ. Xin cảm ơn
Sub Open_File()
Dim fName As String
fName = Cells(ActiveCell.Row, 9).Value
With Application.FileSearch
.NewSearch
.Filename = fName
.LookIn = ThisWorkbook.Path
.SearchSubFolders = True
If .Execute Then CreateObject("Shell.Application").Open .FoundFiles()
End With
End Sub
Sub QD2_Click()
Range("G17").Select
End Sub
Sub QD1_Click()
Range("G9").Select
Sub Open_File()
Dim fName As String
fName = Cells(ActiveCell.Row, 9).Value
With Application.FileSearch
.NewSearch
.Filename = fName
.LookIn = ThisWorkbook.Path
.SearchSubFolders = True
If .Execute Then CreateObject("Shell.Application").Open .FoundFiles()
End With
End Sub
Sub QD2_Click()
Range("G17").Select
End Sub
Sub QD1_Click()
Range("G9").Select
