以文本方式查看主题

-  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=116247)
--  作者：小巫仙
--  发布时间：2018/3/21 18:07:00
--  [求助]导入excel形成的表是什么类型的表？
请问导入excel形成的表是什么类型的表，如果想将之前导入的表覆盖，如何删除之前导入的表？
--  作者：有点甜
--  发布时间：2018/3/21 21:27:00
--  

你是不是要合并数据？

 

http://www.foxtable.com/webhelp/scr/0187.htm

 

高速导入，是导入成新的表的。
--  作者：小巫仙
--  发布时间：2018/3/24 18:57:00
--  
甜老师，我是想每个月导入考勤机里的考勤表，因为考勤表的格式里没有一列是代表日期的，所以我想了很久就觉得将后一个月把前一个月的数据覆盖这样才不会冲突。
或者能不能在导入excel之前通过代码对excel做修改呢？这个应该比较困难吧。关键让人工导入前对excel做修改的话可能会做错。。。
--  作者：有点甜
--  发布时间：2018/3/25 17:51:00
--  
没有日期列，可以手动添加日期列吧？把数据合并进去，如2楼，然后加入当前月份的日期。
--  作者：小巫仙
--  发布时间：2018/3/26 21:24:00
--  
甜老师，那在导入前能代码判断一下excel中是否有日期列吗？
--  作者：有点蓝
--  发布时间：2018/3/26 21:33:00
--  
类似

Dim Book As New XLS.Book("f:\\123.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim f As Boolean
For n As Integer = 0 To Sheet.Cols.Count -1
    If sheet(0,n).Text Like "*日期*" Then
        f = True
        Exit For
    End If
Next

If f Then
    msgbox("有日期")
Else
    msgbox("无日期")
End If