Mở file nếu tên file trùng với mã nhân viên, đuôi file bất kỳ

Chia sẻ bởi:hands

★★★★★

‹ Xin giúp em Copy tất cả các... Chọn vùng trong VBA ›

Quảng cáo

Chào anh/chị
Em mới học youtube viết được code nút thêm CV (Add CV) vào cho từng mã nhân viên tương ứng rồi
Tuy nhiên nút Open CV thì không làm được, mong anh/chị giúp đỡ để hoàn thiện
Khi listbox chọn dòng nào, nếu nhấn Open CV thì sẽ tìm CV với mã nhân viên tương ứng để mở ra
CV có thể ở bất kỳ dạng file văn bản nào: pdf, docx, xlsm, xlsx, pptx,…..

Ví dụ: Mã nhân viên là J00019 thì sẽ mở file J00019.docx (nếu trước đó Add vào là file docx, hoặc J00019.pdf nếu trước đó Add vào là file pdf)

Em chân thành cảm ơn ạ
3003

Thử thế này xem sao.

Private Sub cmdOpenCV_Click()

'ActiveWorkbook.FollowHyperlink ("C:dataformCV" & ListBox1.List(vt, 1) & value & ".*")
    Dim Shex As Object, tgtfile As String
    Set Shex = CreateObject("Shell.Application")
    tgtfile = "C:File.PDF"
    Shex.Open (tgtfile)
    Set Shex = Nothing
End Sub

www.giaiphapexcel.com/diendan/threads/m%E1%BB%9F-file-n%E1%BA%BFu-t%C3%AAn-file-tr%C3%B9ng-v%E1%BB%9Bi-m%C3%A3-nh%C3%A2n-vi%C3%AAn-%C4%91u%C3%B4i-file-b%E1%BA%A5t-k%E1%BB%B3.163906/