Foxtable(狐表)用户栏目专家坐堂 → 解压后导入


  共有1888人关注过本帖树形打印复制链接

主题:解压后导入

帅哥哟,离线,有人找我吗?
keli0917
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:241 积分:2340 威望:0 精华:0 注册:2018/5/21 16:49:00
解压后导入  发帖心情 Post By:2020/11/16 11:49:00 [只看该作者]

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 = 解压后的文件名

 

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


[此贴子已经被作者于2020/11/16 11:50:12编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105481 积分:536396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:241 积分:2340 威望:0 精华:0 注册:2018/5/21 16:49:00
  发帖心情 Post By:2020/11/21 12:28:00 [只看该作者]

 

[此贴子已经被作者于2020/11/21 13:37:04编辑过]

 回到顶部