如何批量处理文件？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何批量处理文件？

共有2742人关注过本帖树形打印复制链接主题：如何批量处理文件？

南望

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：392 积分：3312 威望：0 精华：0 注册：2014/4/9 10:04:00

如何批量处理文件？ 发帖心情

Post By：2015/3/27 16:32:00 [显示全部帖子]

下列代码只能实现一个文件的操作，如何实现选择某目录后对该目录下（包括子目录）所有EXCEL文件执行如下代码？

Dim file As String = e.Form.Controls("TextBox1").value

Dim Book1 As New XLS.Book(file)

Dim Sheet1 = Book1.Sheets(0)

For i As Integer = 0 To Sheet1.Rows.Count-1

For j As Integer = 0 To Sheet1.Cols.Count -1

If dic.ContainsKey(Sheet1(i, j).Text) Then

Output.Show(Sheet1(i, j).Text & vbcrlf & dic(Sheet1(i, j).Text))

Sheet1(i, j).value = Sheet1(i, j).Text & vbcrlf & dic(Sheet1(i, j).Text)

End If

'//保存

Book1.Save(file)

南望

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：392 积分：3312 威望：0 精华：0 注册：2014/4/9 10:04:00

Post By：2015/3/30 14:17:00 [显示全部帖子]

我看了，还是有些搞不懂，麻烦老师结合我的代码给个例子，小弟再学习一下

主题：如何批量处理文件？