- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 合并Excel文件问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146619)
-- 发布时间：2020/2/27 16:58:00
-- 合并Excel文件问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:合并excel文件问题.zip |
-- 发布时间：2020/2/27 17:07:00
--
execl本身就有空数据，判断一下
For Each file
As String In filesys .GetFiles("E:\\ygxx")
\'遍历文件,指定文件的路径
If file.EndsWith(".xls") OrElse
file.EndsWith(".xlsx") Then
\'判断文件格式
Dim Book As New XLS.Book(file) \'定义一个新的工作本,含ygxx的所有文件
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用第一个工作表
For n As Integer = 1 To sheet.Rows.Count - 1 \'遍历第1个工作表的第2至最后一行
if sheet(n,0).Text.trim() > "" ‘姓名列有值’
Dim
dr As DataRow = DataTables("基本信息表").AddNew
\'在基本信息表中添加行
……
-- 发布时间：2020/2/27 18:59:00
--
谢谢有点蓝老师，问题解决了。