Ý bác Chibi tức là làm cho Form hiện rõ lại sao khi nhấn nút Open của cửa sổ Open File đó.
Private Sub Cmb_selectfile_Click()
Dim tep As String
Dim thumuc As String
tep = Application.GetOpenFilename("MS Excel, *.xls", , "Chon lay 1 file")
If InStrRev(tep, ".") = 0 Then Exit Sub
thumuc = Left(tep, InStrRev(tep, "\") - 1)
With Me
.Txt_fileName.Value = tep
.Hide
.Show
End With
End Sub
À còn 1 điều nữa là sao em cho chạy Form thì cửa sổ Excel biến đi đâu rồi, sao nó không đứng yên mà cứ tắt đi nhỉ? Có bác nào giúp em phần này không?
Thân/.
Sub load_form()
With Frm_main
.Txt_fileName.Value = ""
.Show
End With
End Sub