老师您好！在向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
请您指教！
加好友 
发短信
Post By：2022/8/2 9:34:00 [显示全部帖子]
