求大神指导啊

数据是几行几列？数据按何规律放入excel中？

“工程”、“引用”，选中“Microsoft Excel 11.0 object library”项（由于你的Excel版本不同，2010好像是13.0吧）
下面是随便找的一段示例的代码。

Dim xlapp As Excel.Application 'Excel对象
Dim xlbook As Excel.Workbook '工作簿
Dim xlsheet As Excel.Worksheet '工作表
Dim i, j As Integer
Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象
'Set xlbook = xlapp.Workbooks.Open(App.Path & "\test.xls") '打开已经存在的test.xls工件簿文件
Set xlbook = xlapp.Workbooks.Add '新建EXCEL工件簿文件
'xlbook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
'xlbook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏
xlapp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlsheet = xlbook.Worksheets(1) '设置活动工作表''
xlsheet.Cells(1, 1) = 2008 '写入2008
xlsheet.Range("A1"） = 2008 '同上写入2008，方式不同而已