Question

VB6.0 把LISTBOX输入到EXCEL单元格

例如：LIST1里有1，2，3。 把他输出到EXCLE表格并且每输入一个空一格，结果应为：A1 =1, A2=空格，A3 =2,A4=空格，A5 =3,A6=空格
LISTBOX里的内容条数不固定
没人会吗？

Answer 1

可以的，等着收成品

追问

？

追答

Dim myExApp As Excel.Application

Dim myExSheet As Excel.Worksheet

Dim i As Long

Dim j As Long

Set myExApp = New Excel.Application

myExApp.Visible = True

myExApp.Workbooks.Add

Set myExSheet = myExApp.Workbooks(1).Worksheets(1)

For i = 1 To ReportRecordList.ColumnCount

ReportRecordList.BoundColumn = ReportRecordList.BoundColumn + 1

For j = 1 To ReportRecordList.ListCount 'Counter for ListCount

myExSheet.Cells(j , i) = ReportRecordList.ItemData(j - 1)

myExSheet.Cells(j , i).offset(1,0) = empty

Next j

Next i

ReportRecordList.BoundColumn = 1

Set myExSheet = Nothing

Set myExApp = Nothing

End Sub

给分

追问

为何我没有BoundColumn这个属性

追答

啊，不会的

追问

未找到数据成员。你用的是什么语言？

追答

vb6啊

我调试好的

追问

你弄个简单点的，要FOR循环做出来我看一看

Answer 2

'先引用Excel

'下面是基础代码，创建Excel对象并操作Excel表格，后面就看你自己发挥了
Dim myexcel As New Excel.Application
Dim mybook As New Excel.Workbook
Dim mysheet As New Excel.Worksheet
Set mybook = myexcel.Workbooks.Add '添加一个新的BOOK
Set mysheet = mybook.Worksheets.Add '添加一个新的SHEET
myexcel.Visible = True

myexcel.Range("a1").Select

追问

不要捣乱