Click button để chọn file cần mở

[duydhk]

Hi all, hiện tại mình có 1 file marco cần nhờ các bro edit giúp.
File này mình chạy theo flow job của mình OK nhưng có 1 bất tiện là luôn phải để tên file soure trùng tên với tên trong marco. Vì thế mình muốn nhờ các bro giúp mình sửa lại code để khi click vào sẽ hiện ra cửa sổ để browse file, sau khi chọn file đấy rồi thì chạy tiếp marco của mình. ( do hiện tại mình đang fix file name cứng nên mong muốn là sau khi browser file thì tên file trong marco cũng sẽ đổi luôn).
Ngoài ra, do mình đang để vòng lặp là số fix cứng nên mình cũng muốn vòng lặp này sẽ dừng lại khi ô lấy dữ liệu là blank.


Mong đc các bro giúp đỡ

 

[HeSanbi]

Hi all, hiện tại mình có 1 file marco cần nhờ các bro edit giúp.
File này mình chạy theo flow job của mình OK nhưng có 1 bất tiện là luôn phải để tên file soure trùng tên với tên trong marco. Vì thế mình muốn nhờ các bro giúp mình sửa lại code để khi click vào sẽ hiện ra cửa sổ để browse file, sau khi chọn file đấy rồi thì chạy tiếp marco của mình. ( do hiện tại mình đang fix file name cứng nên mong muốn là sau khi browser file thì tên file trong marco cũng sẽ đổi luôn).
Ngoài ra, do mình đang để vòng lặp là số fix cứng nên mình cũng muốn vòng lặp này sẽ dừng lại khi ô lấy dữ liệu là blank.
Mong đc các bro giúp đỡ

Code này Browser File: còn ông anh muốn chuyển hay làm gì thì cứ xử lí

Option Explicit
Sub Lay_DuLieu()
    Dim strFolderPath As String
    Dim selectedFiles As Variant
    Dim strFileName As String
   ' Set (Sheet hoat dong) = ActiveWorkbook.Sheets("Data")
    strFolderPath = ActiveWorkbook.Path
    ChDrive strFolderPath
    ChDir strFolderPath
    On Error GoTo NoFileSelected
    selectedFiles = Application.GetOpenFilename( _
                    filefilter:="Excel Files (*.xls*),*.xlsx*", MultiSelect:=True)
                    ' File duoi la xlsm thì them vao *.xlsm*
                    ''''''''''''''''''''''''''
                    ' Code xu li Here
                    '''''''''''''''''''''''''''''
NoFileSelected:
    MsgBox "Chua co file nao duoc chon!"
End Sub