普大喜奔 当前离线
一级士官
set oExcel=CreateObject("Excel.Application") oExcel.Visible=True set xlsfile=oExcel.Workbooks.Open FileName:="d:\data.txt",ReadOnly:=True,Format:=6,Delimiter=:"|"复制代码
moon3003003 当前离线
列兵
TOP
zz100001 当前离线
六级士官
CrLf 当前离线
论坛巡查
objWord.Visible=False '以只读方式打开,并且避免打开文件转换或编码对话框 set docfile=objWord.Documents.Open FileName:=arg,ReadOnly:=True,ConfirmConversions:=false,NoEncodingDialog:=true str=docfile.Content docfile.Close复制代码
set oexcel=createobject("excel.application") oexcel.visible=true oexcel.workbooks.open "d:\data.txt",,True,6,,,,,"|"复制代码