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

[hoangtuaotrang_hp_vn]

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 ạ

View attachment 285945

 

[giaiphap]

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 ạ
View attachment 285947
View attachment 285945

Thử thế này xem sao.

Private Sub cmdOpenCV_Click()

'ActiveWorkbook.FollowHyperlink ("C:\dataform\CV\" & 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

 

[hoangtuaotrang_hp_vn]

Thử thế này xem sao.

Private Sub cmdOpenCV_Click()

'ActiveWorkbook.FollowHyperlink ("C:\dataform\CV\" & 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

Em cảm ơn anh đã giúp ạ

Em có tes thử: Add CV dạng .xlsm



Click vào nút Open CV nhưng không thấy hoạt động ạ

P/S: Add CV dạng .pdf nút Open cũng không hoạt động