主题：解压后导入

ZIP压缩包内只有一个EXCEL文档，文件名是不确定的。

希望实现，直接选择ZIP包，然后自动解压后导入FOXTABLE

应该怎么设计导入的代码

Dim dlg As New OpenFileDialog
dlg.Filter= "Zip文件|*.zip"
If dlg.ShowDialog = DialogResult.Ok Then

Dim zip As New zipFile
zip.Open(dlg.filename)
 zip.Extractall(FileSys.GetParentPath(dlg.FileName) )

 zip.Close()
end if

 e.Form  .Controls("TextBox1").value = 解压后的文件名

导入的代码我会，就省略不写了。