Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:如何将Excel中所有sheet都导入?

1楼
山中树人100 发表于:2024/5/30 0:22:00
目前以下代码已解决“”sheet1“”的导入,如何将Excel中所有sheet都导入进去?

导入代码
 For Each fl As String In dlg.FileNames
       Dim mg As New Merger
       mg.SourcePath = fl
             if fl.EndsWith(".xls")
             mg.Format = "excel" '指定格式
             else
             mg.Format = "excel2007" '指定格式
             end if
      mg.SourceTableName = "sheet1$" '指定要合并的表
      mg.DataTableName = "sheet1" '指定接收数据的表
      mg.Merge() '开始合并
        Next

历遍代码
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 = "sheet1" '指定接收数据的表
            mg.Merge() '开始合并
Next


2楼
有点蓝 发表于:2024/5/30 9:04:00
For Each fl As String In dlg.FileNames
    Dim Book As New XLS.Book(fl)
    For Each Sheet As XLS.Sheet In Book.Sheets
        Dim mg As New Merger
        mg.SourcePath = fl
        If fl.EndsWith(".xls") Then
            mg.Format = "excel" '指定格式
        Else
            mg.Format = "excel2007" '指定格式
        End If
        mg.SourceTableName = Sheet.name & "$" '指定要合并的表
        mg.DataTableName = "sheet1" '指定接收数据的表
        mg.Merge() '开始合并
    Next
Next

共2 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.