企业官网建设流程全解析

购物网站怎么创建,wordpress全局动态背景,哔哩哔哩网页入口,wordpress怎么静态页面目录 第六章#xff1a;VBScript语言实现通用控制 6-1 VBScript语言的使用方法 6-2 在VBS中操作Word文件 6-3 VBS实例-1#xff08;将指定文件夹下的图片信息提取到Word表格-1#xff09; 6-4 读取Excel数据写入到Word 6-5 读取Word数据写入到Excel 6-6 Excel通用功能…目录第六章VBScript语言实现通用控制6-1 VBScript语言的使用方法6-2 在VBS中操作Word文件6-3 VBS实例-1将指定文件夹下的图片信息提取到Word表格-16-4 读取Excel数据写入到Word6-5 读取Word数据写入到Excel6-6 Excel通用功能实例拆分工作簿第六章VBScript语言实现通用控制6-1 VBScript语言的使用方法VBScript是Visual Basic Script的简称即 Visual Basic 脚本语言有时也被缩写为VBS。它是一种微软环境下的轻量级的解释型语言。VBScript生成的文件扩展名为vbs。这里我们使用的是记事本来完成代码的编辑。在保存时注意编码方式的选择最好为ANSI。VBS的代码中不需要sub和end sub在vbs中能运行的代码在VBA中一定能运行在VBA中能运行的代码在VBS中不一定能运行必须去掉VBA中特有的代码比如thisdocument、dimdoc as document、dir、Selection等在记事本中写入如下代码保存为vbs文件运行Fori 1 To 3MsgBox iNext6-2在VBS中操作Word文件在vbs中操作word文件跟在Word VBA中写的代码基本相似。在记事本中写入如下代码要去掉注释符保存为vbs文件运行DimdocAPP, docFile, docOpenSetdocAPP CreateObject(word.application)docAPP.Visible TrueSetdocFile docAPP.Documents.AddWith docFile.Range(0).Text Word VBA.SaveAs2 e:\demo.docx.CloseEnd WithSetdocOpen docAPP.Documents.Open(e:\test.docx)MsgBox docOpen.Range(0, 11)docOpen.ClosedocAPP.QuitSetdocAPP Nothing6-3 VBS实例-1将指定文件夹下的图片信息提取到Word表格-1Sub将指定文件夹下的图片信息提取到Word表格()Setfso CreateObject(scripting.filesystemobject)创建一个文件系统对象fsoSetfd fso.GetFolder(E:\Word VBA学习笔记\照片)获取文件夹SetdocAPP CreateObject(word.application)Setdoc docAPP.Documents.AddSettabObj doc.Tables.Add(doc.Range, fd.Files.Count 1, 3, 1)tabObj.Cell(1, 1).Range.Text 序号tabObj.Cell(1, 2).Range.Text 图片名tabObj.Cell(1, 3).Range.Text 图片num 1ForEachf In fd.Filesnum num 1tabObj.Cell(num, 1).Range.Text num - 1tabObj.Cell(num, 2).Range.Text Split(f.Name, .)(0)tabObj.Cell(num, 3).Range.InlineShapes.AddPicture (f.Path)插入图片Nextdoc.SaveAs2 E:\Word VBA学习笔记\提取结果.docxdocAPP.QuitSetdocAPP NothingEnd Sub在记事本中写入如下代码要去掉注释符保存为vbs文件运行Setfso CreateObject(scripting.filesystemobject)创建一个文件系统对象fsoSetfd fso.getfolder(E:\Word VBA学习笔记\照片)获取文件夹SetdocAPP CreateObject(word.application)Setdoc docAPP.Documents.AddSettabObj doc.Tables.Add(doc.Range, fd.Files.Count 1, 3, 1)tabObj.Cell(1, 1).Range.Text 序号tabObj.Cell(1, 2).Range.Text 图片名tabObj.Cell(1, 3).Range.Text 图片Num 1ForEachf In fd.FilesNum Num 1tabObj.Cell(Num, 1).Range.Text Num - 1tabObj.Cell(Num, 2).Range.Text Split(f.Name, .)(0)tabObj.Cell(Num, 3).Range.InlineShapes.AddPicture (f.Path)插入图片Nextdoc.SaveAs2 E:\Word VBA学习笔记\提取结果.docxdocAPP.QuitSetdocAPP Nothing在工具-引用中加载“Microsoft Scripting runtime”就可以引用filesystemobject对象输入代码时有代码提示字典对象也是加载“Microsoft Scripting runtime”下面申明一个filesystemobject以作研究Subfilesystemobject对象()Dimfso As New filesystemobjectfso.MoveFile C:\Users\Administrator\Desktop\a.vbs, C:\Users\Administrator\Desktop\a.txt MoveFile可以重命名文件Setfs fso.GetFile(C:\Users\Administrator\Desktop\新建文件夹\td001\0001.jpg)Setfd fso.GetFolder(C:\Users\Administrator\Desktop\新建文件夹)ForEachf In fd.FilesDebug.Print f.NameNextEnd Sub6-4读取Excel数据写入到Word把下面代码去除sub与end sub复制到记事本中保存为vbs运行即可Sub读取Excel数据写入到Word()SetdocAPP CreateObject(word.application)docAPP.Visible TrueSetdoc docAPP.Documents.AddSett doc.Tables.Add(doc.Range(0), 2, 6, 1)创建2行6列有网格的表格t.Cell(1, 1).Range.Text 姓名t.Cell(1, 2).Range.Text 第1季度t.Cell(1, 3).Range.Text 第2季度t.Cell(1, 4).Range.Text 第3季度t.Cell(1, 5).Range.Text 第4季度t.Cell(1, 6).Range.Text 总计SetxlApp CreateObject(excel.application)xlApp.Visible TrueSetwb xlApp.Workbooks.Open(E:\Word VBA学习笔记\6-5.xlsx)Setws wb.Sheets(业绩表)a ws.usedrange.Rows.CountFori 2 To aIfws.Cells(i, f).Value 6000000Thenintlast t.Rows.Last.Indext.Rows.Add t.Rows(intlast)在最后一行的前面插入一行t.Cell(intlast, 1).Range.Text ws.Cells(i, a).Valuet.Cell(intlast, 2).Range.Text ws.Cells(i, b).Valuet.Cell(intlast, 3).Range.Text ws.Cells(i, c).Valuet.Cell(intlast, 4).Range.Text ws.Cells(i, d).Valuet.Cell(intlast, 5).Range.Text ws.Cells(i, e).Valuet.Cell(intlast, 6).Range.Text ws.Cells(i, f).ValueEnd IfNextdoc.SaveAs2 E:\Word VBA学习笔记\结果.docxdocAPP.QuitSetdocAPP NothingxlApp.QuitSetxlApp NothingEnd Sub6-5读取Word数据写入到Excel把下面代码去除sub与end sub复制到记事本中保存为vbs运行即可Word表格中的数据如下产品数量a 23b 58a 41b 29c 88c 102a 34Sub读取Word数据写入到Excel()Setdic CreateObject(scripting.dictionary)SetdocAPP CreateObject(word.application)Setdoc docAPP.Documents.Open(E:\Word VBA学习笔记\销售表.docx)Sett doc.Tables(1)Fori 2 To t.Rows.Countcp Split(t.Cell(i, 1).Range.Text, Chr(13))(0)sl Split(t.Cell(i, 2).Range.Text, Chr(13))(0)dic(cp) dic(cp) Int(sl)NextSetxlApp CreateObject(excel.application)Setwb xlApp.Workbooks.AddSetws wb.Sheets(1)ws.Range(a1:b1) Array(产品, 总数量)ws.Range(a2).Resize(dic.Count, 2) xlApp.Transpose(Array(dic.keys, dic.items))wb.SaveAs E:\Word VBA学习笔记\销售表.xlsxdocAPP.QuitxlApp.QuitSetdocAPP NothingSetxlApp NothingEnd Sub6-6 Excel通用功能实例拆分工作簿将一个有很多工作表的工作簿拆分为只有一个工作表的工作簿把下面代码去除sub与end sub复制到记事本中保存为vbs运行即可SubExcel通用功能实例拆分工作簿()strPath InputBox(请输入要拆分的Excel文件路径)strSavePath InputBox(请输入拆分后保存的路径)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 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与模拟键盘输入