Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


22588 / 76738 ←次へ | 前へ→

【59530】Re:アドインの有効化について
お礼    - 08/12/17(水) 9:47 -

引用なし
パスワード
   ▼neptune さん:
こんにちは、ありがとうございます。
ヘルプで調べるのを失念しておりました。お恥ずかしいです。

On Error Resume Next  ' エラー処理を無効にします。
Set wbMyAddin = Workbooks(Addins("My Addin").Name)
lastError = Err
On Error Goto 0    ' エラー処理を有効にします。
If lastError <> 0 Then
  ' アドインが読み込まれていなければ、そのファイルを開きます。
  Set wbMyAddin = Workbooks.Open(Addins("My Addin").FullName)
End If

こちらも足して試してみたのですが
  Set wbMyAddin = Workbooks.Open(Addins("My Addin").FullName)
この部分でエラーを吐き出してしまいました。
書き換えるべき部分が分からず、さらに調べてみたところVB側だけで無事希望の動作ができたようなので、VBAではありませんが一応載せておきます。
理解度が足りずあっちこっち切り貼りして分かる部分を書き換えたため、きれいなコードではありません…。

Option Explicit
Const cnsBook = "test.xls"
Const xlAutoOpen = 1
dim xlApp,xlBook,strPath

Set xlApp = CreateObject("Excel.Application")
' 本スクリプトファイルのフォルダ名の取得
With WScript
 strPath = Replace(.ScriptFullName, .ScriptName, "")
End With
'アドインリフレッシュ
Call AddinRefresh(xlApp,"分析ツール")

xlApp.Visible = True

Set xlBook = xlApp.Workbooks.Open(strPath & cnsBook, False, True)


Private Sub AddinRefresh(inXlsApp,inAddinName)
On Error Resume Next
inXlsApp.AddIns(inAddinName).Installed = False
inXlsApp.AddIns(inAddinName).Installed = True
End Sub

ですが、どうしてこれで上手くいくか、等はまだまだ理解が及んでおりません。
実用する前にもう少し自分のレベルを何とかしたいと思います…。

お答えくださってありがとうございました。

0 hits

【59527】アドインの有効化について 08/12/16(火) 19:04 質問
【59528】Re:アドインの有効化について neptune 08/12/16(火) 20:38 発言
【59530】Re:アドインの有効化について 08/12/17(水) 9:47 お礼
【59532】Re:アドインの有効化について neptune 08/12/17(水) 10:53 発言
【59533】Re:アドインの有効化について 08/12/17(水) 11:42 発言
【59534】Re:アドインの有効化について 角田 08/12/17(水) 11:56 回答

22588 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free