”参数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 , Windows Server R2, Windows Server 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: /6/2
path=BrowseForFile()
If path <> "" Then WScript.Echo path
