VB监听Excel数据表，下传服务器
VB监听Excel数据表，上传服务器
各位朋友：
我想用VB实现一个监听Excel数据表，只要有写入就上传服务器的程序。各位朋友能否提供一下思路，如果有相关源代码那就更好了，谢谢大家了。
相关疑问：1.Excel数据表是以日期命名的，如果同时开启几个Excel表的话，怎么去监听最新日期的表单。
2.远程登录服务器，用什么方法最呢。
3.监听到的数据先保存到本机中，然后每2个小时小传一次。
No. MAC Number MFG.Data MFG.Time Seriel Number
1 001915D829DA 40986 0.445 F2C00924
2 001915D829DA 2012-03-18 10:41:15 F2C00924
3 001915D806EB 2012-03-18 10:54:29 F2C00111
------解决方案--------------------
------解决方案--------------------
用 Microsoft Internet Transfer Control，调用 FTP 的 PUT 命令就可以上传文件。
用一个变量：下次上传时间
用定时器：
各位朋友：
我想用VB实现一个监听Excel数据表，只要有写入就上传服务器的程序。各位朋友能否提供一下思路，如果有相关源代码那就更好了，谢谢大家了。
相关疑问：1.Excel数据表是以日期命名的，如果同时开启几个Excel表的话，怎么去监听最新日期的表单。
2.远程登录服务器，用什么方法最呢。
3.监听到的数据先保存到本机中，然后每2个小时小传一次。
No. MAC Number MFG.Data MFG.Time Seriel Number
1 001915D829DA 40986 0.445 F2C00924
2 001915D829DA 2012-03-18 10:41:15 F2C00924
3 001915D806EB 2012-03-18 10:54:29 F2C00111
------解决方案--------------------
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
------解决方案--------------------
用 Microsoft Internet Transfer Control，调用 FTP 的 PUT 命令就可以上传文件。
用一个变量：下次上传时间
用定时器：
Private Sub Timer1_Timer()
If 当前时间<=下次上传时间 Then
上传
下次上传时间 = 下次上传时间 + 2小时
End If
End Sub