7

アドイン (.XLAM) の作成に使用するワークシートをユーザーが時々更新しています。アドインはネットワーク共有にあり、ユーザーはそれにリンクします。ユーザーがこのアドインを簡単に更新できるようにしたい (読み取り専用としてマークされていることを確認する)

ここで Ken PulsによるExcel アドインの展開に関する記事を見ましたが、.SaveCopyAs彼が使用する方法はファイル タイプを受け入れることができないようです。

この.SaveAs方法はそうですが、これを試したときに、ファイル形式または拡張子が無効であるというメッセージが表示されました。以下のように、.XLAM と .XLA の両方を試しました。

DeployPath = "C:\Menu.xlam"
.SaveAs Filename:=DeployPath, ReadOnlyRecommended:=True, FileFormat:=xlOpenXMLAddIn

この点で何か助けていただければ幸いです。

4

2 に答える 2

6

使用する必要があると思います（Excel 2003以前）

ThisWorkbook.IsAddin = True
ThisWorkbook.SaveAs "fredyy", xlAddIn

Excel 2007 以降で使用する場合

ThisWorkbook.SaveAs "fredyy", xlOpenXMLAddIn
于 2010-12-22T19:39:05.770 に答える
4

これは私のために働いた解決策です：

Dim strRawName As String
strRawName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1))
ThisWorkbook.IsAddin = True
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & strRawName & ".xlam", FileFormat:=xlOpenXMLAddIn
于 2013-12-27T16:26:22.120 に答える