vbs 读取word数据 vbs 读取word表格内容
VBScript中怎样对文本文件里读写数据
用FileSystemObject对象创建一个TextStream便实现对文本文件的读写--------------------------------------------------- 创建指定文件并返回 TextStream 对象，该对象可用于读或写创建的文件。
语法 object.CreateTextFile(filename[, overwrite[, unicode]]) CreateTextFile 方法的语法有以下部分：object 必选项。
应为 FileSystemObject 或 Folder 对象的名称。
filename 必选项。
字符串表达式，指明要创建的文件。
overwrite 可选项。
Boolean 值指明是否可以覆盖现有文件。
如果可覆盖文件，该值为 True；如果不能覆盖文件，则该值为 False 。
如果省略该值，则不能覆盖现有文件。
unicode 可选项。
Boolean 值指明是否以 Unicode 或 ASCII 文件格式创建文件。
如果以 Unicode 文件格式创建文件，则该值为 True；如果以 ASCII 文件格式创建文件，则该值为 False。
如果省略此部分，则假定创建 ASCII 文件。
说明 以下代码举例说明如何使用 CreateTextFile 方法创建并打开文本文件： Sub CreateAfile Dim fso, MyFile Set fso = CreateObject(Scripting.FileSystemObject) Set MyFile = fso.CreateTextFile(c:\testfile.txt, True) MyFile.WriteLine（这是一个测试。
） MyFile.Close End Sub 对于 filename 已经存在的文件，如果 overwrite 参数为 False，或未提供此参数时，则会出现错误。
----------------------------------------------------------- 描述 打开指定的文件并返回一个 TextStream 对象，可以读取、写入此对象或将其追加到文件。
语法 object.OpenTextFile(filename[, iomode[, create[, format]]]) OpenTextFile 方法的语法有以下部分：object 必选项。
应为 FileSystemObject 对象的名称。
filename 必选项。
字符串表达式，指明要打开的文件名称。
iomode 可选项。
输入/输出模式，是下列三个常数之一：ForReading,ForWriting，或 ForAppending。
create 可选项。
Boolean 值，指出当指定的 filename 不存在时是否能够创建新文件。
允许创建新文件时为 True，否则为 False。
默认值为 False。
format 可选项。
三个 Tristate 值之一，指出以何种格式打开文件。
若忽略此参数，则文件以 ASCII 格式打开。
设置 iomode 参数可为下列设置之一：ForReading 1 以只读模式打开文件。
不能对此文件进行写操作。
ForWriting 2 以只写方式打开文件。
不能对此文件进行读操作。
ForAppending 8 打开文件并在文件末尾进行写操作。
format 参数可为下列设置之一：TristateUseDefault -2 以系统默认格式打开文件。
TristateTrue -1 以 Unicode 格式打开文件。
TristateFalse 0 以 ASCII 格式打开文件。
说明 以下代码举例说明如何使用 OpenTextFile 方法打开写文件： Sub OpenTextFileTest Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso, f Set fso = CreateObject(Scripting.FileSystemObject) Set f = fso.OpenTextFile(c:\testfile.txt, For Writing, True) f.Write 嗨，你好！ f.Close End Sub------------------------------------------------------------- 另TextStream还有如下方法：Close 方法 Read 方法 ReadAll 方法 ReadLine 方法 Skip 方法 SkipLine 方法 Write 方法 WriteLine 方法 WriteBlankLines 方法 详细可参阅VBScript 5.0 帮助文档
VBS 如何读取Excel中的每一行数据？
Dim objExcel,objExcelBook,objExcelSheet,dicRetContainer写在函数里面 ，只能在函数里面处理需要在函数外面处理的，把Dim objExcel,objExcelBook,objExcelSheet,dicRetContainer写在函数外面如果还不行，就要检查函数模块是不是公共模块了
您好,我想问一下用EXCEL vba读取word表格中的表格数据怎么读取...
可以的，只要变量名字符串拼接的正确。
你要一次读取这么多变量，最好在循环语句中创建一个tagset.dim groupset group=HMIRuntime.Tags.CreateTagSetFor i=1to2000group.Add ＂Data＂&i&＂.IA_2＂Next igroup.Read
vbs读取配置文件里的字母如何变量,文件内容是AD=EDCBA,变量后...
1.你说的这个主要是取得word接口 然后配合word自带的宏完成任务 实现起来很简单COleVariant vTrue((short)TRUE), vFalse((short)FALSE),vOpt((long)DISP_E_PARAMNOTFOUND, VT_ERROR);_Application m_App；//定义Word提供的应用程序对象；Documents m_Docs；//定义Word提供的文档对象；Selection m_Sel；//定义Word提供的选择对象；m_Docs.ReleaseDispatch();m_Sel.ReleaseDispatch();m_App.m_bAutoRelease=true;if(!m_App.CreateDispatch(＂Word.Application＂)){ AfxMessageBox（＂创建WordXP服务失败！＂）； exit(1); }//下面是定义VARIANT变量；COleVariant varFilePath(sPath+＂MYDOC.DOC＂);COleVariant varstrNull(＂＂);COleVariant varZero((short)0);COleVariant varTrue(short(1),VT_BOOL);COleVariant varFalse(short(0),VT_BOOL);m_Docs.AttachDispatch(m_App.GetDocuments（)）；//将Documents类对象m_Docs和Idispatch接口关联起来；m_Docs.Open(varFilePath,varFalse,varFalse,varFalse,varstrNull,varstrNull,varFalse,varstrNull,varstrNull,varTrue,varTrue,varTrue,varTrue,varTrue,varTrue);//打开Word文档； m_Sel.AttachDispatch(m_App.GetSelection（)）；//将Selection类对象m_Sel和Idispatch接口关联起来；下面就是操作了~2.用批处理做不到 如果只是这样子的话 连VC都可以省了 VBS 就能做到比如新建一个c:\1.doc 里面写上wangtk1982 然后保存退出 编辑下面文件为vbs文件 运行看看结果Dim oWordSet oWord = WScript.CreateObject(＂Word.Application＂)set myDoc =oWord.Documents.Open(＂c:\1.doc＂)With oWord.Selection.Find.Text = ＂1982＂.Replacement.Text = ＂2011＂.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithoWord.Selection.Find.Execute ,,,,,,,,,,1myDOc.SavemyDoc.Closeoword.Quit
可以用BAT或VBS逐个读取TXT文件中的单词并输出
Set objFSO = CreateObject(＂Scripting.FileSystemObject＂)Set objFile = objFSO.OpenTextFile(＂C:\FSO\New Text Document.txt＂, 1)temp = objFile.readAllSet re = New RegExpre.Global = Truere.IgnoreCase = falsere.Pattern = ＂[a-z"A-Z]+＂Set matches = re.Execute(temp)For Each m In matchesWScript.stdOut.write m.Value & ＂ ＂wscript.sleep 1000 "让你有阅读的快感next 求采纳。
有问题随时联系。
-