- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 文件导入 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=104790)
-- 发布时间：2017/8/5 7:14:00
-- 文件导入
窗口按钮导入
请教，先选择电子表格，再导入
用如下语句：
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
MessageBox.Show("你选择的是:" & dlg.FileName,"提示") \'提示用户选择的文件
End If
然后将所选定的表格导入，导入后的表名为：表A1 后面的代码，怎写啊？
Dim ip as New Importer
ip.SourcePath = ？？？？？？ \'指定数据文件
ip.SourceTableName = "表A1" \'指定要导入的表
ip.NewTableName ="表A1"
\'导入后的表名
ip.Format = "Excel"
\'指定导入格式
ip.Import()
-- 发布时间：2017/8/5 8:57:00
--
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ip as New Importer
ip.SourcePath = dlg.FileName \'指定数据文件ip.SourceTableName = "表A1" \'指定要导入的表
ip.NewTableName ="表A1" \'导入后的表名
ip.Format = "Excel" \'指定导入格式
ip.Import()
End If
-- 发布时间：2017/8/5 9:09:00
--
提示：
SELECT 子句中包含一个保留字、拼写错误或丢失的参数，或标点符号不正确。
-- 发布时间：2017/8/5 9:16:00
--
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ip As New Importer
ip.SourcePath = dlg.FileName \'指定数据文件
ip.SourceTableName = "表A1$" \'指定要导入的表
ip.NewTableName ="表A1" \'导入后的表名
ip.Format = "Excel" \'指定导入格式
ip.Import()
End If
-- 发布时间：2017/8/5 9:22:00
--
试过了，还是不行
-- 发布时间：2017/8/5 9:26:00
--
上传Excel文件看看
-- 发布时间：2017/8/5 9:40:00
-- 回复
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:1月.xls |
-- 发布时间：2017/8/5 9:47:00
--
Excel里表格的名称是“Sheet1”，不是表A1
ip.SourceTableName = "Sheet1$" \'指定要导入的表
-- 发布时间：2017/8/5 9:50:00
--
谢谢！