2020年6月5日
VBA常用自定义函数(3) - 从MySQL数据库取数
摘要： 需要安装对应驱动程序: mysql-connector-odbc 输出的数组首行为表头 '从Mysql中取数并转换为二维数组 Public Function GetMySQlArr(ByVal SQLStr As String) Dim TempArr, AimArr Dim i As Long, 阅读全文
posted @ 2020-06-05 11:42 何未生 阅读(415) 评论(0) 推荐(0) 编辑
VBA常用自定义函数(2) - 检查工作簿是否存在
摘要： '检查工作表是否存在 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 何未生 阅读(414) 评论(0) 推荐(0) 编辑
VBA常用自定义函数(1) - 列数转列名&列名转列数
摘要： '列数转字母 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 何未生 阅读(571) 评论(0) 推荐(0) 编辑