Foxtable(狐表)用户栏目专家坐堂 → 如何导入".xlsx“文件?


  共有2271人关注过本帖平板打印复制链接

主题:如何导入".xlsx“文件?

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107133 积分:544908 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/1/6 9:02:00 [只看该作者]

If fl.ToLower.EndsWith(".xlsx") Then
            Dim Book As New xls.Book(fl)
            For Each Sheet As xls.Sheet In Book.Sheets '引用新增加的工作表
                Dim mg As New Merger
                mg.SourcePath = fl '指定数据文件所在目录
                mg.Format = "excel2007" '指定格式
                mg.SourceTableName = sheet.Name & "$"
                mg.DataTableName = "成绩库" '指定接收数据的表
                mg.Merge() '开始合并
            Next

 回到顶部
总数 18 1 2 下一页