NguyenNT221100
Thành viên mới
- Tham gia
- 20/6/22
- Bài viết
- 33
- Được thích
- 5
Chào anh chị em diễn đàn
Lại là em xin nhờ giúp đỡ ạ.
Chuyện là em có (copy) 1 code chạy chức năng mở thư mục (thông qua DropButtonclick trên Userform)
Khi chạy thì không bị lỗi nếu người dùng duyệt và có chọn folder. Tuy nhiên, trường trường hợp người dùng (ví dụ đổi ý) không chọn vào folder mà nhấn cancel để bỏ qua thì codes báo lỗi 91. Em đã thử sửa bằng cách bẩy lỗi On Error Goto Label nhưng chức năng bẩy lỗi nó không không chạy.
Anh chị em đi đọc được bài xni dành chút thời gian giúp em với ạ? nếu được giải thích giúp em sai chỗ nào luôn ạ.
Code của em đây ạ
Private Sub cboFolder_DropButtonClick()
Dim Total As Long, Dur As Double
On Error GoTo Thoat
With CreateObject("Shell.Application")
sFolder = .BrowseForFolder(0, "", 1).Self.Path 'Lay duong dan thu muc
End With
With cboFolder
If TypeName(sFolder) = "String" Then .Text = sFolder
.Enabled = False: .Enabled = True
End With
Exit Sub
Thoat:
MsgBox "Ban chua chon folder"
End Sub
Lại là em xin nhờ giúp đỡ ạ.
Chuyện là em có (copy) 1 code chạy chức năng mở thư mục (thông qua DropButtonclick trên Userform)
Khi chạy thì không bị lỗi nếu người dùng duyệt và có chọn folder. Tuy nhiên, trường trường hợp người dùng (ví dụ đổi ý) không chọn vào folder mà nhấn cancel để bỏ qua thì codes báo lỗi 91. Em đã thử sửa bằng cách bẩy lỗi On Error Goto Label nhưng chức năng bẩy lỗi nó không không chạy.
Anh chị em đi đọc được bài xni dành chút thời gian giúp em với ạ? nếu được giải thích giúp em sai chỗ nào luôn ạ.
Code của em đây ạ
Private Sub cboFolder_DropButtonClick()
Dim Total As Long, Dur As Double
On Error GoTo Thoat
With CreateObject("Shell.Application")
sFolder = .BrowseForFolder(0, "", 1).Self.Path 'Lay duong dan thu muc
End With
With cboFolder
If TypeName(sFolder) = "String" Then .Text = sFolder
.Enabled = False: .Enabled = True
End With
Exit Sub
Thoat:
MsgBox "Ban chua chon folder"
End Sub
