Excel催化剂开源第2波-自动检测Excel的位数选择对应位数的xll文件安装

Posted 2021-01-31 excelcuihuaji

Excel插件的部署问题难倒了不了的用户，特别是VSTO的部署，用ExcelDna开发的xll文件部署方便，不挑用户机器环境，是其开发Excel插件的一大优势。

其开发出来的xll文件，最终还是需要考虑用户机器Excel位数的问题，32位的Excel安装32位的xll文件，同理64位安装64位的xll。

如何判断用户机器是32位还是64位的OFFICE，并将对应位数的xll文件安放到用户机器上，这个问题之前笔者曾经花时间找过资料，最终实现了想要的功能效果。

同样的因笔者非专业程序猿，可能写出来的代码严谨性有限，仅供参考。

using System;
using System.Collections.Generic;
using System.Diagnostics;
using System.Linq;
using System.Runtime.InteropServices;
using System.Text;
using System.IO;
namespace _20171207自定义函数安装
{
    class Program
    {
        private static string dstFileName = "ExcelUdf.xll";//用户电脑上的文件名

        [DllImport("kernel32.dll", SetLastError = true, CallingConvention = CallingConvention.Winapi)]
        [return: MarshalAs(UnmanagedType.Bool)]
        internal static extern bool IsWow64Process([In] IntPtr process, [Out] out bool wow64Process);
        static void Main(string[] args)
        {
            InstallExcelUdfAddins();

        }

        private static void InstallExcelUdfAddins()
        {
            Console.WriteLine("正在安装中，请稍等。");
            dynamic excelComObj;
            bool isExitExcel = false;

            try
            {
                excelComObj = Marshal.GetActiveObject("Excel.Application");
                Console.WriteLine("检测到当前有已打开的Excel程序
请注意关闭Excel程序并保存后内容后再运行，防止数据丢失造成损失！");
                Console.WriteLine("请退出Excel后按Y键继续，，按其他键退出程序。
若未发现Excel程序已打开，同样按Y键程序强制继续，按其他键退出程序。");
                string input = Console.ReadLine();
                if (input.ToUpper() == "Y")
                {
                    isExitExcel = true;
                }
                else
                {
                    return;
                }
            }
            catch (Exception)
            {
                excelComObj = CreateExcelApp();
                isExitExcel = true;
            }



            if (isExitExcel == true)
            {
                bool is64BitWindows = Environment.Is64BitOperatingSystem;
                bool retVal;
                bool is64BitProcess = false;
                foreach (var item in Process.GetProcesses())
                {
                    if (item.ProcessName.ToLower() == "excel")
                    {
                        try
                        {
                            if (is64BitWindows)//仅当系统是64位时才需要判断，若为32位肯定是32位的OFFICE
                            {
                                is64BitProcess = !(IsWow64Process(item.Handle, out retVal) && retVal);
                            }
                        }
                        catch (Exception)
                        {
                        }
                        item.Kill();//强制性退出，已经通知过用户关闭Excel再运行，未关闭完的就强制退出。
                    }

                }
                CopyFileToAddinsDirectoryAndStartAddin(is64BitProcess);
                Console.WriteLine("安装完成，请按任意键退出程序！");
                Console.ReadKey();
            }
        }

        private static dynamic CreateExcelApp()
        {
            dynamic excelComObj;
            System.Type oType = System.Type.GetTypeFromProgID("Excel.Application");
            excelComObj = System.Activator.CreateInstance(oType);
            excelComObj.DisplayAlerts = false;
            return excelComObj;
        }

        private static void CopyFileToAddinsDirectoryAndStartAddin(bool is64BitProcess)
        {
            string dstDir = GetdstDir();
            string srcfilePath = Path.Combine(Path.GetTempPath(),dstFileName );
            byte[] resFilebytes;
            if (is64BitProcess)
            {
                resFilebytes = Properties.Resources.ExcelUDF_AddIn64_packed;

            }
            else
            {
                resFilebytes = Properties.Resources.ExcelUDF_AddIn_packed;
            }

            using (FileStream fileStream = new FileStream(srcfilePath, FileMode.Create))
            {
                fileStream.Write(resFilebytes, 0, resFilebytes.Length);
            }

            File.Copy(srcfilePath, Path.Combine(dstDir, dstFileName), true);

            dynamic excelApp = CreateExcelApp();
            foreach (var item in excelApp.AddIns)
            {
                string addinsName = item.Name;
                if (addinsName==dstFileName)
                {
                    item.Installed = true;
                }
            }
            excelApp.Quit();
            Marshal.ReleaseComObject(excelApp);
            excelApp = null;
            GC.Collect();
        }

        private static string GetdstDir()
        {
            string appDataDir = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData);
            string dstDir = Path.Combine(appDataDir, @"MicrosoftAddIns");
            if (Directory.Exists(dstDir))
            {
                Directory.CreateDirectory(dstDir);
            }

            return dstDir;
        }
    }
}

开源地址为：https://github.com/minren118/ExcelUdfByExcelCuiHuaJi，不妨对您有帮助时帮忙在GtiHub上点个赞。

登录Github后点击红框给个星星

技术交流QQ群

QQ群名：Excel催化剂开源讨论群， QQ群号：788145319

 

Excel催化剂开源讨论群二维码

关于Excel催化剂

Excel催化剂先是一微信公众号的名称，后来顺其名称，正式推出了Excel插件，插件将持续性地更新，更新的周期视本人的时间而定争取一周能够上线一个大功能模块。Excel催化剂插件承诺个人用户永久性免费使用！

Excel催化剂插件使用最新的布署技术，实现一次安装，日后所有更新自动更新完成，无需重复关注更新动态，手动下载安装包重新安装，只需一次安装即可随时保持最新版本！

Excel催化剂插件下载链接：https://pan.baidu.com/s/1Iz2_NZJ8v7C9eqhNjdnP3Q

联系作者

公众号

取名催化剂，因Excel本身的强大，并非所有人能够立马享受到，大部分人还是在被Excel软件所虐的阶段，就是头脑里很清晰想达到的效果，而且高手们也已经实现出来，就是自己怎么弄都弄不出来，或者更糟的是还不知道Excel能够做什么而停留在不断地重复、机械、手工地在做着数据，耗费着无数的青春年华岁月。所以催生了是否可以作为一种媒介，让广大的Excel用户们可以瞬间点燃Excel的爆点，无需苦苦地挣扎地没日没夜的技巧学习、高级复杂函数的烧脑，最终走向了从入门到放弃的道路。

最后Excel功能强大，其实还需树立一个观点，不是所有事情都要交给Excel去完成，也不是所有事情Excel都是十分胜任的，外面的世界仍然是一个广阔的世界，Excel只是其中一枚耀眼的明星，还有其他更多同样精彩强大的技术、工具等。*Excel催化剂也将借力这些其他技术，让Excel能够发挥更强大的爆发！

关于Excel催化剂作者

姓名：李伟坚，从事数据分析工作多年（BI方向），一名同样在路上的学习者。
服务过行业：零售特别是鞋服类的零售行业，电商（淘宝、天猫、京东、唯品会）

技术路线从一名普通用户，通过Excel软件的学习，从此走向数据世界，非科班IT专业人士。
历经重重难关，终于在数据的道路上达到技术平原期，学习众多的知识不再太吃力，同时也形成了自己的一套数据解决方案（数据采集、数据加工清洗、数据多维建模、数据报表展示等）。

擅长技术领域：Excel等Office家族软件、VBA&VSTO的二次开发、Sqlserver数据库技术、Sqlserver的商业智能BI技术、Powerbi技术、云服务器布署技术等等。

2018年开始职业生涯作了重大调整，从原来的正职工作，转为自由职业者，暂无固定收入，暂对前面道路不太明朗，苦重新回到正职工作，对Excel催化剂的运营和开发必定受到很大的影响（正职工作时间内不可能维护也不可能随便把工作时间内的成果公布于外，工作外的时间也十分有限，因已而立之年，家庭责任重大）。

和广大拥护者一同期盼：Excel催化剂一直能运行下去，我所惠及的群体们能够给予支持（多留言鼓励下、转发下朋友圈推荐、小额打赏下和最重点的可以和所在公司及同行推荐推荐，让我的技术可以在贵司发挥价值，实现双赢（初步设想可以数据顾问的方式或一些小型项目开发的方式合作）。