Text = Plugin.File.ReadFileEx("d:\
我的文档\桌面\新建
文本文档.txt")//文档位置你自己改
dim MyArray
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
i=0
For UBound(MyArray)
//下面这句是得到文本内容
SayString Cstr(MyArray(i))
Delay 1000
Msgbox "成功输入第 " & i+1 &" 行文本内容为:"& Cstr(MyArray(i))
Delay 1000
i=i+1
Next
End If
//////////////////////////////////////
dim a,text
Call Plugin.Office.OpenXls("E:\test.xlsx")
//ReadXls(Sheet,行,列)
text = Plugin.Office.ReadXls(1, 2, 1)//sheet,行,列
MessageBox "读出内容为:"&text
————————————————
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。