06 2020 档案

摘要:使用winrar将exe和其依赖的dll打包成一个exe文件。 1.先将exe和dll打包成rar压缩包。 2.点击右侧“自解压格式”。 3.点击“高级自解压选项” 4.在“设置”中的“提取后运行”输入框中输入运行程序的路径。(我这里由于是直接压缩的整个文件夹,所以斜杠前是文件夹名称)。 5.在“模 阅读全文
posted @ 2020-06-30 14:51 何未生 阅读(3269) 评论(0) 推荐(0)
摘要:刚开始学习VBA的时候,保存自定义数据用的隐藏工作表;后来学了VSTO,把自定义数据保存到XML文件中;最近继续深入学习,发现可以直接在xlsx文件中保存自定义数据,这里就列出使用方法。 除了以上几种保存方式,还可以保存为JSON格式,或者直接在xlsx文件中写入xml。各种方式都有适合的应用场景, 阅读全文
posted @ 2020-06-24 12:24 何未生 阅读(582) 评论(0) 推荐(0)
摘要:由于集团填报预算的Excel插件使用的是侧边自定义面板,感觉这种形式恰好比较适合手头的项目,所以把自己的插件改成侧边面板形式。 Excel侧边面板可以直接添加“用户控件(windows窗体)”格式,类为:System.Windows.Forms.UserControl,也可以引入WPF的控件。 我创 阅读全文
posted @ 2020-06-16 18:01 何未生 阅读(2871) 评论(0) 推荐(0)
摘要:需要安装对应驱动程序: mysql-connector-odbc 输出的数组首行为表头 '从Mysql中取数并转换为二维数组 Public Function GetMySQlArr(ByVal SQLStr As String) Dim TempArr, AimArr Dim i As Long, 阅读全文
posted @ 2020-06-05 11:42 何未生 阅读(442) 评论(0) 推荐(0)
摘要:'检查工作表是否存在 Public Function SheetExist(strSearchFor As String) As Boolean Dim InterimSheet As Object SheetExist = False For Each InterimSheet In Active 阅读全文
posted @ 2020-06-05 11:34 何未生 阅读(452) 评论(0) 推荐(0)
摘要:'列数转字母 Public Function CNtoW(ByVal number As Long) As String CNtoW = Replace(Cells(1, number).Address(False, False), "1", "") End Function '字母转列数 Publ 阅读全文
posted @ 2020-06-05 11:31 何未生 阅读(607) 评论(0) 推荐(0)