vbs如何在word上写数据,上写,数据,vbs

1.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.CloseEnd 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.CloseEnd Sub-------------------------------------------------------------另TextStream还有如下方法：Close 方法Read 方法ReadAll 方法ReadLine 方法Skip 方法SkipLine 方法Write 方法WriteLine 方法WriteBlankLines 方法详细可参阅VBScript 5.0 帮助文档。

2.怎样将数据变量写入文件?VBS

CreateObject("WScript.Shell").Run "cmd /c echo "&F&">D:\F.txt"如果只是这一个变量的话上面这一句就够了。

不过正常来说vbs读写文件要使用文件对象，稍微复杂一些，给你个网上的例子，你参考一下。data=”hello, I like script programing”set fs =createobject(“scripting.filesystemobject”)if (fs.fileexists(“c:\2.txt”)) thenset f =fs.opentextfile(“c:\2.txt”,8)f.write dataf.writeline dataf.closeelseset f=fs.opentextfile(“c:\2.txt”,2, true)f.writeblanklines 2f.write dataf.closeend if。

3.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 帮助文档。

4.请问大侠!如何使用vbs生成word文档,显示计算机名,mac地址,ip

Set WMI = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Set Board = WMI.InstancesOf("Win32_BaseBoard")

Set Bios = WMI.InstancesOf("Win32_Bios")

For Each oBoard In Board

BBx ="主板名称： " & oBoard.Product

Next

For Each oBios In Bios

BBx = BBx & "OEM 版本： " & oBios.Version

Next

Set CPUs = WMI.InstancesOf("Win32_Processor")

For Each ObjCPU In CPUs

CPUx = "CPU 名称： " & Trim(ObjCPU.Name) & vbCrLf & "地址位宽： " & ObjCPU.AddressWidth & " Bit"

Next

Set Memorys = WMI.InstancesOf("Win32_PhysicalMemory")

Mems = 0

For Each Mem In Memorys

Mems = Mems+(Mem.Capacity)

Next

MEMx = "内存安装： "& Round(Mems/1048576)&" MB "

Set IDE = WMI.ExecQuery("Select * from Win32_DiskDrive WHERE InterfaceType='IDE'")

For Each oIDE In IDE

Dx = "硬盘型号：" & oIDE.Caption & "容量： " & Round(oIDE.Size/1000000000) &" GB"

next

Set colItems = WMI.ExecQuery("Select * From Win32_ Where IPEnabled = True")

For Each objItem in colItems

For Each objAddress in objItem.IPAddress

If objAddress "" then

GetIPMAC = "IP:" & objAddress & vbcrlf & "MAC:" & objItem.MACAddress

Exit For

End If

Next

Exit For

Next

msg = bbx & vbcrlf & cpux& vbcrlf & memx & vbcrlf & dx & vbcrlf & GetIPMAC

Set objWord = CreateObject("Word.Application")

objWord.Visible = false

Set objDoc = objWord.Documents.Add()

objword.Selection.TypeText msg

pt = left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"\"))

objword.ActiveDocument.SaveAs pt&"systeminfo.docx"

objword.quit

5.如何用VB在word里绘制表并填入表数据

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=4, NumColumns:= _

6, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _

wdAutoFitFixed

With Selection.Tables(1)

.ApplyStyleHeadingRows = True

.ApplyStyleLastRow = True

.ApplyStyleFirstColumn = True

.ApplyStyleLastColumn = True

End With

Selection.Columns(1).Select '选中列

Selection.Rows(4).Select '选中行

Selection.TypeText Text：="插入数据"

分太少，关键代码在上面，你自己创建WORD对象吧，EXCEL会用，WORD也应该会！