专家坐堂-导入判断问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  导入判断问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=188205)

--  作者：HJG_HB950207
--  发布时间：2023/9/7 12:29:00
--  导入判断问题

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ip As New Importer
ip.Format = "Excel"
ip.SourcePath = dlg.FileName \'指定数据文件
ip.SourceTableName = "sheet0" \'指定要导入的表
ip.NewTableName = "原始表1" \'导入后的表名
ip.Import()
End If

如何用代码判断要导入的电子表是否含sheet0，如存在sheet0则导入，否则退出。

--  作者：有点蓝
--  发布时间：2023/9/7 13:31:00
--

If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim Book As New XLS.Book(dlg.FileName)
for each Sheet1 As XLS.Sheet in Book.Sheets
if Sheet1.name = "sheet0"
原导入代码
exit for
end if
next
end if