Code kiểm tra sự tồn tại của 1 file khác, nếu có thì cho chạy, không thì báo lỗi

[hoahuongduong]

Chào các anh chị,
Em có đoạn code nhỏ trong excel để hiển thị câu chào khi mở file và kiểm tra sự tồn tại của 1 file khác (lưu ở thư mục khác với file này), nếu có file đó thì cho phép chạy, còn không thì báo lỗi cho người sử dụng biết, nhưng không biết bị sai ở chỗ nào mà nó không hoạt động
Em đặt Sub này trong phần This Workbook

Sub Auto_Open()
If Len(Dir("D:\BACKUP\solieutrongthang.xlsx")) > 0 Then
MsgBox "Chào mung ban ! "

Else
MsgBox "Không tìm thâ'y tâp tin solieutrongthang.xlsx, vui lòng liên hê P.KT de câp nhât"
ThisWorkbook.Close (True)
End If
End Sub

Anh chị giúp em điều chỉnh lại nhé.
Em xin cảm ơn

View more random threads:

• Tính tổng lượng xuất trong tháng
• Tính tổng có điều kiện trên nhiều cột
• Hỏi cách chèn dòng và sum
• Làm sao để chuyển trục chữ thành trục số và ngược lại.
• Tạo thẻ trong excel
• Tổng hợp dữ liệu các sheet trong cùng 1 fiel excel thành một file tổng
• nhờ các bạn giúp mình công thức excel
• In excel bị thu nhỏ cỡ chữ
• Đặt tên cho trục tung thứ hai trên biểu đồ
• Xin CSDL các doanh nghiệp ngành xây dựng của Việt Nam

[sunshinexxxx]

Chào các anh chị,
Em có đoạn code nhỏ trong excel để hiển thị câu chào khi mở file và kiểm tra sự tồn tại của 1 file khác (lưu ở thư mục khác với file này), nếu có file đó thì cho phép chạy, còn không thì báo lỗi cho người sử dụng biết, nhưng không biết bị sai ở chỗ nào mà nó không hoạt động
Em đặt Sub này trong phần This Workbook

Sub Auto_Open()
If Len(Dir("D:\BACKUP\solieutrongthang.xlsx")) > 0 Then
MsgBox "Chào mung ban ! "

Else
MsgBox "Không tìm thâ'y tâp tin solieutrongthang.xlsx, vui lòng liên hê P.KT de câp nhât"
ThisWorkbook.Close (True)
End If
End Sub

Anh chị giúp em điều chỉnh lại nhé.
Em xin cảm ơn

Sửa thành vầy thử xem

Sub Auto_Open()
  Dim path As String, FSO As Object
  Set FSO = CreateObject("Scripting.FileSystemObject")
  path = "D:\BACKUP\solieutrongthang.xlsx"
  If FSO.FileExists(path) Then
    MsgBox "Chào mung ban !"
  Else
    MsgBox "Không tìm thâ'y tâp tin solieutrongthang.xlsx, vui lòng liên hê P.KT de câp nhât"
    ThisWorkbook.Close (True)
  End If
  Set FSO = Nothing
End Sub

[thuctapseonx01]

Sửa thành vầy thử xem

<div class="bbcode_container">
<div class="bbcode_description">Code:

</div>
</div>
Hổng thấy phản ứng gì sảy ra hết anh NDU ơi. Em xóa đoạn code của em, thay bằng đoạn code của anh rồi, mở file lên bình thường, không báo câu gì hết (dù không có file solieutrongthang.xlsx)
Đã enable macro rồi

[maijenny]

Set FSO = Nothing

Cho em hỏi sao em hay thấy có cái đoạn code set lại 1 cái ji đó nothing.
Mục đích của nó là gì?

[hoathachthao]

Cho em hỏi sao em hay thấy có cái đoạn code set lại 1 cái ji đó nothing.
Mục đích của nó là gì?

sau khi xài xong thì xóa cho đỡ tốn bộ nhớ

[ducquangtb90]

Uả em cứ nghĩ sau khi end sub nó sẽ tự thoát ra chứ??

[phungnham92]

àh được rồi , hic, em thêm cái lệnh này vô nữa nó mới chịu chạy

Private Sub Workbook_Open()
Call Auto_Open
End Sub

Cảm ơn anh NDU nhiều nha, em mới tập tành tìm hiểu VBA thôi nên "gà" lắm luôn.
Cảm ơn các anh chị đã tạo ra và duy trì diễn đàn GPE cho tụi em có nơi để học hỏi kiến thức.