VB监听Excel数据表，下传服务器

VB监听Excel数据表，上传服务器
各位朋友：
   我想用VB实现一个监听Excel数据表，只要有写入就上传服务器的程序。各位朋友能否提供一下思路，如果有相关源代码那就更好了，谢谢大家了。

相关疑问：1.Excel数据表是以日期命名的，如果同时开启几个Excel表的话，怎么去监听最新日期的表单。
          2.远程登录服务器，用什么方法最呢。
          3.监听到的数据先保存到本机中，然后每2个小时小传一次。


 No.MAC NumberMFG.DataMFG.TimeSeriel Number
1001915D829DA409860.445F2C00924
2001915D829DA2012-03-1810:41:15F2C00924
3001915D806EB2012-03-1810:54:29F2C00111

[解决办法]

引用楼主:

1.Excel数据表是以日期命名的，如果同时开启几个Excel表的话，怎么去监听最新日期的表单。

Function GetLastWorkbook() As Excel.Workbook
    Dim xlBook As Excel.Workbook
    Dim dt As Date
    Dim i As Long
    
    dt = Now
    For i = 0 To 31
        On Error Resume Next
        Set xlBook = GetObject("C:\temp" & Format$(dt, "yyyymmdd") & ".xls")
        On Error GoTo 0
        If Not xlBook Is Nothing Then
            Exit For
        End If
        
        dt = DateAdd("d", -1, dt)
    Next
    
    Set GetLastWorkbook = xlBook
End Function

[解决办法]

引用楼主

2.远程登录服务器，用什么方法最呢。

用 Microsoft Internet Transfer Control，调用 FTP 的 PUT 命令就可以上传文件。

引用楼主

3.监听到的数据先保存到本机中，然后每2个小时小传一次。

用一个变量：下次上传时间
用定时器：

Private Sub Timer1_Timer()
  If 当前时间<=下次上传时间 Then
    上传
    下次上传时间 = 下次上传时间 + 2小时
  End If
End Sub

查看更多 下一篇