Kết quả 1 đến 2 của 2

Chủ đề: Click button để chọn file cần mở

  1. #1
    10comblog Guest

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

    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 đỡ

  2. #2
    nhanhmuavn201 Guest
    Trích dẫn Gửi bởi 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 đỡ
    Code này Browser File: còn ông anh muốn chuyển hay làm gì thì cứ xử lí

    Mã:
    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

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •