关注和分享Excel以及Office系列软件的方方面面，致力于提高中国的办公软件的使用水平
在编写vba代码的解决方案时，有时候需要让vba程序在运行过程中暂停几秒或者暂停固定时间后再继续接着运行，这时候可以用以下两种方法。
方法一 用Application对象的Wait方法让程序暂停运行，演示代码如下：
|
1 2 3 4 5 6 7 8 9 |
Sub QQ1722187970()如何让vba程序暂停运行几秒再继续？ Dim i For i = 1 To 10000 '主程序 '******************** '每次暂停程序5秒再继续执行下一个for 循环 Application.Wait Now + TimeValue("0:00:05") Next i End Sub |
方法二[……]
正常情况下，我们采用以下代码抓取网页，若是网页能访问，抓取都没问题。若是网站出现故障，那么往往会出现Excel卡死现象。
|
1 2 3 4 5 6 7 8 9 |
Public Function getHtmlStr(strUrl) '获取源码 'www.exceloffice.net同步抓取 Dim XmlHttp Set XmlHttp = CreateObject("Microsoft.XMLHTTP") XmlHttp.Open "GET", strUrl, False XmlHttp.send getHtmlStr = StrConv(XmlHttp.ResponseBody, vbUnicode) Set XmlHttp = Nothing End Function |
而Microsoft.XMLHTTP又不像Msxml2.ServerXMLHTTP具有SetTimeOuts[……]
在编写vba代码的解决方案时，经常需要在不同的工作簿之间读写数据。
接下来介绍几种在不同的excel工作簿之间读写数据的方法：
一、打开读写法
1、单个文件固定路径打开读写法：
代码如下：
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
Sub QQ1722187970() Excel.Application.ScreenUpdating = False Excel.Application.DisplayAlerts = False Excel.Application.Calculation = xlCalculationManual Dim oWB As Workbook Dim oWK As Worksheet Dim sFilePath As String Dim iRow As Long '固定路径 sFilePath = "E:\test.xlsx" Set oWB = Excel.Workbooks.Open(sFilePath) With oWB Set oWK = .Worksheets(1) With oWK iRow = .Range("a65536").End(xlUp).Row '*********************************** '其它操作代码 '*********************************** End With Excel.Application.Calculation = xlCalculationAutomatic Excel.Application.DisplayAlerts = True Excel.Application.ScreenUpdating = True .Close End With MsgBox "操作完成!" Set oWK = Nothing Set oWB = Nothing End Sub |
2、任意选择单个[……]
在编写vba代码的解决方案时，会经常碰到字符串的对比。
比如要判断一个字符串变量是否包含某些字符、是否含有数字等等。
这些简单的字符串的对比都可以用vba中的内置like运算符来实现。它的语法如下：
|
1 |
result = string Like pattern |
其中string表[……]
在前文，介绍了如何在vba中打开文件夹的方法。
本文介绍如何在vba中创建一个新的文件夹。
方法1:使用VBA的MkDir语句创建文件夹。
代码如下：
|
1 2 3 4 5 6 7 |
Sub QQ1722187970) On Error Resume Next VBA.MkDir ("c:/例子") End Sub |
其中 VBA.MkDir (“c:/例子”)表示在C盘创建[……]
在前面的文章中，分别介绍了如何在VBA中创建超链接和如何用FSO对象操作文件和文件夹。
今天结合以上两个教程，介绍如何用vba遍历文件夹中的文件并在单元格中创建文件的超链接的方法。
以下代码将提取任意路径下的所有文件并在活动工作表的A列创建所有文件的超链接
[crayon-5c18d9[……]
在编写vba代码的解决方案时，经常会碰到需要对文件或者文件夹进行相关操作。虽然vba内部已经预先定义好了一系列操作文件或者文件夹的函数或者语句，但是使用起来相对零散。而FileSystemObject对象（简称FSO对象）则涵盖了几乎所有的文件或者文件夹的相关操作，包括添加、移动、修改、创建或者删除[……]
excel 中可以创建超链接用以链接到网页、文件夹中的文件、电子邮件以及当前工作簿中的其它单元格。
在excel中不仅可以在单元格中创建超链接，还可以在excel单元格上的图形上创建超链接。
本文主要介绍如何用vba在单元格中创建超链接的方法，在图形上创建超链接的方法相似。
用v[……]
经常写vba代码就一定需要用到Dictionary字典对象，字典对象可以用来存储数据对，每对数据由数据内容和数据的键值组成，每个数据内容有唯一的一个键值与之匹配。当遇到重复的键值时，将会报错。所有的数据键值和所有的数据内容都存储在相应的数组中。由于它只能存储唯一的键值的特性，经常利用字典对象来处理涉[……]