子程序返回Mistach

我想我有一個子程序叫做DBExcelExport它只接受一個變量recForm，但是當我在Button上調用它時會給出錯誤13 Mismatch。子程序返回Mistach

下面是我的子程序

Sub DBExcelExport(recForm As Form) 
Dim objXLS As Object 
Dim wks As Object 
Public rsc As Recordset 
Dim idx As Long 
Set rsc = recForm.RecordsetClone 
rsc.MoveLast 
rsc.MoveFirst 
Set objXLS = CreateObject("Excel.Application") 
objXLS.Workbooks.Add 
Set wks = objXLS.Worksheets(1) 
For idx = 0 To rsc.Fields.Count - 1 
    wks.Cells(1, idx + 1).Value = rsc.Fields(idx).Name 
Next 
wks.Range(wks.Cells(1, 1), wks.Cells(1, rsc.Fields.Count)).Font.Bold = True 
wks.Range("A2").CopyFromRecordset rsc, rsc.RecordCount, rsc.Fields.Count 
objXLS.Visible = True 
Set objXLS = Nothing 
End Sub

這我怎麼叫它

DBExcelExport (Me.ProjectsList.Form)

來源

2014-01-15 Deo Mutyaba

我通過在DBExcelExport（Me.ProjectsList.Form）上添加調用來解決它 –

請參閱ht TP：//stackoverflow.com/questions/20776631/error-424-when-passing-range-parameter/20776796#20776796 – brettdj

我解決它通過增加對DBExcelExport（Me.ProjectsList.Form）呼叫出現如下

Call DBExcelExport (Me.ProjectsList.Form)

來源

2014-01-15 10:53:57

子程序返回Mistach

回答

相關問題