Kiểm tra sự tồn tại của 1 file trong Excel sử dụng hàm tự tạo trong VBA

[sonnt]

Em có chép được 1 đoạn code như dưới này, nhưng chưa biết sử dụng như nào cho đúng. Mong mọi người giúp đỡ/[IMG]images/smilies/a20.gif[/IMG][IMG]images/smilies/a20.gif[/IMG][IMG]images/smilies/a20.gif[/IMG][IMG]images/smilies/a20.gif[/IMG][IMG]images/smilies/a20.gif[/IMG][IMG]images/smilies/a20.gif[/IMG][IMG]images/smilies/a20.gif[/IMG][IMG]images/smilies/a20.gif[/IMG]
Public Function FileExists(fname) As Boolean
Dim x As String
x = Dir(fname)
If x <> "" Then FileExists = True _
Else FileExists = False
End Function

View more random threads:

• tiếp em phần thẩm định dự án này có hiệu quả không
• Hàm EMBED {Giúp với ( mình đang cần gấp )}
• Xin mọi người giúp đỡ về copy & paste trong excel
• Cập nhật dữ liệu file con từ file tổng
• Tách lấy nhiều hoá đơn, giá trị thanh toán trong một hợp đồng
• không mở được tất cả các file word và exel 2003
• Thống kê điểm thi học kì theo môn
• Trả lại kết quả là chữ cái theo đúng thứ tự ABC
• Lấy dữ liệu trong sheet tùy thuộc vào nội dung trong ô
• Giúp đỡ về việc cộng dữ liệu vào ô theo điều kiện

[meolamdep]

Bạn chỉ cần copy nó vào một module trong file (nếu bạn chưa biết làm cái này: alt+F11, trong cửa số VBE menu insert --> modules)
Lưu ý là cái fname là đường dẫn đầy đủ của cái file đó bao gồm cả tên thư mục: =FileExists("D:\book1.xlsx")

[sala4ever]

Thanks bác #Đỗ Nguyên Bình

[tonguyen2704]

Thanks bác #Đỗ Nguyên Bình

Sau khi insert code vào module như hướng dẫn của anh Bình.
Giả sử ô A1 của bạn có dạng chuỗi là: C:\Users\SONY\Hieu\luan van\1.docx
ô B1 bạn dùng hàm: =FileExists(A1)
Nếu đường dẫn có File 1.docx thì ô B1 trả kết quả TRUE và ngược lại.