EXCEL 问题

cjls2000

如何通过 ACCESS 控制指定的 EXCEL文件   并对它 进行操作（修改内容  打印等）

有好的方法和示例吗？[em06][em04][em04]

方漠

Sub ImportSAPTRdata()
Dim StrSql As String, SPath As String
Dim XLS As Object

SPath = CurrentProject.Path & "\TR Macro.xls"
Set XLS = CreateObject("Excel.Application")
XLS.Visible = False   '改成TRUE即可见.

With XLS
    .Workbooks.Open Filename:=SPath  
    .Run "FormatTR"          '把要进行的操作在在EXCEL文件里写成VBA宏,然后调用运行它.
    .Workbooks("TR Macro.xls").Close SaveChanges:=True
End With

End Sub

cjls2000

先谢谢 方漠

对了 这个代码要引用什么？

其实 我的目的

把ACCESS窗体里计算出来的数值

写到EXCEL的指定单元格里面

如：（数量）写到---> 1.xls 文件里的F2单元格里面

没有写过这方面的东西  能给个类似的示例吗？

[em04][em04]

[此贴子已经被作者于2006-12-8 14:34:32编辑过]