Foxtable(狐表)用户栏目专家坐堂 → Excel导入讨论


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

主题:Excel导入讨论

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/6 9:27:00 [只看该作者]

以下是引用ZJZK2015在2017/12/6 1:28:00的发言:
老师你好:
XML 电子表格2003这种Excle导入时出错,如何处理??
谢谢!

 

不同格式的文件,导入方式是不一样的。具体excel文件上传上来,项目也上传上来。


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


加好友 发短信
等级:五尾狐 帖子:810 积分:7727 威望:0 精华:0 注册:2014/7/4 20:32:00
  发帖心情 Post By:2017/12/10 21:29:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/10 23:49:00 [只看该作者]

做一个另存为xls格式的功能。如代码

 

Dim dlg As new OpenFileDialog
dlg.Filter = "excel|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
    Dim App As New MSExcel.Application
    app.DisplayAlerts = False
    Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(dlg.FileName)
    Wb.SaveAs(Filename:=dlg.FileName, FileFormat:=MSExcel.XlFileFormat.xlExcel9795)
    wb.close
    app.quit
End If

 

 

 


 回到顶部
总数 33 上一页 1 2 3 4