随笔分类 -  vbs

VBScript 内置函数
摘要:本页列出了所有内建的 VBScript 函数: Date/Time 函数 Conversion 函数 Format 函数 Math 函数 Array 函数 String 函数 其他函数 本页列出了所有内建的 VBScript 函数: Date/Time 函数 Conversion 函数 Format 阅读全文

posted @ 2017-01-20 15:44 jack_Meng 阅读(748) 评论(0) 推荐(1) 编辑

巧用Windows 7计划任务设置定时提醒
摘要:Windows 7系统有个“计划任务”功能,一般人都很少使用。其实,“计划任务”是系统自带的一个很实用的功能,比如说,这个功能可以设置定时提醒,这样在使用电脑时就不会因为太过投入而导致错过重要的事务。下面,小编就介绍一下这个“计划任务”功能的具体使用方法。 Windows 7系统有个“计划任务”功能 阅读全文

posted @ 2016-12-13 15:23 jack_Meng 阅读(7306) 评论(0) 推荐(2) 编辑

vba中MsgBox的参数及用法
摘要:1、作用 在消息框中显示信息,并等待用户单击按钮,可返回单击的按钮值(比如“确定”或者“取消”)。通常用作显示变量值的一种方式。2、语法 MsgBox(Prompt[,Buttons][,Title][,Helpfile,Context]) 参数说明: (1)Prompt,必需的参数,为字符串,作为 阅读全文

posted @ 2016-12-13 14:54 jack_Meng 阅读(63851) 评论(0) 推荐(1) 编辑

VBA中的函数Timer用法
摘要:第1.40例 Timer 函数一、题目: 要求编写一段代码,运用 Timer 函数来计算本代码运行所化的时间。二、代码:Sub 示例_1_040() Dim t, i&, a t = Timer For i = 1 To 1000000 a = a + i Next i MsgBox ... 阅读全文

posted @ 2015-12-19 20:39 jack_Meng 阅读(10441) 评论(0) 推荐(0) 编辑

用VBA计算两个日期之间的工作日(去掉周末两天)
摘要:最近公司HR和Finance想算员工的工作天数,想让我帮忙写些VBA,自己从网上找了下代码,自己再改改,以下来自网络。计算两个日期之间的工作日,用VBA,因量大,最好用数组做Sub kk()Dim arr, i&, j&, m&arr = Sheet2.Range("b3:f4")For i = 1... 阅读全文

posted @ 2015-12-19 20:37 jack_Meng 阅读(7128) 评论(0) 推荐(0) 编辑

VBA记录当前系统时间并精确到毫秒
摘要:想做个功能,点一次按钮,就在A1记录一次当前系统时间,要精确到毫秒的。再点一次按钮就在A2显示,以此类推!例如:这个功能可以用来做歌词记时间!Sub ttt()ActiveCell.Selecttt = Timerh = Int(tt / 3600)m = Int((tt - 3600 * h) /... 阅读全文

posted @ 2015-12-19 19:44 jack_Meng 阅读(5793) 评论(0) 推荐(0) 编辑

vbs查看系统开关机时间
摘要:如何获取XP系统的开机时间? 下面给出两种代码,保存到扩展名为vbs的文件中。具体哪个请根据自己需求决定。 一:根据系统日志,查看开机时间和关机时间, 使用弹出对话框的形式 Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}! 阅读全文

posted @ 2015-06-06 16:14 jack_Meng 阅读(1924) 评论(0) 推荐(0) 编辑

游戏走123步--解析
摘要:最近玩了个游戏,界面大概如下:321112233玩法介绍:从图上的任意值为1的开始走,每个点只能走一遍,只能向上下左右四个方向,不能跳格,走完所有点算赢,这个是个简单的界面,复杂的就是行和列为9*9的矩阵,或者更多下面给出解法:Option ExplicitDim arr() As Integer,... 阅读全文

posted @ 2015-01-22 17:16 jack_Meng 阅读(484) 评论(0) 推荐(0) 编辑

调试VBA程序常用方法
摘要:在中断模式下(ctrl+Break键),可以做:1.执行 工具----选项----编辑器----勾选“自动显示数据提示”则当用鼠标悬停在变量或表达式上时,会出现提示窗口,显示其名称和值!2.在监视窗口查看某些表达式的值,方法是:先用鼠标拖黑以选中表达式,再执行 调试----添加监视,出现“添加监视”... 阅读全文

posted @ 2015-01-22 17:05 jack_Meng 阅读(6059) 评论(0) 推荐(0) 编辑

如何调试Excel VBA代码
摘要:Excel VBA出错时给出的错误信息极少,需要充分利用各种工具来进行调试。1.编译错误 常见的编译错误有: 错误的源代码格式,比如if后面缺少then:在编辑器中该行会变成红色。 错误的语法结构,比如if和end if没有对应上:代码运行前会给出编译错误提示。 类型不匹配:函数输入的参数与定义时的... 阅读全文

posted @ 2015-01-22 16:54 jack_Meng 阅读(11274) 评论(0) 推荐(0) 编辑

VBA程序的调试
摘要:VBA程序的调试:设置断点、单步跟踪、设置监视窗 Acces的VBE编程环境提供了完整的一套调试工具和调试方法。熟练掌握好这些调试工具和调试方法的使用,可以快速、准确地找到问题所在,不断修改,加以完善。 一、“断点”概念 所谓“断点”就是在过程的某个特定语句上设置一个位置点以中断程序的执行。“... 阅读全文

posted @ 2015-01-22 16:50 jack_Meng 阅读(12236) 评论(0) 推荐(0) 编辑

vba传递参数类型错误
摘要:先来看看微软官方的说明:目录内容概要解决方案详细信息重现问题的步骤<style&amp... 阅读全文

posted @ 2015-01-21 15:37 jack_Meng 阅读(1123) 评论(0) 推荐(0) 编辑

VBA的过程及参数详解
摘要:VBA的过程及参数详解VBA中的过程(Procedure)有两种,一种叫函数(Function),另外一种叫子程序(Subroutine),分别使用Function和Sub关键字。它们都是一个可以获取参数、执行一系列语句、以及改变其参数的值的独立过程。而与 Function 过程不同的是:带返回值的... 阅读全文

posted @ 2015-01-20 15:37 jack_Meng 阅读(8336) 评论(2) 推荐(0) 编辑

vba打开excel文件遍历sheet的名字和指定单元格的值
摘要:今天项目上有个应用,获取指定Excel文件下的所有sheet的名称以及当前sheet中指定单元格的值,并把他们写到固定的sheet中去,看了下,文件比较多,而且每个文件sheet的个数比较多,也不一样,所以打算写个程序来帮我们实现任务,代码很简单,也写的比较死板。欢迎大家给出意见及你的代码:Sub ... 阅读全文

posted @ 2014-12-31 15:29 jack_Meng 阅读(32240) 评论(0) 推荐(0) 编辑

使用VBS控制声音
摘要:使用VBS脚本来控制音量,如下: Set Ws = CreateObject("Wscript.Shell") 'Ws.Sendkeys "爱" '减音,在引号中写多个爱,则会大幅减音,一个爱减少2%的音量 'Ws.Sendkeys "怜" '增音,在引号中写多个怜,则会大幅增音,一个怜增加2%的音 阅读全文

posted @ 2014-03-01 11:12 jack_Meng 阅读(2504) 评论(0) 推荐(0) 编辑

用vbs打开文件
摘要:set ws=createobject("wscript.shell")ws.run"打开文件所使用的程序+空格+程序路径",x,tureRun方法有三个参数:第一个参数:是你要执行的程序的路径,第二个参数:是窗口的形式,0后台运行;1正常运行;2最小化;3最大化;缺省的话表示正常运行第三个参数:是表示这个脚本是等待还是继续执行,如果设为了True,脚本就会等待调用的程序退出后再向后执行。第二个参数可取值为下面为可选值:0 隐藏一个窗口并激活另一个窗口。1 激活并显示窗口。如果窗口处于最小化或最大化状态,则系统将其还原到原始大小和位置。第一次显示该窗口时 阅读全文

posted @ 2013-11-16 14:45 jack_Meng 阅读(17646) 评论(0) 推荐(1) 编辑

使用VBS发邮件
摘要:直接上代码吧!~ NameSpace = "http://schemas.microsoft.com/cdo/configuration/"set Email = CreateObject("CDO.Message")Email.From = "zmaxxxxxxx@126.com" '发信人地址E 阅读全文

posted @ 2013-11-11 14:02 jack_Meng 阅读(1488) 评论(0) 推荐(0) 编辑

注册表禁用和启用USB端口
摘要:USB端口禁用把下面代码另存为文件:USB_Disable.batcSCript \\AppServices\netlogon\USB_Disable.vbs--------------------------------------------------把下面代码另存为文件:USB_Disable.vbsOn Error Resume nextDim WshShellSet WshShell = WScript.CreateObject("WScript.Shell")wshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\C 阅读全文

posted @ 2013-08-22 11:55 jack_Meng 阅读(5792) 评论(0) 推荐(0) 编辑

vbs文件操作
摘要:最近遇到一个应用,要求将指定文件夹下的所有 html 文件中包含的某些文字的文件给改名。下面是我写的一个 vbs 文件:rename.vbs'关键字配置文件地址Constconfig="E:\cleandata\key.txt"'要检查的文件夹Constdir="D:\Log\html\"'日志保存路径ConstLogDir="E:\cleandata\Log\"'全局对象setfso=createobject("scripting.filesystemobject")Dimkeyw 阅读全文

posted @ 2012-12-11 13:27 jack_Meng 阅读(962) 评论(0) 推荐(0) 编辑

文本文件编码格式转换
摘要:rem 出处: http://wenwen.soso.com/z/q62799393.htmrem 本程序可以转换小于10M之内的文件,亲自测试速度还可以on error resume nextSet WshShell=WScript.CreateObject("Shell.Application") 'dirPath=WshShell.BrowseForFolder(0, "请选择路径", 0, "").items().item().path 'outpath=WshShell.BrowseForFolder(0, 阅读全文

posted @ 2012-12-11 10:37 jack_Meng 阅读(1491) 评论(0) 推荐(0) 编辑

导航

< 2025年2月 >
26 27 28 29 30 31 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 1
2 3 4 5 6 7 8
点击右上角即可分享
微信分享提示

喜欢请打赏

扫描二维码打赏

支付宝打赏

主题色彩