- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 导入Excel文件时如何将Excel中每个sheet变成foxtable中的表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178989)
-- 发布时间：2022/8/2 9:34:00
-- 导入Excel文件时如何将Excel中每个sheet变成foxtable中的表
老师您好！
在向foxtable中导入Excel文件时，利用代码怎样将文件中的每一个sheet变成foxtable中相同名称的表。下面是我写的代码，在运行时只能导入Excel中第一个sheet，然后出现错误提示——“至少一个参数没有被指定值。”
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter = "Excel文件|*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ip As New Importer
ip.SourcePath = dlg.FileName \'指定数据文件
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
For Each Ws As MSExcel.WorkSheet In Wb.WorkSheets
ip.SourceTableName = Ws.Name & "$" \'指定要导入的表
ip.NewTableName = Ws.Name \'导入后的表名
ip.Format = "Excel" \'指定导入格式
ip.Import()
Next
App.Quit
End If
请您指教！
-- 发布时间：2022/8/2 10:08:00
--
ip.Format = "Excel2007" \'指定导入格式
-- 发布时间：2022/8/2 11:10:00
--
按照您的指导，将ip.Format = "Excel"改成ip.Format = "Excel2007" 后，再次运行出现错误提示“SELECT 子句中包含一个保留字、拼写错误或丢失的参数，或标点符号不正确。用messagebox.show命令找出是“ip.Import()”语句出现问题。请您看看这是怎么一回事！
-- 发布时间：2022/8/2 11:26:00
--
只能导入标准格式的数据：http://www.foxtable.com/webhelp/topics/2280.htm
第一行为列名，第二行开始为数据，不能有合并单元格
-- 发布时间：2022/8/2 11:42:00
--
老师您好!
我给您上传一个测试文件压缩文件，我将代码写入到导入按钮中，需要将“测试”的Excel文件中的内容导入到“测试”的foxtable文件中。请您帮着看看是哪个地方出现问题了，帮我解决一下。谢谢！
-- 发布时间：2022/8/2 11:55:00
--
execl文件发上来看看：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78
-- 发布时间：2022/8/2 12:12:00
-- 测试文件
Excel文件“测试”用附件形式发给您
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试.zip |
[此贴子已经被作者于2022/8/2 12:17:20编辑过]
-- 发布时间：2022/8/2 13:32:00
--
看4楼，只能导入标准格式的
-- 发布时间：2022/8/2 13:40:00
--
老师您好！
我将Excel“测试”文件改成标准格式，也不能导入！还是出现相同的错误提示“SELECT 子句中包含一个保留字、拼写错误或丢失的参数，或标点符号不正确。”
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:测试 (2).zip |
[此贴子已经被作者于2022/8/2 13:43:34编辑过]
-- 发布时间：2022/8/2 13:49:00
--
我测试没有问题吗，可以正常导入：
此主题相关图片如下：1.png