随笔分类 -  VBA工具代码

摘要:背景 大批量的进行添附文件和发送邮件,如果一个一个操作的话比较慢,所以打算用VBA来调用,进行发送邮件。 subject:发送邮件的主题 body:发送邮件的内容 outlook指定アドレス:outlook可以登入多个邮件的账号,是指定用哪一个邮件进行发送 环境:指定用测试环境还是真正的环境来进行测 阅读全文
posted @ 2021-07-08 10:38 不刷牙的大虫子 阅读(375) 评论(0) 推荐(0)
摘要:背景:当你输日文汉字的额时候,输出它的读音。 如下图所示 实现的代码如下 阅读全文
posted @ 2019-06-27 16:38 不刷牙的大虫子 阅读(595) 评论(0) 推荐(1)
摘要:'-------------------一覧取得----------------------------- Sub getRedmineGrid_Click() Dim wb As Workbook Dim sheet As Worksheet Dim path As String path = ThisWorkbook.path & "\issues.xls" ... 阅读全文
posted @ 2018-10-11 17:54 不刷牙的大虫子 阅读(834) 评论(0) 推荐(0)
摘要:1.取得日文汉字的读音的方法(例如強→キョウ) Application.Getphonetic(str) 2.保存Excel文件时不弹出是否保存的alter wb.close(false) 3.提示消息不要 Application.displayAlter =false 4.Excel的sheet比 阅读全文
posted @ 2018-08-07 12:49 不刷牙的大虫子 阅读(349) 评论(0) 推荐(0)
摘要:'在使用下面的代码之前一定要导入包文件(Mictosoft Scripting Runtime),否则有一些文件无法执行过去dim arrFiles(1 to 100) dim cntFile sub GetFile_click() dim strPath as string dim fso as new FileSystemObject dim fd as Folder... 阅读全文
posted @ 2018-08-07 12:33 不刷牙的大虫子 阅读(203) 评论(0) 推荐(0)
摘要:问题描述 用VBA来取出MySQL数据库中的所有表的结构后生成一个Excel的文档 首先创建MySQL的数据源,如何创建数据源在前章已经写过,之后把下面的信息填写上即可 在window7 64位系统上面可能会出现错误,出错的原因是因为mysql的驱动问题,你需要安装window7的32位的MySQL 阅读全文
posted @ 2018-08-06 13:33 不刷牙的大虫子 阅读(996) 评论(0) 推荐(0)
摘要:PostgreSql: 第一步 在网上下载postres的驱动程序,之后安装,下载地址:https://www.devart.com/odbc/postgresql/download.html 第二步 创建ODBC数据源 点击“开始-》控制面板-》管理工具-》数据源(ODBC)-》用户DSN-》添加 阅读全文
posted @ 2018-08-01 17:10 不刷牙的大虫子 阅读(1014) 评论(0) 推荐(0)