帖子: 521
主題: 55
精華: 0
積分: 598
點名: 282
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2013-5-11 09:54 | 只看該作者

[發問] 自動加入Solver.xla 或 Solver.xlam

電腦內有EXCEL 2003及 2010 版本，或者說同一workbook檔要在不同的電曩內被使用，它們專屬的 SOLVER版本不同
每次都要人工來做 ADDIN 的動作，很不方便
請教大師先進有何方法在 Workbook 打開時能自動辨識並 Addin Solver

謝謝

樓主熱帖

Scott090

高中生 Rank: 3 Rank: 3

帖子: 521
主題: 55
精華: 0
積分: 598
點名: 282
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

5^#

發表於 2013-5-11 22:40 | 只看該作者

回復 4# GBKEE

感謝大師無私的指導
學到了 Addins.add filename:= 全路徑檔名
Addins().installed =

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2013-5-11 20:49 | 只看該作者

回復 3# Scott090

Option Explicit
Private Sub Workbook_Open()
Select Case Application.Version
Case "11.0" '2003
AddIns.Add Filename:="D:\2003\SOLVER.xla"
Case "14.0" '2010
AddIns.Add Filename:="D:\2010\SOLVER.xlam"
End Select
AddIns("SOLVER").Installed = True
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

Scott090

高中生 Rank: 3 Rank: 3

帖子: 521
主題: 55
精華: 0
積分: 598
點名: 282
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

3^#

發表於 2013-5-11 20:08 | 只看該作者

回復 2# GBKEE

感恩指導
1.依照執行會出現超出陣列範圍的錯誤，不知何故
2.solver.xla,solver.xlam 各自被安裝在不同的路徑內，例如 application.path, 因為被叫用的 excel.exe 版本不同
3.加載引用後做確認，是否引用成功；利用讀取引用項來作比對：
先取得計數有幾項被引用
Dim i as integer
i = ThisWorkbook.VBProject.References.Count
則出現 Thisworkbook.VBProject. .... 方法錯誤，找不出問題在哪裡

祈望 GBKEE 大師不吝指點

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-5-11 14:34 | 只看該作者

回復 1# Scott090
請複製於ThisWorkbook模組

Option Explicit
Private Sub Workbook_Open()
Select Case Application.Version
Case "11.0" '2003
AddIns("SOLVER.xla").Installed = True
Case "14.0" '2010
AddIns("SOLVER.xlam").Installed = True
End Select
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP