EXCEL导入数据，取值有问题

2012-11-06 11:01:14 386 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

C#用NPOI将Excel转为DataTable：完整实现与踩坑指南在工业信息化与管理系统开发中，Excel作为最通用的数据交换格式，常需被程序解析为结构化数据集。DataTable作为ADO.NET的核心内存表结构，能高效支持数据绑定、LINQ查询与批量入库，是C#后端处理表格数据的关键载体。而NPOI作为纯托管的Excel读写库，无需安装Office即可读写.xls/.xlsx，相比COM互操作更稳定、轻量且跨平台。掌握Excel到DataTable的转换原理，可提升数据导入功能的开发效率，广泛应用于MES/ERP数据导入、上位机参数配置及报表统计等场景。本文基于NPO 阅读详情

我取第一个字段的程序如下：
material_name=allt(ExeclSheet.cells(rowNum, 1).value)

结果发现赋值给material_name是个空串，但是allt(ExeclSheet.cells(rowNum, 1).value)是有值的，请问这是为什么？

...全文

事件相机（Event Camera）及相关研究简介——新一代相机？新的计算机视觉领域？事件相机（Event Camera）及相关研究简介事件相机是一个新型的类脑相机，是一个待开发的大领域。希望通过我的分享，能够有更多人来研究并将它更好地运用在我们的生活中~ 阅读详情

fionazou

VFP 2,750 成员 29,142 内容

+ 关注 + 加入社区

切换为时间正序

luo12161 2012-11-14

打赏
举报

正好也需要，学习了

fionazou 2012-11-06

打赏
举报

谢谢老师的指导，用老师的方法就OK了。

十豆三 2012-11-06

打赏
举报

把你的 do while 循环改为：

lnRows=ExeclSheet.UsedRange.Rows.Count	 && 有数据的总行数
For rowNum=2 To lnRows
	material_name=Allt(ExeclSheet.cells(rowNum, 1).Value)
	?material_name
	*  WAIT "EXCEL数据处理中，" +  material_name+"..." WINDOW  AT 689,2 NOWAIT

	If Len( material_name)>0
		*!*	        tmp=ExeclSheet.cells(rowNum, 2).value
		*!*	       if type("tmp")=='N'
		*!*	          vendor=allt(str(tmp))
		*!*	       else
		*!*	          vendor=allt(tmp)
		*!*	       endif
		*!*	       f_num1=ExeclSheet.cells(rowNum, 3).value
		*!*	       f_num2=ExeclSheet.cells(rowNum, 4).value
		*!*	       f_num3=ExeclSheet.cells(rowNum, 5).value
		*!*	       f_char1=ExeclSheet.cells(rowNum, 6).value
		*!*	       currency=ExeclSheet.cells(rowNum, 7).value
		*!*	       cost=ExeclSheet.cells(rowNum, 8).value
		*!*	       effectivedate=ExeclSheet.cells(rowNum, 9).value
		*!*
		*!*	       insert into (thisform.tblPrice) values(rowNum,material_name,vendor,f_num1,f_num2,f_num3,f_char1,currency, cost,effectivedate)

	Endif
Endfor

WWWWA 2012-11-06

打赏
举报

lcFileName='r:\temp\cost1.xls' oExcel=Createobject('Excel.application') oExcel.Workbooks.Open('&lcFileName') &&打开文件 ?Alltrim(oExcel.ActiveSheet.CELLS.item(1,1).Value) 正常取得值

十豆三 2012-11-06

打赏
举报

你的代码有问题，能取得全部的值，可是你的循环还在取下面的空行。

十豆三 2012-11-06

打赏
举报

用你的 cost1.xls，以下代码可以正常取得值。

lcFileName='c:\cost1.xls'
oExcel=Createobject('Excel.application')
oExcel.Workbooks.Open('&lcFileName') &&打开文件
For lnI=1 To 10
	?Alltrim(oExcel.ActiveSheet.Cells(lnI,1).Value)
Endfor
oExcel.ActiveWorkbook.saved=.T. &&不保存当前EXCEL表
oExcel.Workbooks.Close &&关闭表
oExcel.Quit &&退出EXCEL
Release oExcel &&释放变量
Messagebox('OK！',64,'信息提示')

fionazou 2012-11-06

打赏
举报

ExcelBook.ActiveSheet.Cells(1,1).Value 的值是material_name

fionazou 2012-11-06

打赏
举报

您好，我已经上传了。

十豆三 2012-11-06

打赏
举报

rowNum 的值是多少？先这样试试 ?oExcel对像名.ActiveSheet.Cells(1,1).Value

wwwwb 2012-11-06

打赏
举报

上传你的xls、DBF到http://www.access911.net/csdn
，用WINRAR压缩

EXCEL导入数据，取值有问题

相关推荐