Click nút Browse để chọn một file bất kỳ thì Textbox ghi lại đường dẫn đến file chọn (1 người xem)

[thanchetvnt]

Mình có một Form gồm có nút Browse và một Textbox1. Nhờ mọi người code giúp để có thể kích vào nút Browse thì nó hiện ra cửa sổ cho phép mình tìm đến một file trên máy tính. Khi chọn file theo ý muốn thì kích đúp hoặc kích vào nút OK. Kết quả ta được đường dẫn đến file đã chọn trong Textbox1.
Vd: Kích chọn file ABC.xls từ cửa sổ do kích nút Browse thì trong Textbox1 cho kết quả "D:\DLKETOAN\ABC.xls"
Cảm ơn mọi người.

 

[ndu96081631]

Mình có một Form gồm có nút Browse và một Textbox1. Nhờ mọi người code giúp để có thể kích vào nút Browse thì nó hiện ra cửa sổ cho phép mình tìm đến một file trên máy tính. Khi chọn file theo ý muốn thì kích đúp hoặc kích vào nút OK. Kết quả ta được đường dẫn đến file đã chọn trong Textbox1.
Vd: Kích chọn file ABC.xls từ cửa sổ do kích nút Browse thì trong Textbox1 cho kết quả "D:\DLKETOAN\ABC.xls"
Cảm ơn mọi người.

Code cho CommandButton1 (nút Browse) như sau:

Private Sub CommandButton1_Click()
  Dim vFile
  vFile = Application.GetOpenFilename
  If TypeName(vFile) = "String" Then Me.TextBox1.Text = vFile
End Sub

 

[thanchetvnt]

Mò mẫm bao ngày mà không thể nào làm được. Không ngờ code lại ngắn vậy thôi. Cảm ơn ndu96081631 rất nhiều.

 

[Ếch Xanh]

Code cho CommandButton1 (nút Browse) như sau:

Private Sub CommandButton1_Click()
  Dim vFile
  vFile = Application.GetOpenFilename
  If TypeName(vFile) = "String" Then Me.TextBox1.Text = vFile
End Sub

Xin xóa dùm bài này!