以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]怎么将EXCEL数据导入到窗口表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177874)

--  作者:砥砺前行
--  发布时间:2022/6/8 9:55:00
--  [求助]怎么将EXCEL数据导入到窗口表
如题。选择文件导入的同时给所有数据行标记导入日期
--  作者:有点蓝
--  发布时间:2022/6/8 10:08:00
--  
这种方式导:http://www.foxtable.com/webhelp/topics/2334.htm

同时给每一行的导入日期列赋值当前事件即可

--  作者:砥砺前行
--  发布时间:2022/6/8 12:29:00
--  
报错:Microsoft Jet 数据库引擎找不到对象\'sheet1\'。请确定对象是否存在,并正确地写出它的名称和路径。


Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
    
    dlg.Filter = "Excel文件|*.xls|Excel文件|*.xlsx" \'设置筛选器
    
    If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
        
        Dim mg As New Merger
        
        mg.SourcePath = dlg.FileName
        
        If dlg.FileName.EndsWith(".xls") Then
            
            mg.Format = "excel" \'指定格式
            
        Else
            
            mg.Format = "excel2007" \'指定格式
            
        End If

        MessageBox.Show(mg.SourcePath)
        mg.SourceTableName = "sheet1"
        mg.DataTableName = e.Form.Name & "_table3"
        mg.Merge()
         
    End If

--  作者:有点蓝
--  发布时间:2022/6/8 13:31:00
--  
http://www.foxtable.com/webhelp/topics/0685.htm

示例七

合并Excel文件:

Dim mg As New Merger
mg
.SourcePath = "c:\\data\\销售管理.xls"
mg
.Format = "excel" \'指定格式
mg
.SourceTableName = "订单" \'指定要合并的表
mg
.DataTableName = "订单" \'指定接收数据的表
mg
.Merge() \'开始合并


一些Excel文件,可能需要在表名后加上符号$才能正常导入,例如:

Dim mg As New Merger
mg
.SourcePath = "c:\\data\\销售管理.xls"
mg
.Format = "excel" \'指定格式
mg
.SourceTableName = "订单$" \'指定要合并的表
mg
.DataTableName = "订单" \'指定接收数据的表
mg
.Merge() \'开始合并


--  作者:砥砺前行
--  发布时间:2022/6/8 16:38:00
--  
原来如此 加上 $就好了