Nhờ giúp đỡ code báo lỗi không tìm thấy file (1 người xem)

[thutran0801]

Chào mọi người, mình có đoạn code mở file như này có cách nào để báo lỗi khi không tìm thấy file hay đường dẫn bị sai ko? Cám ơn mọi người!!

Dim OutW As Workbook, InW As Workbook, OutP, InP As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
OutP = Cells(2, 2): InP = Cells(1, 2)
Set OutW = Workbooks.Open(OutP)
Set InW = Workbooks.Open(InP)

 

[quanluu]

Chào mọi người, mình có đoạn code mở file như này có cách nào để báo lỗi khi không tìm thấy file hay đường dẫn bị sai ko? Cám ơn mọi người!!

Dim OutW As Workbook, InW As Workbook, OutP, InP As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
OutP = Cells(2, 2): InP = Cells(1, 2)
Set OutW = Workbooks.Open(OutP)
Set InW = Workbooks.Open(InP)

về vấn đề của bạn t chẳng thấy vấn đề gì cả, bạn coi lại đường dẫn, mà coi code của bạn t chẳng hiểu bạn muốn làm gì đây? Mục đích của Sub Inp, OutP để làm gì vậy? sao lại multiple select = True?

 

[thutran0801]

về vấn đề của bạn t chẳng thấy vấn đề gì cả, bạn coi lại đường dẫn, mà coi code của bạn t chẳng hiểu bạn muốn làm gì đây? Mục đích của Sub Inp, OutP để làm gì vậy? sao lại multiple select = True?

Hai cái sub để chon đường dẫn file giả sử cái file code này chép sang máy khác thì khi đường dẫn chọn file nó sẽ báo như vậy mình muốn nhờ giúp tạo thông báo khi sai cái đường dẫn để người dùng biết.

 

[quanluu]

View attachment 171484

Hai cái sub để chon đường dẫn file giả sử cái file code này chép sang máy khác thì khi đường dẫn chọn file nó sẽ báo như vậy mình muốn nhờ giúp tạo thông báo khi sai cái đường dẫn để người dùng biết.

Trong thông báo có 2 ý:
ý 1: Bạn kiểm tra xem đúng đường dẫn của file chưa? bạn copy đường dẫn paste vào file explorer xem có mở được không?
ý 2: mình không hiểu lắm
Còn về 2 cái sub kia thì ý mình là ở giao diện có 1 file nhưng trong sub để chế độ chọn nhiều file và điền vào nhiều dòng

 

[quanluu]

Vừa đọc được bài này. Bạn thử coi xem của bạn có bị tình trạng như thế này không?
https://www.giaiphapexcel.com/forum/showthread.php?13946-Báo-lỗi-khi-di-chuyển-giữa-các-sheet

 

[thutran0801]

Trong thông báo có 2 ý:
ý 1: Bạn kiểm tra xem đúng đường dẫn của file chưa? bạn copy đường dẫn paste vào file explorer xem có mở được không?
ý 2: mình không hiểu lắm
Còn về 2 cái sub kia thì ý mình là ở giao diện có 1 file nhưng trong sub để chế độ chọn nhiều file và điền vào nhiều dòng

Cám ơn bạn, vấn đề của mình đơn giản là thay vì hiện thông báo lỗi như hình thì mình muốn nhờ giúp đỡ là viết code tạo một msbox để thông báo lỗi đó...

 

[quanluu]

Cám ơn bạn, vấn đề của mình đơn giản là thay vì hiện thông báo lỗi như hình thì mình muốn nhờ giúp đỡ là viết code tạo một msbox để thông báo lỗi đó...

Dim OutW As Workbook, InW As Workbook, OutP, InP As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On error goto loi
OutP = Cells(2, 2): InP = Cells(1, 2)
Set OutW = Workbooks.Open(OutP)
Set InW = Workbooks.Open(InP)
....
exit sub
loi:
msgbox Err.Description
end sub

 

[thutran0801]

Dim OutW As Workbook, InW As Workbook, OutP, InP As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On error goto loi
OutP = Cells(2, 2): InP = Cells(1, 2)
Set OutW = Workbooks.Open(OutP)
Set InW = Workbooks.Open(InP)
....
exit sub
loi:
msgbox Err.Description
end sub

Bị lỗi này là sao bạn ơi??

 

[quanluu]

View attachment 171485
Bị lỗi này là sao bạn ơi??

Ban coi chỗ này

exit sub
loi:

 

[thutran0801]

Ban coi chỗ này

exit sub
loi:

Nếu chèn trên dòng exit sub thì khi đường dẫn đúng vẫn sẽ hiện thông báo mà bạn

 

[quanluu]

Nếu chèn trên dòng exit sub thì khi đường dẫn đúng vẫn sẽ hiện thông báo mà bạn

Bạn đã coi bài #5 chưa ???????

 

[thutran0801]

Bạn đã coi bài #5 chưa ???????

Có xem rồi nhưng ko hiểu
Mình đang thử kết hợp bài này nhưng làm ko ra :https://www.giaiphapexcel.com/forum/showthread.php?19672-Kiểm-tra-file-có-tồn-tại-không

Sub Copy()
Dim OutW As Workbook, InW As Workbook, OutP, Inp As String
Dim i, j As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
OutP = Cells(2, 2): Inp = Cells(1, 2)
If Sheet1.Range("H1") = "TRUE" Then
Set OutW = Workbooks.Open(OutP)
Else
MsgBox "OK", vbOKOnly
End If
If Sheet1.Range("H2") = "TRUE" Then
Set InW = Workbooks.Open(Inp)
Else
MsgBox "OK", vbOKOnly
End If
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

 

[thutran0801]

Bạn đã coi bài #5 chưa ???????

mÌNH làm đc rồi bạn ơi, cám ơn bạn đã giúp