提取方式Import From "&lcOnlySheetFile" Type Xlsx不适用.XSLX文件(已做相应修改).它的适用范围应该是那些规范的EXCEL表格.有些编程方法值得借鉴,谢谢提供范例!
这个问题用沙枣的方法得到完美解决.

对这种情况,中间有空行应该怎么处理?

只要判断下行物资名称为空就停止导入.
我这样改: Do While .Not."检验结论"$pp .and..not.empty(oleapp.Cells(xa,4).Value)仍能导入.


[ 本帖最后由 antony521 于 2015-7-13 12:32 编辑 ]

这个搞复杂了,出现空行就是下面没有物资项了,检测到alltrim(物资名称)=""等同于"检验结论"$pp结束循环即可.不可能出现上下都有物资项,中间是空行的情况,如果出现这样的表格,我会掐死制表人的.
就是这个判断为空不知道用那种方法能识别出来,上次用了EMpty(),我再用alltrim()试试.
你的乐于助人和一丝不苟的严谨态度真让人佩服.
当然这段程序没有任何问题,也适用于中间有空行下方还有物资项的情况.太感谢了

[ 本帖最后由 antony521 于 2015-7-13 16:50 编辑 ]

三年了老版主还在回复.
可以得到数据.不过结果中有物资名称为空的无效数据(没有过滤空行数据).
靠序号判断空数据项目不可靠

[此贴子已经被作者于2018-12-8 11:14编辑过]