手把手教你利用 VBA 制作 IFIX 报表
1 、 新建一个定时器调度或一个始终处于运行状态的画面 , 在调度 / 画面中添加了三个定时器
:
BB_Delete1 、 BB_EXCEL1 、 BB_MDB1 。
2 、在 VBA 菜单的 “ 工程 ”—— > “ 引用 ” 中引用如下图 1 中的 dll 文件:
图 1
3 、 注册 comdlg32.dll 。 方法 : “ 开始 ” 菜单 --> “ 运行 ” 中输入 regsvr32 comdlg32.dll , 回车 。
4 、 VBA 脚本如下:
'''''''''''''''''''''''''''''''''' 删除每日数据库中的数据,接收新一天数据 ''''''''''''''''''''''''''''''''''
Private Sub BB_Delete1_OnTimeOut(ByVal lTimerId As Long)
On Error Resume Next
Dim i As Integer
Dim Cnn As ADODB.Connection
Dim DelCmd(15) As ADODB.Command
Dim SqlCmd As String
Dim NOW0 As String
NOW0 = Trim(CStr(Format(Now, "HH:mm:ss")))
If NOW0 = "23:55:00" Then
Set Cnn = New ADODB.Connection
For i = 0 To 15
- 1
- 2
前往页