| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 如何批量导入Excel表格 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=148442) |
| -- 作者：gudao123456 -- 发布时间：2020/4/8 8:47:00 -- 如何批量导入Excel表格 工作中需要批量导入Excel表格，如何才能实现呢？谢谢 |
| -- 作者：有点蓝 -- 发布时间：2020/4/8 9:04:00 -- 比如 Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器 dlg.MultiSelect=true If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 For each file as string in dlg.FileNames Dim mg As New Merger mg.SourcePath = file mg.Format = "excel" \'指定格式 mg.SourceTableName = "订单" \'指定要合并的表 mg.DataTableName = "订单" \'指定接收数据的表 mg.Merge() \'开始合并 Next End If |
| -- 作者：gudao123456 -- 发布时间：2020/4/8 9:48:00 -- 谢谢！ 但这个执行起来有错误，而且也需要一个一个地选，我的想法是，将某个文件夹里的的所有Excel文件自动读入，无需一个一个地点击选择 [此贴子已经被作者于2020/4/8 10:40:11编辑过]
|