”参数8：表示“ForAppending：打开文件并从文件末尾开始写”

'Txt.ReadLine'读取一整行

'Txt.Read(7)'读取指定数量字符

'Txt.ReadAll'读取文本所有内容

'Txt.CreateTextFile'创建文件用法：SetMyFile=Txt.CreateTextFile(whichfile,True)True即表示能覆盖已有文件

'Txt.WriteLine'向已有文件写入内容用法：Txt.WriteLine("欢迎您来到本站")

'Txt.Name'返回文件名称

'Txt.ShortPath'返回文件短路径名

'Txt.Path'返回文件物理地址

'Txt.Attributes'返回文件属性

'返回值附录：

'Normal0普通文件

应用到: Windows Server 2003, Windows Server 2003 R2, Windows Server 2003 with SP1

当处于文件结尾的时候这个属性返回true.我们可以用循环检测又没有到达文件末尾

比如：

vbsi="字符"

vbsj="串接"

vbsa=i&j

此时a就是字符串接

吞食孔明传二周目鲁肃怎么招募?这里给大家带来了吞食孔明传二周目鲁肃入队方法简单介绍，不知道这个武将怎么入队的同学，快来看下具体的操作吧

'拖动工作表至VBS脚本实现按指定表头自动分表

On Error Resume Next

If WScript.Arguments(0)="" Then WScript.Quit

Dim objExcel, ExcelFile, MaxRows, MaxColumns, SHCount

ExcelFile=WScript.Arguments(0)

If LCase(Right(ExcelFile,4)) <> ".xls" And LCase(Right(ExcelFile,4)) <> ".xls" Then WScript.Quit

Set objExcel=CreateObject("Excel.Application")

objExcel.Visible=False

objExcel.Workbooks.Open ExcelFile

'获取工作表初始sheet总数

SHCount=objExcel.Sheets.Count

'获取工作表有效行列数

MaxRows=objExcel.ActiveSheet.UsedRange.Rows.Count

MaxColumns=objExcel.ActiveSheet.UsedRange.Columns.Count

'获取工作表首行表头列表

Dim StrGroup

For i=1 To MaxColumns

StrGroup=StrGroup & "[" & i & "]" & vbTab & objExcel.Cells(1, i).Value & vbCrLf

Next

'用户指定分表表头及输入性合法判断

Dim Num, HardValue

Num=InputBox("请输入分表表头的序号" & vbCrLf & StrGroup)

If Num <> "" Then

Num=Int(Num)

If Num > 0 And Num <=MaxColumns Then

HardValue=objExcel.Cells(1, Num).Value

Else

objExcel.Quit

Set objExcel=Nothing

WScript.Quit

End If

Else

objExcel.Quit

Set objExcel=Nothing

WScript.Quit

End If

'获取分表表头值及分表数

Dim ValueGroup : j=0

Dim a() : ReDim a(10000)

For i=2 To MaxRows

str=objExcel.Cells(i, Num).Value

If InStr(ValueGroup, str)=0 Then

a(j)=str

ValueGroup=ValueGroup & str & ","

j=j + 1

End If

Next

ReDim Preserve a(j-1)

'创建新SHEET并以指定表头值命名

For i=0 To UBound(a)

If i + 2 > SHCount Then objExcel.Sheets.Add ,objExcel.Sheets("sheet" & i + 1),1,-4167

Next

For i=0 To UBound(a)

objExcel.Sheets("sheet" & i + 2).Name=HardValue & "_" & a(i)

Next

'分表写数据

For i=1 To MaxRows

For j=1 To MaxColumns

objExcel.sheets(1).Select

str=objExcel.Cells(i,j).Value

If i=1 Then

For k=0 To UBound(a)

objExcel.sheets(HardValue & "_" & a(k)).Select

objExcel.Cells(i,j).Value=str

objExcel.Cells(1, MaxColumns + 1).Value=1

Next

Else

objExcel.sheets(HardValue & "_" & objExcel.Cells(i,Num).Value).Select

If j=1 Then x=objExcel.Cells(1, MaxColumns + 1).Value + 1

objExcel.Cells(x ,j).Value=str

If j=MaxColumns Then objExcel.Cells(1, MaxColumns + 1).Value=x

End If

Next

Next

For i=0 To UBound(a)

objExcel.sheets(HardValue & "_" & a(i)).Select

objExcel.Cells(1, MaxColumns + 1).Value=""

Next

objExcel.ActiveWorkbook.Save

objExcel.Quit

Set objExcel=Nothing

WScript.Echo "提示：对" & ExcelFile & "的分表操作完成"

人物事迹

可以先放仓库

Function BrowseForFile()

Dim shell : Set shell=CreateObject("WScript.Shell")

Dim fso : Set fso=CreateObject("Scripting.FileSystemObject")

Dim tempFolder : Set tempFolder=fso.GetSpecialFolder(2)

Dim tempName : tempName=fso.GetTempName()

Dim tempFile : Set tempFile=tempFolder.CreateTextFile(tempName & ".hta")

tempFile.Write _

"" & _

"

" & _

"

Browse" & _

"" & _

"

" & _

"" & _

"

"var f=document.getElementById('f');" & _

"f.click();" & _

"var shell=new ActiveXObject('WScript.Shell');" & _

"shell.RegWrite('HKEY_CURRENT_USER\\Volatile Environment\\MsgResp', f.value);" & _

"window.close();" & _

"" & _

"" & _

""

tempFile.Close

shell.Run tempFolder & "" & tempName & ".hta", 0, True

BrowseForFile=shell.RegRead("HKEY_CURRENT_USER\Volatile Environment\MsgResp")

shell.RegDelete "HKEY_CURRENT_USER\Volatile Environment\MsgResp"

End Function

'Author: Demon

'Website:

'Date: 2011/6/2

path=BrowseForFile()

If path <> "" Then WScript.Echo path