如果系统没有Winsock控件的话,可以下载下面的控件MSWINSCK.OCX,然后将该文件复制到C:\Windows\System32目录下. 在VBE窗口中,从菜单"工具"->"引用"中,点击"浏览"按钮,选择MSWinSCK.ocx文件,再从"工具箱"的"附加控件"中选择Microsoft Winsock Control. 此时使用Winsock控件的话,将会出现提示不安全的ActiveX控件的

问题描述 用VBA来取出MySQL数据库中的所有表的结构后生成一个Excel的文档 首先创建MySQL的数据源,如何创建数据源在前章已经写过,之后把下面的信息填写上即可 在window7 64位系统上面可能会出现错误,出错的原因是因为mysql的驱动问题,你需要安装window7的32位的MySQL驱动.这样就不会出现问题. 在window10上面则没有这种问题. 说明 DSN是你所创建的数据源的名称 SERVER是你本地的数据库 DB是你的数据库的名称 UID是登入数据库的用户名 PWD是登入

VBA 格式化字符串 VBA 的 Format 函数与工作表函数 TEXT 用法基本相同,但功能更加强大,许多格式只能用于VBA 的 Format 函数,而不能用于工作表函数 TEXT ,以下是本人归纳的几点用法,希望对学习VBA有所裨益.Format(值,格式(可选参数))一.数字格式:1.General Number:普通数字,可以用来去掉千位分隔号和无效 0 .如:Format("1,234,567.80", "General Number")="1

1. Range / Cells / Columns / Rows 2. 绝对引用 $F$13 / 相对引用 F13 公式所在单元格的被复制到其他位置时,绝对引用不变 3. VLookup / NLookup / LLookup 4. =if(ISNA(C1:C17); "There are #N/A's in one of the cells"; "") other similars: ISERROR(), ISERR(), ISBLANK(), ISEVEN()

打算花两三天学习VBA的基础,学习资料为<别怕,VBA其实很简单>,为了快速学习,先了解大致框架,后续再深入学习各种属性.方法和技巧. 1.VBA编程环境基本操作,手工操作,熟悉即可 2.了解过程:Sub(对应宏)和Function(对应函数) Sub过程对应手工录制的宏代码,是一堆操作的集合 Function过程是Excel的函数代码,我们可以自己编写,然后再窗口界面调用 要注意,Excel界面的函数和VBA的内置函数是不同的!Function编写的就相当于Excel的界面函数 3.VBA的

VBA实际上就是操作Excel,把Excel进行拆解,划分多层对象,由顶至下为(也可以说是层层包裹): Application:代表Excel程序本性,之后我们操作对象都在它之下,因为是唯一且至高点,所以代码中可以忽略不写它,因为必定是它的. Workbook:代表一个工作薄,加个s后的Workbooks代表当前打开的所有的工作薄. Worksheet:代表一个工作表,加工s后的Worksheets代表当前工作薄的所用工作表. Range:可以理解为一个工作表中的工作范围.同等级的还有Rows和

'================================ ' VBA采用Application.OnTime实现计时器 ' ' http://www.cnhup.com '================================ Public RunWhen As Double ' two minutes Public Const cRunWhat = "TheSub" ' the name of the procedure to run Sub StartTimer

早就写好了,看这方面资料比较少,索性贴出来.只是一个DEMO中的,没有做优化,代码比较草.由于没地方上传附件,所以只把一些主要的代码贴出来. 这只是服务端,不过客户端可以反推出来,其实了解了websocket协议就简单多了...开始了... 请求头构造: req_heads = "HTTP/1.1 101 Web Socket Protocol Handshake" & vbCrLf req_heads = req_heads & "Upgrade: webs

今天遇到一个任务,要把excel中的相同行合并:没有找到直接的办法(vlookup大概能做),试了试VBA挺好用 数据结构 第一.二列是描述字段,第二列元素唯一:第三到第八列是标志位 任务 合并描述字段相同的行,描述字段不变,标志位合并 方法: 1.录制空宏(命名为test1),查看宏进入VBA编辑器模式 2.代码 Sub test1() Dim i As Integer Dim j As Integer i = 2 '跳过标题行 ).Value <> "" ).Value

一直以来,ArcGIS10.1 的VBA安装后,菜单栏里也没相关菜单,听说是许可的问题,直到遇到这个问题才知道真正的原因. 由于项目需要使用了ArcGIS10.0, 不知道操作了什么,打开ArcMap就报这个错: 于是尝试去百度上搜索VBA安装包,居然没找到,然后又去桌面安装包里去找,找到了SDK VBA,安上就对了. 安装好这个VBA菜单也可以看得到了. 参考: http://blog.csdn.net/sydbc/article/details/17173833

今天项目组的一个同事问我如何快速的找到一个Excel中第3列和第5列的值完全重复的值,我想了想虽然Excel中自带查找重复值的功能,但是好像只能对同一列进行比较,所以就写了一个VBA进行处理,VBA非常简单,但效果不错. Sub FindDuplicatesInColumn() Dim lastRow As Long Dim matchFoundIndex As Long Dim iCntr As Long lastRow = ' 初始化临时列, 第7列用来存放结果,第8列将3 5两列的值拼接起

数据类型 VBA提供了15种标准数据类型,具体见下表: 变量 Sub 变量学习() 'Dim 变量名 As 数据类型 Dim str1 As String '声明定长的String变量 '使用变量类型声明符 Dim str3$ '声明多个变量 Dim Str As String, nu As Integer '如果不指明变量类型,默认为Variant Dim Str End Sub 数据类型 类型声明符 Integer % Long & Single ! Double # Currency @

开启VBA编程环境--VBE 方法一:按<Alt+F11>组合建 方法二:查看代码 宏设置 当然启用宏的设置方式不同,宏的启动方式也不一样. 首先打开"office 按钮",选择"excel选项"--"信任中心"--"信任中心设置". 进入"信任中心设置"界面后,选择"宏设置",在"宏设置 "中有启动宏的不同方式. 如果选择"禁止所有宏,并不通知

在工作中,经常会碰到从一堆腐朽的source中按照一个列表去筛选出来现在还要用的source文件. 这个如果用vba来实现的话,会节省大量的时间,而且不会出错. 前提说明: 将想要复制的文件名列表放在第一sheet的第一列,然后执行程序 首先选择源目录和目标目录, 然后会从源目录中查找文件,将存在的文件自动复制的目标目录中, 不存在的文件,记录在第二列里. Sub fileFilter() Dim folderOld As String Dim folderNew As String Dim f

Appears OK to me but the error message " Cant find project or library." suggests it could possibly be the references in VBA. In VBA select menu item Tools - References. Ensure that the following are checked:- Visual Basic for Applications Micros

compared all possibilities with a long test sheet: 0,140625 sec for lastrow = calcws.Cells.Find("*", [A1], , , xlByColumns, xlPrevious).row 0 sec for iLastRow = calcws.Cells(rows.count, "a").End(xlUp).row and numofrows = calcws.Cells.S

使用Excel VBA实现Outlook自动发送邮件 | 在工作上我们都会遇到批量发送邮件的情况,面对重复而规律性的工作,可以使用Excel的VBA实现自动批量化发送邮件.大大减小工作时间,提升工作效率. 工具/原料 Excel Outlook 方法/步骤 打开Excel,将Excel另存为.xlsm(启用宏的文档)格式,如图所示. 生成.xlsm格式的Excel后,在键盘上按Alt+F11,弹出VBA代码编辑器,在当前Excel的文件目录下点击鼠标左键,弹出选择框,选择插入,选取点击模块.如图

Excel里使用VBA对已经合并的单元格添加注释,直接使用AddComment会报: 运行时错误 '1004':应用程序定义或者对象定义错误 找了很多文章都没找到怎么解决,最后发现在AddComment之前,先ClearComments一下,就好了 Excel using vba to add comment to a merged cell if occur runtime error 1004, before invoking addcomment, first  invoke ClearC

[-] 可能的用途 选择通讯协议 协议的设置 确定计算机的名称 TCP 连接初步 接受多个连接请求 UDP 初步 关于 Bind 方法   利用 WinSock 控件可以与远程计算机建立连接,并通过用户数据文报协议 (UDP)或者传输控制协议 (TCP)进行数据交换.这两种协议都可以用来创建客户与服务器应用程序.与 Timer 控件类似,WinSock 控件在运行时是不可见的. 可能的用途 创建收集用户信息的客户端应用程序,并将收集的信息发送到某中央服务器. 创建一个服务器应用程序,作为多个用户

在VB中,属性是可以有参数的,而VBA中属性使用参数非常常见.比如最常用的:Worksheet.Range("A1:A10")  VB的语法,使用参数的不一定是方法,也有可能是属性!(虽然属性的本质是方法) 例一:参数当作"索引"使用 定义一个类模块,模块名称Ints.为简化模型,使用了只读属性. ) As Integer Public Property Get ArrValue(Index As Integer) As Integer ArrValue = arr