怎么将XLS表格内的数字当作文本存入数组

如何将XLS表格内的数字当作文本存入数组
本人设置完毕XLS单元格内的数字为文本，

然后 

eole.SHEETS(1).Activate
js=eole.ActiveSheet.UsedRange.Value


运行之后，数组js的数字文本是数字类型而非文本类型？

请问如何操作可以保留文本格式


[解决办法]

引用:

Quote: 引用:

再次测试结果如下：

如果先设置XLS单元格为文本，再录入单元格数字，得到的数组是字符型
如果先录入单元格数字，再设置XLS单元格为文本，得到的数组是数字型

如何解决后设置文本的问题？

那就只能曲线救国了，代码如下：

Clear

Eole=Createobject('Eole.application')
Eole.Workbooks.Open("c:\a2.xls")

Local js,nCol,nRow,i1,i2
nRow=Eole.ActiveSheet.UsedRange.Rows.Count
nCol=Eole.ActiveSheet.UsedRange.Columns.Count
Dimension js(nRow,nCol)
For i1=1 To nRow
For i2=1 To nCol
js(i1,i2)=Eole.cells(i1,i2).Text
Endfor
Endfor
Eole.Quit
Release Eole

List Memory Like js
Return

查看更多 下一篇