Add-in tự mở cùng với file excel (3 người xem)

[khanhhuyen131997]

Anh chị tiền bối ơi anh chị giúp em với em đã tìm hiểu hết google ko sao tìm ra cách để add-in mở cùng với file excel. Mỗi lần vào lại phải thao tác chọn lại từ đầu. Mong anh chị chỉ giúp em. Em xin trân thành cảm ơn.

 

[HeSanbi]

Dưới đây là hướng dẫn cách thêm add-ins tự động, bạn copy đoạn code bên dưới vào Code của Workbook
Dựa vào cách thêm cơ bản trong đoạn code, bạn có thể tự suy ra cách thêm Add-ins của bạn.

Private Sub Workbook_Open()
'Khởi động Add-Ins
On Error Resume Next
    Dim AddIn1$,AddIn2$ , AddIn3$', ....
    AddIn1 = "Đường dẫn đến Add-Ins"
    'Check Add-ins đã mở hay chưa'
    Application.Workbooks.Open AddIn1
    With ThisWorkbook.VBProject.References
      If AddIns(AddIn1).Installed Then _
        .AddFromFile AddIn1
'Cách thêm References
'      .AddFromFile "C:\Windows\system32\vbscript.dll\3" ' VBScript_RegExp_55
'      .AddFromFile "C:\Windows\system32\scrrun.dll" 'Scripting
'      .AddFromFile "C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLL"
'      .AddFromFile "D:\Programs\Microsoft Office\Office16\EXCEL.EXE"
'      .AddFromFile "C:\Programs\Microsoft Office\Office16\EXCEL.EXE"
'      .AddFromFile "C:\Program File\Microsoft Office\Office16\EXCEL.EXE"
'      .AddFromFile "C:\Windows\system32\FM20.DLL"
'      .AddFromFile "C:\Program Files\Common Files\Microsoft Shared\OFFICE16\MSO.DLL"
'      .AddFromFile "C:\Windows\System32\msxml6.dll"
'      .AddFromFile "C:\Program Files\Common Files\System\ado\msado15.dll"
'      .AddFromFile "C:\Windows\System32\stdole2.tlb"
'      .AddFromFile "C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB"
'      .AddFromFile "C:\Windows\System32\mshtml.tlb"
'      .AddFromFile "C:\Windows\System32\ieframe.dll"
'      .AddFromFile "C:\Windows\System32\winhttpcom.dll"
'      .AddFromFile Environ$("USERPROFILE") & "\AppData\Local\SeleniumBasic\Selenium64.tlb"
'      .AddFromFile "C:\WINDOWS\SysWow64\MSWINSCK.OCX"
'      .AddFromFile "D:\Programs\Microsoft Office\Office16\MSWORD.OLB"
'      .AddFromFile "C:\Windows\SysWOW64\msscript.ocx"
    End With
  On Error GoTo 0
End Sub

 

[tam888]

Anh chị tiền bối ơi anh chị giúp em với em đã tìm hiểu hết google ko sao tìm ra cách để add-in mở cùng với file excel. Mỗi lần vào lại phải thao tác chọn lại từ đầu. Mong anh chị chỉ giúp em. Em xin trân thành cảm ơn.

Đã là Addins thì chỉ cộng 1 lần, dùng mãi mãi cho bản excel tại PC hay Laptop đó