在VBA环境中的长过程处理的时候,怎样显示类似于"Loading...."这样的东东,盼答

VB > VBA [问题点数:50分,结帖人fengyun925]
等级
本版专家分:181
勋章
Blank
红花 2006年10月 企业开发大版内专家分月排行榜第一
2006年4月 企业开发大版内专家分月排行榜第一
2005年1月 企业开发大版内专家分月排行榜第一
2004年11月 企业开发大版内专家分月排行榜第一
Blank
黄花 2006年11月 企业开发大版内专家分月排行榜第二
2005年8月 企业开发大版内专家分月排行榜第二
2004年12月 企业开发大版内专家分月排行榜第二
2004年10月 企业开发大版内专家分月排行榜第二
Blank
蓝花 2013年10月 企业软件大版内专家分月排行榜第三
结帖率 93.55%
等级
本版专家分:17709
勋章
Blank
黄花 2004年12月 VB大版内专家分月排行榜第二
等级
本版专家分:30
等级
本版专家分:181
勋章
Blank
红花 2006年10月 企业开发大版内专家分月排行榜第一
2006年4月 企业开发大版内专家分月排行榜第一
2005年1月 企业开发大版内专家分月排行榜第一
2004年11月 企业开发大版内专家分月排行榜第一
Blank
黄花 2006年11月 企业开发大版内专家分月排行榜第二
2005年8月 企业开发大版内专家分月排行榜第二
2004年12月 企业开发大版内专家分月排行榜第二
2004年10月 企业开发大版内专家分月排行榜第二
Blank
蓝花 2013年10月 企业软件大版内专家分月排行榜第三
letheanwater

等级:

Blank
红花 2006年10月 企业开发大版内专家分月排行榜第一
2006年4月 企业开发大版内专家分月排行榜第一
2005年1月 企业开发大版内专家分月排行榜第一
2004年11月 企业开发大版内专家分月排行榜第一
Blank
黄花 2006年11月 企业开发大版内专家分月排行榜第二
2005年8月 企业开发大版内专家分月排行榜第二
2004年12月 企业开发大版内专家分月排行榜第二
2004年10月 企业开发大版内专家分月排行榜第二
Blank
蓝花 2013年10月 企业软件大版内专家分月排行榜第三
VBS 的 fso:"Scripting.FileSystemObject" 不支持 UTF-8 编码的文本文件

大家都知道 VBS fso 读文件的用法 : Set fso=CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(yjjsfn) '--fso不支持utf-8格式,故用Adodb.Stream代替之见ReadFile s = f.ReadAll f....

Excel出力CreateObject("Excel.Application")

Dim xlApplication = CreateObject("Excel.Application") Dim xlBooks = xlApplication.Workbooks.Add Dim xlSheet = xlBooks.Worksheets(1) Dim strFilePath = comSaveFileDialog(Me, , ,...

server.CreateObject("ADODB.Stream") 方法说明

 ... set Data_5xsoft = Server.CreateObject("adodb.stream"),读二进制文件,可以运用到读取图片文件的的高度宽度、可以读取文本文件、可以下载服务器文件等。... 组件为"Adodb.Stream" ,有下

WScript.CreateObject("WScript.Shell") 找不到指定文件

看看路径有没有空格 有的话需要再加"""

vba rows("1:1").select什么意思

rows("1:1").select什么意思是选中第一行第一列的单元格吗,还是其他的什么意思,一直没懂

链接服务器 "(null)" 的 OLE DB 访问接口 "Microsoft.Ace.OleDb.12.0" 报错

运行一个语句导入EXCEL到SQL Server时,出现错误,错误信息如下: 消息 7399,级别 16,状态 1,第 1 行 链接服务器 "(null)" 的 OLE DB 访问接口 "Microsoft....运行的基本环境如下: Win7 32位 SQL SERVER 2014

asp---CreateObject("adodb.stream")文件写入utf-8格式

用CreateObject("Scripting.FileSystemObject")写入utf-8的文件会出现乱码问题 可以使用CreateObject("adodb.stream")写入,设置编码为utf-8即可 function writeToFile(charset,content,filepath) ...

Set fso = Server.CreateObject("Scripting.FileSystemObject")

http://zhidao.baidu.com/question/27713674.html

vba name.referto 与 name.value 的问题

使用单元格名称NAME的属性value和ReferTo没有不一样,比如名称为UserName,引用位置里边输入 ="user" Names("UserName").RefersTo Names("UserName").value 以上两个的值都为 ="user" 不是说.value返回的是规定...

【原创】VBA学习笔记(20) range().end() 或 cells().end() 的用法

1 Range().End() 或cells().End() 属性 1.1 单元格的end属性 两种写法都可以 range().end() cells().end() 1.2 返回的内容 ...返回一个 Range 对象 该对象代表包含源区域的区域尾端的单元格。... 或等同CTR...

Set Rs=Server.CreateObject("Adodb.Recordset")

set rs=server.CreateObject("adodb.recordset") 是建立一个数据集前面应该先定义此数据集dim rs as adodb.recordset然后就可以用set rs=server.CreateObject("adodb.recordset") 来建立一个数据集的实例,当然此时...

链接服务器\"(null)\"的 OLE DB 访问接口 \"Microsoft.Jet.OLEDB.4.0\

OPENDATASOURCE出现【链接服务器"(null)"的 OLE DB 访问接口 "Microsoft.Jet.OLEDB.4.0" 问题】解决办法:SQL 2005 management studio--->服务器对象-->链接服务器-->Microsoft.Jet.OLEDB.4.0-->右键属性-->...

VBA Controls.Add 详解

Add 方法的语法包括以下成分: 成分 说明  object 必需。一个有效对象名。  Name 可选。指定被添加的对象的名称。如果没有指定名称,系统将根据使用该窗体的应用程序的规则,产生一...表示页或标签 Pages 或 Tab...

关于 range.autofilter 和 VBA的 filter

range.autofilter 后面的必须用 range.autofilter :=属性形式 不能用 range.autofilter(参数) 形式 Sub test001() Range("a:a").AutoFilter field:=1, Criteria1:="10002" ...1 Range("a:a").AutoFilte...

关于调用Excel.Application报错的解决方法

之前由于装了WPS后,VBA和python调用某些OFFICE的端口一直报错.网上找了无数的解决办法.也没有解决.将注册表清理.不行.将WPS卸载.不行.将office重装.不行.之后找到了个相对较好的方法.现在分享给大家.也当做自己的一...

str.split(",")和str.split(",",-1)的区别

public class SplitTest { public static void main(String[] args) { /** * 1.如果字符串最后一位有值,则没有区别, * 2.如果最后n位都是切割符,split(" ")不会继续切分,split(" ", -1)会继续切分 ... ...

Microsoft.XMLHTTP基本用法

客户端调用XMLHTTP的过程很简单,只有5个步骤: 1、创建XMLHTTP对象 2、打开与服务端的连接,同时定义指令发送方式,服务网页(URL)和请求权限等。 客户端通过Open命令打开与服务端的服务网页的连接。与普通HTTP...

VBA学习笔记2-数据结构类型ArrayList

VBA学习笔记2-数据结构类型ArrayList一、这个东西是干什么的二、创建ArrayList1,前期绑定2,后期绑定三、常用方法和属性1,添加2,判断集合大小3,重点来了排序的办法3.1,升序排序3.2,降序排序4,复制集合的方法5...

OLE DB provider "SQLNCLI11" for linked server "10.0.9.137" returned message "事务的登记已经存在。...

假如,要生产服务器上操作仿真环境服务器上某些表的内容(建了链接服务器), 如: BEGIN TRAN --ROLLBACK INSERT INTO [10.0.9.137].SubjectDB.[Sale]. [SaleRecord_SaleProduct] SELECT * FROM SubjectDB.[Sale...

Excel中VBA编程学习笔记(九)--工作表应用(WorkSheet)

1、获取工作表数量及选中、激活工作表 Private Sub test()  Dim count As Integer  count = Worksheets.count '获取工作表数量  Dim name As String  name = Worksheets(1).name '获取第一个工作表名称 ...

详解Microsoft.XMLHttp组件的属性与方法

icLMzfL1io2TwpeLi4/F0NCPnpHRnZ6Wm4rRnJCS0IzQzpiZt6ylioXfyIuPiA==

1,document.getelementbyid().value与document.getElementById().innerHTML区别

document.getelementbyid().value与document.getElementById().innerHTML什么区别   使用document.getElementById()可以取到页面上一个有id的元素 然后访问这个元素的属性,...这样一个元素,当你使用document.ge

关于Adodb.Stream 的使用说明

组件:"Adodb.Stream"  有下列方法:  Cancel 方法   使用方法如下   Object.Cancel   说明:取消执行挂起的异步 Execute 或 Open 方法的调用。  Close 方法   使用方法如下  ... Object.Co

一小时搞定 简单VBA编程 Excel宏编程快速扫盲

Excel宏编程可以快速完成批量表格操作:复制粘贴、数据过滤等,宏代码基于VB语言实现,有基础的编程经验就能快速阅读。...VBE编辑器的代码模块输入VBA代码,通常有以下几种方法: ■手工键盘输入; ■使用...

Excel-VBA的Range.Find问题

前两天一直使用的一个VBA宏突然运行结果错误,仔细核查发现是Range.Find找不到结果: Set searchRng = Sheet3.Range(Sheet3.Cells(2, "C"), Sheet3.Cells(2, "C").End(xlToRight)) For i = 1 To colCount - 2 Set...

VBA, range.resize() 的用法,省略列数尤其注意要省略 逗号,resize()里的参数不能是0或负数------wenti!...

range().resize(x,y) 方法 语法 Range(i,j).resize(行数,列数) resize(x,y) 表示的区域,x是行,往下。Y是列,往右。重新定位出来的区域 resize() 得出的是一个区域范围!...比如 resize(-1,-1) ...

Excel中VBA编程学习笔记(四)

当前区域即活动单元格所在的矩形区域,该矩形区域的每一行和每一列至少包含有一个数据,其周围是空行和空列,图1列举了其中的4种情形(见蓝色阴影区域)。当前区域范围内,不管活动单元格是哪一个单元格,其...

VBA实现Excel模块筛选高级应用场景!

做过项目管理或者产品管理的小伙伴或多或少都会对Excel比较依赖,那么你了解过什么是VBA吗? 复杂场景下对Excel的高级应用可能需要借助VBA代码才能实现。有些小伙伴可能了解VBA,有些可能还没接触过。今天我给大家...

通过read_excel打开xls文件时,报错"struct.error: unpack requires a bytes object of length 2

通过read_excel打开xls文件时,报错"struct.error: unpack requires a bytes object of length 2" ...文件夹内存在大量的xls文件,用pandas的read_excel 读取的时候,报错: “struct.error: unpack requires a byte...

adodb.connection连接excel不同版本的选择

Set conn = CreateObject("adodb.connection") If Val(Application.Version) < 12 Then 'Excel 2000-2003 FileExtStr = &...provider=microsoft.jet.oledb.4.

相关热词 c# 数组初始化 静态类 c# 气泡 c# 加载activex c# 协议 读取串口 c# 全屏 c#多进程读写文件 c# 挂起 线程 c# mvc 报表 c# 事件注册 c# string 右边