ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ódouble click .xls(¼W¯q¶°)·|¦Û°Ê¥[¸ü

[µo°Ý] ¦p¦ódouble click .xls(¼W¯q¶°)·|¦Û°Ê¥[¸ü

¤U­±¬O§Ú¼gªºµ{¦¡¡A·|µo¥Í¤J¤Uªºerror message

Run-time error '1004':
Unable to get the Add property of the Addins class
  1. Private Sub Workbook_Open()
  2.         Dim fn_jzcfgreg As String
  3.         Dim h_addin As AddIn
  4.         fn_jzcfgreg = ThisWorkbook.FullName
  5.         Set h_addin = AddIns.Add(fn_jzcfgreg, False)
  6.         h_addin.Installed = True
  7. End Sub
½Æ»s¥N½X
³o­n¦p¦ó¸Ñ¨M¡AÁÂÁ¡C

BR,
Jarod

¦^´_ 1# jarodz
  1. Private Sub Workbook_Open()
  2.         Me.IsAddin = True
  3. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE
Dear GBKEE,

¦¹xls¤w¸g³]¬°¼W¯q¶°¤F¡A
·Q°µªº¨Æ¡A¨ä¥L¤Hdouble click¥´¶}³o­ÓÀɮ׫á¡A
·|¦Û°Ê§â³o­Ó¦Û°Ê¸ü¤Jexcel¼W¯q¶°ºÞ²z¤¤¨Ã¥´¤Ä(installed)

   

TOP

¦^´_ 3# jarodz
½Ð±N§AÀɮתº°ÆÀɦW§ï¬° ¼W¯q¶°ªº°ÆÀɦW ¸Õ¸Õ¬Ý

TOP

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD