发布网友 发布时间:2022-04-21 03:47
共1个回答
热心网友 时间:2022-06-17 20:06
Call Plugin.Office.OpenXls("C:\Documents and Settings\Administrator\桌面\测试.xlsx")
For i=2 to 10000
textC = Plugin.Office.ReadXls(1, i, 3)
textD = Plugin.Office.ReadXls(1, i, 4)
If textC = "" Then
EXIT FOR
Else
SayString textC
SayString " "
SayString textD
SayString " "
SayString textD
SayString CHR(10)
End IF
Next
Plugin.Office.CloseXls