作者steo (phen)
看板Visual_Basic
标题[VBA ] Access 定时传送资料 到 Excel
时间Thu Oct 5 12:37:03 2006
我想把一个资料库内的档案"资料表2",
在表单按下按钮後.
每过1分钟自动把资料传送到一个Excel的档案"d.XLS",
其中传送的部分我已经写好了:
Private Sub 指令0_Click()
DoCmd.TransferSpreadsheet acExport, 8, "资料表2", _
"d.XLS", True, ""
Set n = CreateObject("EXCEL.APPLICATION") '呼叫Excel
n.Caption = "客户订单图表"
n.Visible = True '显示在萤幕上
For I = 1 To n.TOOLBARs.Count - 1
n.TOOLBARs(I).Visible = False '关闭所有工具列
Next
n.Workbooks.Open "d.XLS"
n.Windows(1).DisplayWorkbookTabs = False '不显示工作表索引标签
n.DisplayFormulaBar = False '关闭资料编辑列
End Sub
但是定时传送的部分我做不出来,
请问这部份该怎麽做呢?
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.133.32.139