3
我想在excel vba中运行访问宏并复制访问查询。
当我运行下面的代码,我在网上cn.DoCmd.RunMacro“runCopyqueryVragenlijsten”在excel中运行访问宏
'~~> Select access file Database Questionmark.mdb
Set cn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
cn.Open "provider=microsoft.jet.oledb.4.0;data source=D:\Data\Geschiktheidstesten en OPQ-rapport NMBS competenties\Analyse\Database Questionmark.mdb"
'~~> Run access macro
cn.DoCmd.RunMacro "runCopyqueryVragenlijsten"
'~~> Select access query to copy
rs.Open "select * from Copyquery_Vragenlijsten", cn
'~~> paste access query in sheet vragenlijst
Worksheets("vragenlijst").Range("a2").CopyFromRecordset rs
'~~> Close access file and put cursor on cell A1 of sheet evaluatierooster_NL
rs.Close
Set rs = Nothing
Set cn = Nothing
你检查的** ** runCopyqueryVragenlijsten是 – 2013-03-26 10:09:59
,我已经检查它的拼写。这并不能解决问题。 – user2172916 2013-03-26 10:28:30
在MS Access中执行* DoCmd.RunMacro“runCopyqueryVragenlijsten”*时会发生什么? – 2013-03-26 10:30:43