' 将一个正数除以 y 返回一个整数或分数 Function RFs(ByVal x As Integer) As String Then RFs = Exit Function End If Dim div_result, div_remain, y, i As Integer y = div_result = x \ y div_remain = x Mod y Then RFs = x / y Exit Function Else Dim z As Integer If div_remai…

继续上次没有写完的随笔,本来是很想一次性写完的,但是到中午一点了还没有吃东西,其实饿的不行了,还好写博客时会自动保存,中间电脑实然蓝屏,花了二个多小时写的没有点击保存,吓我一下,以为会全没了. 前面讲到的证书,对大多数公司来说,对安全要求不高的,可能也就不会去管这个东东了,只有像一些金融或政府的软件会对这个东西加安全证书,我到现在对它的了解也不是很深,先看一下它的样子:…

---恢复内容开始--- 在说这个话题之前,我先解释一下为什么要加数字证书签名,它有什么作用,后面再解释如何添加.首先解释下证书添加的位置,如下图所示: 1.单击左上角的Office 按钮,选择右下角的Excel选项.…

VBA调用InternetExplorer操作IE浏览器,自动弹出文件选择对话框时,VBA会处于阻塞状态,你必须手工关闭文件选择对话框,VBA才能继续向后运行. 例如下面网址,就有一个文件浏览按钮: http://www.zytxs.com/web1/upload.aspx 我做了一个exe文件,可以在另一个进程中来处理文件对话框. Sub Test() Dim File As MSHTML.HTMLInputFileElement Dim WSH As Object Set File = IE…

目录 环境说明逻辑结构效果说明及截图①.安装SecureCRT②. 自动巡检脚本③. 数据检索并FTP传送④. 安装Excel 2013⑤. 安装Serv-U⑥. 自动生成图表并邮件发送 环境说明 系统: Windows Server 2003, Windows Server 2008 Windows Server 2003上目录结构: Windows Server 2008 上的目录结构: 系统说明: 可在一台机器上进行[Windows Server 2008支持Excel 2013], 本文…

本文参考[东围居士]的cnblog博文  Excel.VBA与MySQL交互  在自己机器上调试成功,把调试中遇到的问题一并写出了. 本文主要涉及: VBA中的MySQL环境配置 VBA连接MySQL数据库 VBA读写MySQL数据 在Excel中连接MySQL数据库及数据读写 系统环境: Windows 7 64bit Excel 2016 32bit WAMP(3.0.6 32bit)集成的MySQL版本为5.7.14 1. VBA连接MySQL前的环境配置 如果想连接本地数据库,必须先安装…

(Visual Basic Application) VBA(Visual Basic for Application)是Microsoft Office系列软件的内置编程语言,其语法结构与Visual Basic编程语言互相兼容,采用的是面向对象的编程机制和可视化的编程环境. 第一节 标识符 一．定义 标识符是一种标识变量.常量.过程.函数.类等语言构成单位的符号,利用它可以完成对变量.常量.过程.函数.类等的引用. 二．命名规则 1)  字母打头,由字母.数字和下划线组成,如 A987b_2…

import java.util.Scanner; public class Suan { public static void main(String[] args) { int []b;//设置数组来存放随机产生数 b=new int [4]; Scanner in=new Scanner(System.in); System.out.println("请选择你想练习的题型:"); System.out.println(" 1.分数的加减乘数法练习!"); Sy…

1.VBA数据类型 数据类型 存储空间大小 范围 Byte 1个字节 0-255 Boolean 2个字节 true或false Integer 2个字节 -32768-32767 Long 4个字节 — Single 4个字节 — Double 8个字节 — Currency 8个字节 — Decimal 14个字节 — Date 8个字符 — Object 4个字节 任何Object引用 String(变长) 10字节加字符串长度 0到大约20亿 String(定长) 字符串长度 1到大约6…

想利用VBA自动创建/发送OUTLOOK邮件,可以借助MailItem的Body属性或HTMLBody属性,代码模板如下: Dim objOutlook As Outlook.Application '需要引用Microsoft Outlook 16.0 Object Library对象模型 Dim objMail As MailItem Set objOutlook = New Outlook.Application Set objMail = objOutlook.CreateItem(ol…