Question

在以下档案中“E:my_raftermy_future_table.txt” 我有以下案文:

#   animal  country
1   rabbit  Germany
2   wolf    France
3   koala   USA

(请注意,案文各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各处各行各行各行各行各行各行各处各行各行各行各行各行各行各行各行各行各行各行各行各处各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行各行

我需要用什么VBS文字来创建“Word”档案(.doc),并在该文本的基础上建立一个表格? (本表应有3栏和4行)

Answer 1

与此类似,有健康程度的信贷:。

The vbs reads the test file (pls change your path), and then splits it by line break into an array ArrVar
Each line in this array is split further by VbTab into a second array, ArrVar2
The vbs creates a word table equal in size to the length of ArrVar and width of ArrVar2
Each item is written to the table cell by cell, row by row

Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add()

Set objRange = objDoc.Range()
strFilePath = "c:	empmy_future_table.txt"

Set objFSO = CreateObject("scripting.filesystemobject")
Set objTF = objFSO.opentextfile(strFilePath)
strAll = objTF.readall
arrVar = Split(strAll, vbNewLine)
numcols = UBound(Split(arrVar(0), vbTab)) + 1

objDoc.Tables.Add objRange, UBound(arrVar) - LBound(arrVar) + 1, numcols
Set objTable = objDoc.Tables(1)

For lngrow = LBound(arrVar) To UBound(arrVar)
    arrVar2 = Split(arrVar(lngrow), vbTab)
    For lngcol = LBound(arrVar2) To UBound(arrVar2)
     objTable.Cell(lngrow + 1, lngcol + 1).Range.Text = arrVar2(lngcol)
    Next
Next

objTF.Close
set objFSO = Nothing

objTable.AutoFormat (9)
objWord.Visible = True

友情链接