| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 解压后导入 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158315) |
| -- 作者：keli0917 -- 发布时间：2020/11/16 11:49:00 -- 解压后导入 ZIP压缩包内只有一个EXCEL文档，文件名是不确定的。 希望实现，直接选择ZIP包，然后自动解压后导入FOXTABLE
应该怎么设计导入的代码 Dim dlg As New OpenFileDialog Dim zip As New zipFile zip.Close()
e.Form .Controls("TextBox1").value = 解压后的文件名
导入的代码我会，就省略不写了。 [此贴子已经被作者于2020/11/16 11:50:12编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/11/16 12:01:00 -- 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() For Each f As String In FileSys.GetFiles(FileSys.GetParentPath(dlg.FileName)) If f.EndsWith(".xls") OrElse f.EndsWith(".xlsx") msgbox(f) 导入的代码 End If Next End If
|
| -- 作者：keli0917 -- 发布时间：2020/11/21 12:28:00 --
[此贴子已经被作者于2020/11/21 13:37:04编辑过]
|