如何用将VB数组中的数值输入到一个新的Excel表格中？

[twodollars]

现VB中数组中已赋值，如何新建一个Excel表格，将数组中的数值输入到这个新建的Excel表格中？

[mldnking]

你自己设计一个报表吧！也不是太麻烦

[mouseanAnya]

给段代码你看看，是一个把listview中的值导入EXCEL的例子，要在工程中引用excel库
其中CDialog是公用对话框，让用户选择保存路径
ABC.xls是工程目录下的空白EXCEL文档

Dim EXCAPP As New Excel.Application
Dim XFileName As String

CDialog.CancelError = False
CDialog.Filter = "电子报表(*.xls)|*.xls"
CDialog.DefaultExt = "D:\"
CDialog.ShowSave

If CDialog.filename <> "" Then

XFileName = CDialog.filename

FileCopy App.Path & "\ABC.xls", XFileName

Set EXCAPP = New Excel.Application
EXCAPP.Visible = False

EXCAPP.Workbooks.Open XFileName

'填充表头
For i = 1 To ListView1.ColumnHeaders.Count - 1
EXCAPP.Worksheets(1).Cells(1, i).Value = ListView1.ColumnHeaders(i).Text
Next i

For i = 1 To ListView1.ListItems.Count
EXCAPP.Worksheets(1).Cells(i + 1, 1).Value = ListView1.ListItems(i).Text
For a = 1 To ListView1.ColumnHeaders.Count - 1
EXCAPP.Worksheets(1).Cells(i + 1, a + 1).Value = ListView1.ListItems(i).SubItems(a)

Next a
Next i

EXCAPP.Workbooks(1).Save
EXCAPP.Workbooks(1).Close
EXCAPP.Quit
Set EXCAPP = Nothing
MsgBox "导入完毕！", vbInformation, "EXCEL"

End If

[mouseanAnya]

还有两个变量没定义
dim i as integer,a as integer

你要导入数组中的值，更简单
数组的值导入一行？
for i=1 to ubound(数组)+1
EXCAPP.Worksheets(1).Cells(1, a + 1).Value = 数组（i）
next

[twodollars]

多谢以上二位的帮助。