企业官网建设流程全解析

自学织梦做网站要多久,招网站建设销售,建设网站的源代码,小说网站建设需要什么目录 第七章#xff1a;WScript控制Office 7-1 WScript常用属性#xff08;实例#xff1a;交互性更好的自动拆分工作簿#xff09; 7-2 WScript对象的常用方法 7-3 用WshShell对象控制程序#xff08;另一种控制Word、Excel的方法#xff09; 7-4 用WshShell做机器…目录第七章WScript控制Office7-1 WScript常用属性实例交互性更好的自动拆分工作簿7-2 WScript对象的常用方法7-3 用WshShell对象控制程序另一种控制Word、Excel的方法7-4 用WshShell做机器人操作程序以在Word中操作为例7-5 用WshShell做机器人操作程序批量向Excel单元格写入数据7-6 综合运用批量将Word中的图形保存为图片第七章WScript控制Office7-1 WScript常用属性实例交互性更好的自动拆分工作簿WScript对象是vbs脚本访问Windows的根对象。1.WScript.Arguments属性获取指定文件的路径。(要把文件拖到下面代码所保存的vbs文件上才有效)Fori 0 To wscript.Arguments.Count - 1MsgBox wscript.Arguments(i)Next2.脚本文件的路径与名称msgbox WScript.ScriptFullName返回当前运行脚本的完整路径包括文件名。msgbox WScript.ScriptName: 返回当前运行脚本的文件名?3.交互性更好的自动拆分工作簿把下面代码去除sub与end sub复制到记事本中保存为vbs运行即可Sub交互性更好的自动拆分工作簿()strPath wscript.arguments(0)把要拆分的excel文件拖到这个vbs文件上就能获取excel文件的路径strSavePath Replace(wscript.scriptfullname, wscript.scriptname, )SetxlApp CreateObject(excel.application)Setwb xlApp.Workbooks.Open(strPath)ForEachws In wb.Sheetsws.Copy工作表复制之后会自动出现在新的工作簿并且新的工作簿为活动工作簿xlApp.ActiveWorkbook.SaveAs strSavePath ws.Name .xlsxxlApp.ActiveWorkbook.CloseNextxlApp.QuitSetxlApp NothingEnd Sub7-2 WScript对象的常用方法WScript.CreateObject: 创建对象?WScript.可以省略WScript.Quit: 强制脚本在任意时刻立即停止执行?WScript.Sleep 休息时间毫秒该方法将脚本的执行挂起一段时间然后接着执行。WScript.Echo: 该方法输出一个消息框?WScript.Sleep 1000休息1秒WScript.Echo helloWScript.Echo hello,yes,no7-3用WshShell对象控制程序另一种控制Word、Excel的方法WshShellWscript.Shell可以使用此对象访问Windows Shell的一些应用主要用于运行本地程序、操作注册表程序、创建快捷键、处理环境变量、发送键盘符等。SetWshShell WScript.CreateObject(WScript.Shell)CurrentDirectory属性返回当前vbs文件所在的目录路径不包含文件名。MsgBox WshShell.CurrentDirectoryRun 方法: 在新过程中运行程序run方法第二参数:intWindowStyle 值说明0隐藏窗口并激活另一个窗口。1激活并正常显示窗口。如果窗口处于最小化或最大化状态则系统将其还原到原始大小和位置。第一次显示窗口时推荐使用。2激活窗口并将其显示为最小化窗口即获取焦点但保持最小化。3激活窗口并将其显示为最大化窗口。4按最近的窗口大小和位置显示窗口不改变其当前最小化/最大化状态活动窗口保持活动状态不强制激活它。5激活窗口并按当前的大小和位置显示它不改变其状态。6最小化指定的窗口并按照 Z 顺序激活下一个顶层窗口。7将窗口显示为最小化窗口活动窗口保持活动状态不强制激活它。8将窗口显示为当前状态活动窗口保持活动状态不强制激活它。9激活并正常显示窗口。如果窗口处于最小化或最大化状态则系统将其还原到原始大小和位置。还原最小化窗口时推荐使用。10根据启动应用程序的程序状态来设置显示状态。wshshell.Run excel.exewshshell.Run WINWORD.exeAppActivate 方法激活应用程序窗口。指定要激活哪个应用程序。它可以是包含应用程序的标题和出现在标题栏中的一样或过程 ID 的字符串。wshshell.AppActivate word只是打开了word程序没有打开word文档时可以这样wshshell.AppActivate 123.docx123.docx是word文档的名称wshshell.AppActivate 1250812508为进程中应用程序的id7-4用WshShell做机器人操作程序以在Word中操作为例SendKeys 方法将一个或多个键击发送到活动窗口仿佛是在键盘上击键一样。发送普通字符Sub发送普通字符()Setwshshell CreateObject(wscript.shell)With wshshell.AppActivate (123.docx)激活123.docx,窗口不可以是最小化状态否则无法激活wscript.Sleep 3000需要延迟一下不然容易出错.SendKeys 100.SendKeys Are you ok?结果跟中英文输入法状态有关需要在英文状态下.SendKeys 我来了不能输入中文.SendKeys {}输入号End WithEnd Sub有特殊意义的符号转义为普通字符:名称表示方法特殊意义加号{}SHIFT单纯输入一个号代表SHIFT键插入记号{^}CTRL百分号{%}ALT波浪符非符号{~}ENTER单纯输入一个~号表示回车键左大括号{{}转义表示字面意义的左大括号{右大括号{}}转义表示字面意义的右大括号}左中括号{[}无特殊含义表示字面意义的左中括号[右中括号{]}无特殊含义表示字面意义的右中括号]键盘上的键位代码:按键名称SendKeys中的表示方法Backspace(退格键){BACKSPACE},{BS},{BKSP}Break(暂停键){BREAK}Caps Lock(大写锁定键){CAPSLOCK}Delete(删除键){DELETE},{DEL}Down Arrow(向下键){DOWN}End{END}Enter(回车键){ENTER},~Esc(退出键){ESC}Help(帮助键){HELP}Home{HOME}Insert(插入键){INSERT},{INS}Left Arrow(向左键){LEFT}Num Lock(数字锁定键){NUMLOCK}Page Down{PGDN}Page Up{PGUP}Print Screen(截屏键){PRTSC}Right Arrow(向右键){RIGHT}Scroll Lock{SCROLLLOCK}Tab(制表键){TAB}Up Arrow(向上键){UP}F1{F1}F2{F2}F3{F3}F4{F4}F5{F5}F6{F6}F7{F7}F8{F8}F9{F9}F10{F10}F11{F11}F12{F12}F13{F13}F14{F14}F15{F15}F16{F16}7-5用WshShell做机器人操作程序批量向Excel单元格写入数据中文输入取巧办法。将中文复制到剪贴版中然后再粘贴出来。echo ***| clip.exe 就是用DOS命令把***这串字符写入剪贴板了,完整写法如下wshshell.run cmd.exe /c echo 你好| clip.exe,0clip.exe是剪贴板0可以避免闪屏以下代码要在记事本中保存为vbs文件才能查看效果Sub批量向Excel单元格写入数据()Setwshshell CreateObject(wscript.shell)With wshshell.AppActivate 1.xlsxForEachar In Array(上海, 成都, 北京)n n 1.SendKeys n.SendKeys {RIGHT}按向右方向键wscript.Sleep 200.Run cmd.exe /c echo ar |clip.exe, 0复制ar到剪贴板wscript.Sleep 200.SendKeys ^v^v表示ctrlvwscript.Sleep 200.SendKeys {DOWN}{LEFT}wscript.Sleep 200NextEnd WithEnd Sub7-6综合运用批量将Word中的图形保存为图片以下代码要在记事本中保存为vbs文件才能查看效果去除sub与end sub,如果会出错就把注释去掉Sub批量将Word中的图形保存为图片()SetdocAPP CreateObject(word.application)docAPP.Visible TrueSetwshshell CreateObject(wscript.shell)With wshshell.Run mspaint.exe运行画图程序可以用.run %windir%\system32\mspaint.exeSetdoc docAPP.Documents.Open(.currentdirectory \图形.docx) .currentdirectory返回当前vbs文件所在目录路径Fori 1 To doc.Shapes.Count.AppActivate 图形.docxwscript.Sleep 1000doc.Shapes(i).Selectwscript.Sleep 1000.SendKeys ^cwscript.Sleep 1000.AppActivate 画图wscript.Sleep 1000.SendKeys ^vwscript.Sleep 2000.SendKeys %fa按altfa调出另存为对话框wscript.Sleep 2000.Run cmd.exe /c echo doc.Shapes(i).Name |clip.exe, 0复制图片名称wscript.Sleep 1000.SendKeys ^vwscript.Sleep 2000.SendKeys {ENTER}按回车保存wscript.Sleep 1000Next.SendKeys %fx按altfx退出画图程序End WithdocAPP.QuitSetdocAPP NothingEnd Sub保存时要处理英文输入状态画图程序的编辑区域大小要调整为图片的大小点击“重新调整大小”输入高度、宽度即可以下代码要在记事本中保存为vbs文件才能查看效果去除sub与end sub,如果会出错就把注释去掉Sub批量将Word中的图形保存为图片无注释()SetdocAPP CreateObject(word.application)docAPP.Visible TrueSetwshshell CreateObject(wscript.shell)With wshshell.Run mspaint.exeSetdoc docAPP.Documents.Open(.currentdirectory \图形.docx)Fori 1 To doc.Shapes.Count.AppActivate 图形.docxwscript.Sleep 1000doc.Shapes(i).Selectwscript.Sleep 1000.SendKeys ^cwscript.Sleep 1000.AppActivate 画图wscript.Sleep 1000.SendKeys ^vwscript.Sleep 2000.SendKeys %fawscript.Sleep 2000.Run cmd.exe /c echo doc.Shapes(i).Name |clip.exe, 0wscript.Sleep 1000.SendKeys ^vwscript.Sleep 2000.SendKeys {ENTER}wscript.Sleep 1000Next.SendKeys %fxEnd WithdocAPP.QuitSetdocAPP NothingEnd Sub计算机科学与技术 计算机网络技术双专业课程体系完全导航指南本系列目录1、Word VBA编程入门指南从对象模型、流程控制到数组与字典的完整教程2、Word VBA 对象模型精讲从Document到Character的文本逐级控制与自动化实战3、Word VBA 表格自动化实战从宏录制到Table对象掌握多表合并与批量生成4、Word VBA 图形与图表自动化从批量生成到环形阵列掌握文档可视化排版5、Word与Excel VBA协同实战构建双向数据通道实现跨软件流程自动化6、VBScript办公自动化实战无需打开Office用独立脚本操作Word与Excel7、VBScript系统级自动化使用WScript对象外部操控Office与模拟键盘输入