0

私はExcelアドインを開発しています。シリアル番号(例: 100 psc)があり、PC に Excel アドインをインストールするときに確認したい。しかし、VS2010 セットアップ プロジェクトでは、シリアル番号リストの保存と確認がサポートされていないため、実行できません。

だから私はsetup factoryでこれをやりたいと思っていて、私はこのリンクのようにしました： リンク

しかし、私はExcelに問題があります。 ここに画像の説明を入力

「はい」を選択すると、Excel で .dll を開くことができます。「いいえ」を選択すると、何でも実行されます。

ここに画像の説明を入力

このような私のセットアップ工場リスト。 ここに画像の説明を入力

私のセットアップ ファクトリは「ポスト インストール スクリプトで」、私の Addinfilename 値は「Posta Guvercini Excel AddIn For 2010.dll」です。

    -- Determine registry key (2 = HK CURRENT USER)
sVersions = Registry.GetKeyNames(2, "Software\\Microsoft\\Office");

-- Iterate through the registry keys per MS Office-version
--Next line has SetupFactory 8 code
--for iCount1, sVersion in sVersions do    
for iCount1, sVersion in pairs(sVersions) do    

    -- Try opening the registry key
    sSubKey = "Software\\Microsoft\\Office\\"..sVersion..
              "\\Excel\\Options\\"
    sValues = Registry.GetValueNames(2, sSubKey);

    --initialize index counter
    iIndex = -2
    if sValues then

        --Determine the index of the maximimum OPEN registry entry
        --Next line has SetupFactory 8 code
        --for iCount2, sValue in sValues do
        for iCount2, sValue in pairs(sValues) do

            if (String.Left(sValue, 4) == "OPEN") then            
                --Check whether the user did not already install
                --the same add-in to prevent errors when opening Excel
                sKeysValue = Registry.GetValue(2, sSubKey, sValue, true)  
                if String.Find(sKeysValue, SessionVar.Expand(
                              "%AddinFileName%"), 1, false) > 0 then
                    iIndex = -1
                    -- leave loop
                    break;
                else
                    if (sValue == "OPEN") then
                        iIndex = 0
                    else
                        iIndex = String.ToNumber(String.Mid(
                                 sValue, 5, String.Length(sValue)-4))
                    end;
                end;
            end;
        end;

        -- -1 means: This add-in is already installed; we're done
        if iIndex ~= -1 then        
            --Determine path based on variable "%AddinFileName%
            sAppPath = String.Char(34)..
                       SessionVar.Expand("%AppFolder%")..
                       "\\"..
                       SessionVar.Expand("%AddinFileName%")..
                       String.Char(34)

            -- -2 is the initialized value of the index counter
            if (iIndex == -2) then
                -- OPEN-key does not exist
                Registry.SetValue(2, sSubKey, "OPEN",
                                  sAppPath, REG_SZ)
            else
                Registry.SetValue(2, sSubKey, "OPEN"..(iIndex + 1),
                                  sAppPath, REG_SZ)
            end;
        end;
    end;
end;
4

2 に答える 2

0

私はこの問題を解決します。Excel のインストールを行う場合、レジストリ レコードを使用する必要があります。

result = Registry.SetValue( HKEY_LOCAL_MACHINE, "Software\\Microsoft\\Office\\Excel\\Addins\\company" , "LoadBehavior" , "3" , REG_DWORD );
result = Registry.SetValue(HKEY_LOCAL_MACHINE, "Software\\Microsoft\\Office\\Excel\\Addins\\company" ,"FriendlyName", "program name", REG_SZ);
result = Registry.SetValue( HKEY_LOCAL_MACHINE, "Software\\Microsoft\\Office\\Excel\\Addins\\company" , "Description" , "program name" , REG_SZ );
result = Registry.SetValue(HKEY_LOCAL_MACHINE, "Software\\Microsoft\\Office\\Excel\\Addins\\company" ,"Manifest", SessionVar.Expand("%AppFolder%\\myvtofile.vsto|vstolocal"), REG_SZ);

エクセル起動時のアドイン起動用。

LoadBehavior キーの値は「3」である必要があります。

于 2012-05-24T15:17:59.143 に答える
0

Automation アドインを作成しているようです。
その場合は、アドイン名の前に /A を付けて、それがオートメーション アドインであることを Excel に伝える必要があります。それ以外の場合は、XLL または XLA または XLAM が必要です

于 2012-05-15T18:34:05.037 に答える