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:

• giải bài toán tim điểm hòa vốn
• Xin phương pháp bảo mật tối uư trong Excel .
• cập nhật ngày tháng năm tới thời điểm cố định
• Xác định khoảng thời gian trùng nhau
• File Excel 2007 lỗi *.xlsx.zzz
• Ghi lại công việc theo ngày (Nhật ký công trình)
• Gợi ý nhập liệu theo ô đã nhập
• Goup theo tháng
• Tạo 1 macro copy từ file nhập liệu vào danh sách
• Nhờ mọi người đánh dấu những số trùng nhau giữa 2 danh sách.

[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.