hur.cn - 华软网

 热门搜索

从Excel读单元格的问题

  作者:未知    来源:网络    更新时间:2019/10/7
Excel单元格中,如果是一个小数,该怎么读取
用.cells(i,1).value总是报错
------华软网友回答------
报啥错?
读给string变量
------华软网友回复------
就是用string变量来保存这一单元格内容报错,这里是否是要对这个值举行转化?
------华软网友回复------
string ls_title="选择资料",ls_pathname="C:\",ls_filename,ls_extension="xls",ls_filter="MicroSoft Excel(*.xls),*.xls",ls_curdir,ls_error
long ll_rtn,ll_row,ll_cnt
OLEObject xlapp,xlsub

ls_curdir = GetCurrentDirectory()
ll_rtn = GetFileOpenName(ls_title,ls_pathname,ls_filename,ls_extension,ls_filter)
Choose Case ll_rtn
Case 1  //执行成功
sle_path.text = ls_pathname
Case 0  //用户取消
sle_path.text = ""
MessageBox("提醒信息","您取消了操作!",Exclamation!)
return
Case - 1  //执行犯错
sle_path.text = "执行时犯错!"
MessageBox("提醒信息","猎取资料信息时犯错!",StopSign!)
return
End Choose
ChangeDirectory(ls_curdir)
xlapp = Create OLEObject
if xlapp.ConnectToNewObject("Excel.Sheet") < 0 then
MessageBox("Caption","Connection failed!")
return
end if
xlapp.Application.WorkBooks.Open(ls_pathname)
xlApp.Application.Visible = false
xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1]
string ls_tmp
ls_tmp = trim(string(xlsub.cells[ll_row,ll_cnt].value))

------华软网友回复------
参照改一下就能够
------华软网友回复------
关头是毛病提醒的详细内容是啥?
------华软网友回复------
我就是这么写的,其余列掏出来都是正常的,然则遇到单元格内容为9.99,10.11这样的小数就会报错      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。