如何在Access中运行EXCL的宏(已解决)

123shusheng

我用Access向EXCL导入数据.由于每次查询的数据不一样,当第二次查询的数据较少时,则无法将上次的数据完全覆盖,造成下表引用的数据不真实.所以我希望向EXCL表粘贴数据前,先运行我已录制好的宏(工作表.xls!模块1.Macro1),清空数据(不是整个表),再进行粘贴.

asklove

以前在论坛上看到过一个例子，用命令来运行excel的宏。你搜搜看
或者直接把execel的宏命令复制过来也行
你这个例子可以把它加在这里：
    objWs.Worksheets(strShtName).Activate
    ' Copy the data
    ' First the field names　第一行是ACCESS中的列表名
'===========================================     
     objWs.Worksheets(strShtName).Range("A1:N12").Select
        Selection.ClearContents
'===========================================
    For intCol = 0 To rs.Fields.Count - 1  '是获取表中的列数

    Next intCol

123shusheng

请高手能否改改例子,谢谢!

lyc283

rrrrrrrrrrrrrrrrrrrrrr

123shusheng

自己顶一下

asklove

还没解决？那我来帮你吧
很简单：objXL.Run "Macro1"就行了
原来那个QtoE如果数据多的话，导出会很慢，你试试下面这个吧，快些
Sub QueryToExcel(ByVal xlsName As String, ByVal strShtName As String, ByVal Hval As String)
'==============================================
'函数功能：将查询数据导出到Excel
'例子ueryToExcel "合医全部信息", "全部信息", "B4"
'xlsName=Excel文件名 "合医全部信息",
'strShtName=Excel工作簿名 "全部信息"
'Hval=从哪个单元格导出 "B4"
'===============================================
Dim objXL As Excel.Application
Dim objWs As Excel.Workbook
Dim obSTR As String
    Set objXL = New Excel.Application
    Set objWs = objXL.Workbooks.Open(CurrentProject.Path & "\" & xlsName & ".xls")
'=====================
'如果你想先运行Excel宏的话就加下面这句
'objXL.Run "Macro1"
'=====================
    objWs.Worksheets(strShtName).Activate
    objWs.Worksheets(strShtName).Range(Hval).CopyFromRecordset Me.导出参加信息子窗体.Form.Recordset               '查询的子窗体记录

    objXL.Visible = True    '打开Excel表查看数据

    Set objWs = Nothing
    Set objXL = Nothing
   
End Sub

123shusheng

谢谢老大,我学习不深,只会依葫芦画瓢,问题解决了,再次表示对你的谢意!

li08hua

学习了