如何在ACCESS中调用WPS的表格功能？

zzcjp

我的程序用ACCESSxp开发版打包发布，在没有安装office xp的电脑运行，程序中需要将查询结果导出为Microsoft Excel表格，现在的问题是：机子中没有安装Microsoft Excel，只有安装WPS OFFICE 2009个人版，要如何改写ACCESS调用wps的电子表格？

zzcjp

已经找到方法：
Private Sub Command3_Click()
Dim RetVal
RetVal = Shell("C:\Program Files\Kingsoft\WPS Office Personal\office6\et.exe D:\采购价格管理\导出资料\历史平均价格_交叉表.xls", 1)
End Sub