Hộp textbox để nhập đường dẫn trên Form

[Hoacomay96]

Các bác cho em hỏi, em có 1 hộp textbox để nhập đường dẫn trên 1 fomr. nhưng em không biết viết code như thế nào để kiểm tra đường dẫn đó có tồn tại không và nếu tồn tại thì trong thư mục đó có chứa file EXcel không, nếu thư mục không có file excel thì thông báo khong có file và thoát khỏi thủ tục ? nếu có thì tiếp tục thủ tục ?

 

[chibi]

Bạn xem file đính kèm

 

[anhtuan1066]

Trời! Ai lại làm cái vụ nhập đường dẩn như thế chứ... Ko biết mọi người thế nào chứ nếu là tôi chắc ko kiên nhẩn gõ gõ vào từng chử như thế... Muốn kiểm tra hay gì gì đó người ta thường tạo 1 nút Browse chứ ai lại nhập

 

[yeudoi]

Hì hì nếu nhập từng đường dẫn thì không ai nhập rồi, nhưng mà để dùng Browse thì đã biết nó tồn tại rồi còn gì.

 

[anhtuan1066]

Hì hì nếu nhập từng đường dẫn thì không ai nhập rồi, nhưng mà để dùng Browse thì đã biết nó tồn tại rồi còn gì.

Đúng! Chính vì lẽ đó mà cũng ko cần code kiểm tra luôn.. Có phải là đơn giãn hơn nhiều ko?
ANH TUẤN

 

[Hoacomay96]

Nhập đường đẫn thì mất công quá, tạo nút Browse thì hay hơn nhiều. Anh Tuan giúp em tạo nút Browse trên form với em không biết cách tạo và viết code cho nó

 

[cadafi]

Nhập đường đẫn thì mất công quá, tạo nút Browse thì hay hơn nhiều. Anh Tuan giúp em tạo nút Browse trên form với em không biết cách tạo và viết code cho nó

To Hoacomay96
Việc này làm được đó bạn. Tuy nhiên không phải đơn giản như bạn nghĩ đâu. Bạn xem file đính kèm đi. Nếu hay thì vỗ tay nhé.

 

[nguyentuhp]

Tôi nghĩ bạn đang có ý định viết code khi mở 1 file làm việc nào đó có liên kết với các file khác, Theo tôi bạn nên làm theo cách sau:
- Kiểm tra file cần liên kết tại thư mục của file đang mở
- Nếu không tồn tại (không thấy file liên kết) thì hiện 1 form cho bạn chọn file đó

 

[Hoacomay96]

Ý em là tạo 1 form để lưu đường dẫn của dữ liệu nguồn trên 1 file cell khac để khi chạy macro thì nó tự lấy đường dẫn trên đó, vậy em cần kiểm tra xem người sử dụng chọn đường dẫn có đúng không (dường dẫn có tồn tại trên máy không, và đường dẫn có chứa file cell nào không). các huynh giúp em với.nên chọn cách nhập đường dẫn trực tiếp vào hộp textbox trên form hay nên tạo nút Browse để chọn ?

 

[anhtuan1066]

Ý em là tạo 1 form để lưu đường dẫn của dữ liệu nguồn trên 1 file cell khac để khi chạy macro thì nó tự lấy đường dẫn trên đó, vậy em cần kiểm tra xem người sử dụng chọn đường dẫn có đúng không (dường dẫn có tồn tại trên máy không, và đường dẫn có chứa file cell nào không). các huynh giúp em với.nên chọn cách nhập đường dẫn trực tiếp vào hộp textbox trên form hay nên tạo nút Browse để chọn ?

Nếu đúng là vậy thì bạn lại ko cần hộp Browse...
Trò này thật ra cũng ko khó, cách đơn giãn nhất là bạn tự record lấy 1 macro quá trình lưu file, sau đó vào code chỉnh sửa, thêm mục kiểm tra file và thư mục tồn tại hay ko, vân vân và vân vân...
Có thể search trên diển đàn những đoạn code có chức năng như thế, nhưng phần chính là LƯU FILE thì tôi nghĩ bạn nên tự làm sẽ dể hiểu hơn!
ANH TUẤN

 

[phucto]

nhờ các bác giúp em với file excel này với. GẤP

Em có một file excel đang cần gấp. Mong các bác có thể giúp em với. Cảm phiền các bác có thể sent vào mail:đovănphuc923@yahoo.com cho em duoc khong
Cảm ơn các bác rất nhiều nhe

 

[ongtrungducmx25]

To Hoacomay96
Việc này làm được đó bạn. Tuy nhiên không phải đơn giản như bạn nghĩ đâu. Bạn xem file đính kèm đi. Nếu hay thì vỗ tay nhé.

cái này bị báo lỗi ở dong

of.hwndOwner = Application.Hwnd      '.hWndAccessApp Neu là access thi la gia tri nay

 

[cadafi]

File mình chạy ok mà bạn. có thể bạn thiếu dấu ' đoạn code <.hWndAccessApp Neu là access thi la gia tri nay>. chỉ là ghi chú.

of.hwndOwner = Application.Hwnd      '.hWndAccessApp Neu là access thi la gia tri nay

 

[ongtrungducmx25]

of.hwndOwner = Application.Hwnd (lổi chổ này)
không biết sửa lại như thế nào!

 

[tedaynui]

Để kiểm tra 1 File bất kỳ có tồn tại hay không cũng có nhiều cách như các bác đã nêu. Mình cũng tham gia thêm 1 cách nữa. Nếu dùng hàm thì mình thường dùng hàm sau

Function FileExists(ByVal FName) As Boolean
' Trả về TRUE nếu file tồn tại, không tồn tại là FALSE
' fname là tên File bao gồm cả tên đường dẫn
Dim x As String
    On Error GoTo TBLoiPath
    x = Dir(FName)
    If x <> "" Then FileExists = True Else FileExists = False
    Exit Function
TBLoiPath:
    FileExists = False
End Function

VD : =FileExists("C:\windows\taskman.exe")

TDN

 

[cadafi]

of.hwndOwner = Application.Hwnd (lổi chổ này)
không biết sửa lại như thế nào!

Em thực sự không biết lỗi anh thấy là lỗi gì vì file em chạy trên máy em ok mà. Anh có thể chụp hình cái thoông báo lỗi của VB khi chạy cho em được không? Thanks in advance.

 

[dnphuonganh]

Chào các anh!
Nếu em muốn từ excel dùng Browse để tìm một file khác là *.pdf và mở nó bằng Foxit Reader, hoặc file *.doc và mở nó bằng word, đồng thời nhập đường dẫn của file đó vào một cell thì làm như thế nào?