Ms access Access 2010如何：VBA导出

另一个问题涉及Access中的自动导出。 我使用数据库为虚拟航空公司创建时间表

要将这些时间表导入我的网站，必须采用以下格式：

代码、航班号、出发、到达等

现在我知道如何以这种方式导出它，但我希望它通过脚本或宏自动进行，以便我可以在交换机中使用它

现在我发现了很多信息，但没有一个我理解清楚

这里的任何帮助都将受到感谢

亲切问候

---

Rick Winkelman

您需要什么类型的文件？我将以下内容放在VB脚本的末尾，以从查询/表创建.csv：

DoCmd.TransferText acExportDelim, [source query], "target.csv"

---

可以使用OnTimer事件启动导出数据的VBA代码。这是一个基于表单的事件，您可以将其设置为按任意时间间隔启动

您可以将它设置为每24小时启动一次，但这并不总是安全的。通常，我将其设置为每15分钟左右启动一次，并在启动时检查系统时间。如果系统时间>=7:45PM和<8PM，我会告诉它运行VBA代码

下面是我使用的OnTimer事件，以及它调用的2个函数。将窗体的计时器间隔设置为900000（15分钟），并使窗体保持打开状态

Private Sub Form_Timer()

Select Case True

    Case (Format(Now(), "short time") >= "04:45") And (Format(Now(), "short time") < "05:00")
        Forms!frmPrimary!dtMAINFRAME = "4:45"

        Call Cleanup

    Case (Format(Now(), "short time") >= "07:45") And (Format(Now(), "short time") < "08:00")
        Forms!frmPrimary!dtMAINFRAME = "7:45"

        Call chkforweekend

End Select
DoEvents

End Sub

Public Function chkforweekend()

chkforweekend = True
day = Date

sDate = Weekday(day, vbSunday)

If sDate <> 1 Or sDate <> 7 Then
    chkforwekend = False
End If

End Function

Public Function Cleanup()

Forms!frmPrimary!lblStatus.Caption = "Cleaning up my mess..."
DoEvents

ReturnCode = utl_DisconnectSession
ReturnCode = utl_StopSession

fCloseApp ("com.ibm.eNetwork.HOD.SessionFrame")
Call Sleeper(3000)
fCloseApp ("com.ibm.eNetwork.HOD.SessionFrame")
Call Sleeper(3000)
fCloseApp ("javax.swing.JFrame")

Forms!frmPrimary!lblStatus.Caption = "status"
Forms!frmPrimary!lblStatus.Visible = False
DoEvents

NewEECountsRun = False
NewMraRptRun = False
NewBATT = False
NewC_STE_PRun = False
NewCEDMBRCNT9_PRun = False
NewWklyMbrRptRun = False
CaseListRun = False

End Function