VB数据导出excel文件，总提示类型不对？

With myws
.Range(.Cells(3, 1), .Cells(3 + i, 11)) = xlsapp.WorksheetFunction.Transpose(aPay)
我要把数组转置导入excel表，这句总提示类型不对，什么原因呢？

Dim xlsapp As Excel.Application
Dim mywk As Excel.Workbook
Dim myws As Excel.Worksheet
Dim rng As Excel.Range
Dim i As Integer
Dim aPay
Adodc1.RecordSource = "select * from dacgj where 产品类别='复印纸'"
Adodc1.Refresh
aPay = Adodc1.Recordset.GetRows

Set xlsapp = New Excel.Application
xlsapp.Visible = True
Set mywk = xlsapp.Workbooks.Add("d:\00.xlt")
Set myws = mywk.Worksheets("产品")
i = UBound(aPay, 2)
With myws
.Range(.Cells(3, 1), .Cells(3 + i, 11)) = xlsapp.WorksheetFunction.Transpose(aPay)
Set rng = .Range(.Cells(2, 1), .Cells(3 + i, 11))
rng.Borders.LineStyle = xlContinuous
rng.RowHeight = 20
rng.EntireColumn.AutoFit
.PrintOut
End With

End Sub

检测以上代码没问题，如果出你说的错，请检查出错时aPay的值是什么

有可能是你调试的时候excel的程序在后台没有退出，在任务管理器里面把所有的excel程序都退出了试一下，我以前做的时候也有这种情况

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！