VB6.0 把LISTBOX输入到EXCEL
答案:1 悬赏:50 手机版
解决时间 2021-11-27 17:19
- 提问者网友：辞取
- 2021-11-27 10:21
VB6.0 把LISTBOX输入到EXCEL
最佳答案
- 五星知识达人网友：行路难
- 2021-11-27 12:00
首先要“工程”“引用”选中“microsoft excel 14.0 object library”或者其他版本。
Private Sub Command1_Click()
Set xlsObj = CreateObject("Excel.Application")
xlsObj.Visible = True
Set xlsBook = xlsObj.Workbooks.Add
Set xlssheet1 = xlsObj.Worksheets(1)
For i = 0 To List1.ListCount - 1
xlssheet1.cells(i + 1, 1) = List1.List(i)
Next
End Sub追问你没看清我的问题
Private Sub Command1_Click()
Set xlsObj = CreateObject("Excel.Application")
xlsObj.Visible = True
Set xlsBook = xlsObj.Workbooks.Add
Set xlssheet1 = xlsObj.Worksheets(1)
For i = 0 To List1.ListCount - 1
xlssheet1.cells(i + 1, 1) = List1.List(i)
Next
End Sub追问你没看清我的问题
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯