需求：经常阅读网上的研报（没钱买排版漂亮的高质量研报），有些需要保存的复制下来到word里，图片很大都超出word的边界了，也没有居中，手工一张张调整不现实，上百页的研报，几十张图片。解决方案：利用VBA宏批量解决。第一种方法经过测试，只是前面部分有些，后面部分无效。 Sub setpicsize() '设置图片尺寸
'第一种方法，经测试，文档前面部分图片有效，后面部分无效
'
总结使用ADO访问各种形式的数据
ADO是基于OLE DB的数据访问技术。它不直接与数据交互，而是把这个任务交给了OLE DB，这么做带来了相当好的可扩展性和适应性。它提供了编程语言和统一数据访问方式；它允许开发人员编写访问数据的代码而不用关心数据库是如何实现的，而只用关心数据库的连接。由于ADO是基于COM实现的，所以基本上任何语言都可以使用这种数
转载
2024-01-05 22:37:40
319阅读
在Access中，我们通过创建表、查询、窗体、报表、页、宏等对象，可以将数据整合在一起，快速建立数据库管理系统。但是通过这些对象创建的数据管理系统有一定的局限性，无法实现复杂的数据管理。而VBA则可以对Access的数据管理功能进行扩展，使开发出来的系统更具灵活性和自主性，可以完成一些无法实现的功能。在进入 VBA 编程之前， 首先需要了解VBA 支持的数据类型，因为不同的数据类型有着不同的存
转载
2024-04-30 17:53:19
357阅读
下面的东西是网络上找的。整理一下，方便以后参考。
Dim 我就不写了，整个程序我也不写了，只写你需要的
Dim rag as object 其他的都是int
a = Sheets("期房").[b65536].End(xlUp).Row
j = Sheets("录入").[c65536].End(xlUp).Row
b =
转载
精选
2011-02-13 19:49:24
1956阅读
ive/2009/06/17/1505153.html
转载
2023-08-02 17:25:49
197阅读
9/04/30/1446619.html目录 AutoFilter Binding Cell Comments Cell Copy Cell Format Cell Number Format Cell Value Cell A
转载
2023-08-10 13:54:19
253阅读
CountA Evaluate Excel to XML Excel ADO Excel to Text File Excel Too
转载
2023-08-02 17:24:36
186阅读
activeCell() If ActiveC
转载
2023-08-03 15:57:52
212阅读
1.添加引用Microsoft Outlook 11.0 Object Library。（这里用的是Microsoft Outlook 2003）
2.定义发送邮件过程。Public Sub SendEmail(Receiver As String, SubjectText As String, BodyText As String, AttachedObject As String)
转载
2009-05-08 14:07:00
621阅读
2评论
Asc函数：返回当前字符串首字符DBCS的字符集编码 AscB函数：返回字符串首字节，汉字是俩字节 AscW函数：返回字符串首字符的Unicode编码 Round（）函数：真正的四舍五入，小数后保留两位 CInt（）函数：不四舍五入，直接截掉小数部分&
临时接到一个Excel表，要执行统计工作，手工做法很麻烦，应用VBA稍微熟悉一点。 很长时间不做的话就会陌生，写一点记录以备后查。 1、在一个模块中定义结构体，用于记录数据，一般是针对一行一个结构体。'定义物料编码的结构体PublicTypeWZStructWLBMAsString'物料编码WLZAsString'物料组WLMSAsString'物料描述DWAsString'单位WLSum2
原创
2019-11-11 18:50:45
1034阅读
Excel在处理普通数据方面固然有其独特的优势，但是也有一些劣势，主要体现在以下两个方面：第一个方面：在处理超过100万以上级别的数据时，Excel会显得非常吃力，光打开表格就会比较慢，每增加一次运行就需要卡段几分钟。第二个方面：在多人协同方面，Excel虽然可以实现文件共享多人编辑，但是编辑容易起冲突，而且无法实现编辑结果的汇总。对于Excel存在的上述劣势，此时可以结合Access就能弥补Ex
转载
2024-03-18 11:27:27
182阅读
终于开始盼望已久的VBA中级班！很荣幸地成为中级班的第一批学员，现在就让我们开始VBA新的旅程吧！1 变量的命名规则1.1 变量有些数据是在程序执行中会发生变化的，为此我们分配一个内存中的位置，来存储这些不确定的数据，这就是变量。每一变量都有变量名，在同一范围内必须是唯一的。可以指定数据类型，也可以不这么做。1.2 变量命名规则变量名必须以字母开头（中文版可以中文开头），由字母、数字和下划线组成（
如何使用宏：常规宏VBA-一般都是此类 1、调出-开发工具
Excel中默认开发工具是隐藏起来的，第一步先调出该次选项卡> 文件-选项-自定义功能区-开发工具(√) 2、进入VBE(粘贴代码的地方)
方法1：ALT+F11(快捷键)直接按下键盘上的ALT，不松手的情况下，另一只手按下F11方法2：点击 开发工具-Visual Basic，进入方法3：右
转载
2023-11-15 15:22:34
96阅读
1、如何复制按平时的操作习惯可以知道，只需定位第1个位置即可。 '如果想通过复制/粘贴方式呢,只需指定第1个单元格即可. With Workbooks("验证Range.xls").Sheets(2) .Range("A1").Curren
一、宏与VBA什么是宏与VBAVBA（Visual Basic for Applications）是[Visual Basic](https://baike.baidu.com/item/Visual Basic)的一种宏语言，是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能，特别是[Microsoft Office](https://bai
1 find()1.1 worksheetfunction.find()工作表函数FIND(find_text, within_text, [start_num])FINDB(find_text, within_text, [start_num]) 中文字符等会识别为2位返回的是 要查找的内容在字符串内的位数。 局限性区分大小写，不允许通配符&nbs
转载
2023-08-24 18:32:08
812阅读
我是纯小白自学的，很多科班出身的同学可能不会遇到我这样的小白问题，但可能我的小白思路，对其他后来的一些小白有用，所以总结一下~ 1 为什么要调试因为你的程序会出错啊有的出错会跳出报错有的出错不会跳出报错，但会返回错误值 2 怎么调试1 遇到报错了再调试，大家最普遍遇到的一种2 设置断点调试，这个可以逐步分割程序，查看每部分的问题3 用立即窗口+debug.print 这样的脚手
转载
2024-06-20 15:07:55
121阅读
VBA简介VBA（Visual Basic for Applications）是Visual Basic的一种宏语言，是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能，特别是Microsoft Office软件。它也可说是一种应用程式视觉化的 Basic 脚本。用我的话来说：因为其他语言难以读/写word和excel，即Microsof...
原创
2023-01-16 17:15:29
690阅读
两天帮朋友写了个VBA小程序，自我感觉不错。有些小东西记录下： 一、关于工作表隐藏： Sheet1.Visible有三个属性，xlSheetVisible是显示，xlSheetHidden是隐藏，xlSheetVeryHidden也是隐藏，和xlSheetHidden的区别是用xlSheetVeryHidden隐藏的只能在VBA里打开，从菜单里都不能取消隐
转载
2024-05-07 10:51:51
406阅读
