Excelでアドインファイルを『AddIns』フォルダに自動でコピーするには

質問

お世話になります。
たぶん、すでに過去ログであるような内容ですが、
ご指導いただければ幸いです。

ネットなどから受け取ったアドインファイルのみを、
自動でフォルダにコピーする方法をお教え下さい。

一つ一つ手動で行う方法は問題ないのですが、
ほとんどパソコンが解らない方に、ボタンを押すだけのような
作業で自動でアドインが組み込まれるようにしたいのです。

以上、宜しくお願いいたします。

回答No.2

n-jun

ANo.1です。

移動は１ファイルずつ行なって下さい。
Ｅｘｃｅｌ側へのアドインの選択は行なっていなかったです。

回答No.1

n-jun

ＶＢＳです。

'ここより下
Dim　FSO
Dim　Fname2

Set　Fname　=　WScript.Arguments
If　Fname.Count　=　0　Then
　　　　WScript.Echo　"Excelアドインファイル(xla)をドラッグしてください。"
　　　　WScript.Quit
End　If

Ext　=　LCase(Right(Fname(0),　4))
If　Not　(Ext　=　".xla")　Then
　　　　WScript.Echo　"このファイルはExcelアドインファイルではありません。"
　　　　WScript.Quit
End　If

Set　FSO　=　CreateObject("Scripting.FileSystemObject")
Fname2　=　FSO.GetParentFolderName(WScript.ScriptFullName)　&　"\"　&　FSO.GetBaseName(Fname(0))　&　".xla"

With　CreateObject("Excel.Application")
FSO.MoveFile　Fname2,　.UserLibraryPath　&　FSO.GetBaseName(Fname(0))　&　".xla"
End　With
'ここより上

新規テキストファイルを作成します。
そこへ上記のコードをコピペして上書き保存します。
ファイルの名前を変更します。
この時、拡張子".txt"を".vbs"にします。（ファイル名自体はお好みで）
アドインファイル".xla"を作成した"～.vbs"のアイコンの上に
ドラッグで重ねます。
そうするとアドインのフォルダに移動するはずです。