我首先向Excel写入宏
cc="Sub ArrayFill(vfparray)"+Chr(10)+"    Sheets(bm).Range(WZ).Resize(UBound(vfparray,1), UBound(vfparray,2)).Value = vfparray"+Chr(10)+"    ThisWorkBook.Refreshall"+Chr(10)+"End sub"
myexcel.activeworkbook.vbproject.vbcomponents.Add(1).codemodule.addfromstring(cc)
然后将DBF表数据COPY成数组
Select lrk
Copy To Array eSJ Fields &zdlb
再将数组粘贴到Excel表
myexcel.Run('ArrayFill', @eSJ)
预览表格时不显示粘贴的值，不知道为什么？？？，恳请各位朋友们帮忙看看，谢谢!，谢谢!

谢谢各位老师，再各位老师的帮助下我的问题解决了，谢谢!

谢谢sdta老师，我就是按照这个方法做的，已找到了的问题所在，已经解决了，谢谢您了!