execl 通信

答案:1 悬赏:30 手机版

解决时间 2021-01-19 23:33

提问者网友：绫月
2021-01-19 18:06

execl 通信

最佳答案

五星知识达人网友：风格不统一
2021-01-19 19:37

修改成如下：
Sub ReadE_onclick

dim XlsApp,xlsWorkbook,xlsSheet
set xlsApp = createobject("Excel.Application")
set xlsWorkbook = xlsApp.Workbooks.Open("C:UsersAdministratorDesktopook1.xls")
    xlsapp.visible = false

Dim arr
arr = xlsWorkbook.WorkSheets("Sheet1").[a1:g24].value

Dim i As Long, m As Integer
For i = 1 To Ubound(arr)
    For m = 1 To Ubound(arr,2)
        List1.Additem arr(i,m)
Next m,i

xlsapp.quit
set xlsworkbook = nothing
set xlaApp = nothing

End Sub试试！
追问我的vbs 去写的。Dim i As Long, m As Integer 好像报错追答那就： Dim i,m追问Next m,i 这个有问题吗？脚本总报这行有问题追答Dim i,m
For i = 1 To Ubound(arr)
For m = 1 To Ubound(arr,2)
List1.Additem arr(i,m)
Next
Next '把两个Next分开写，我不是很懂VBS的语法！追问arr = xlsWorkbook.WorkSheets("Sheet1").[a1:g24].value

提示这个数据读不到

追答VBS真不很懂，那改成这样再试试：
Sub ReadE_onclick

dim XlsApp,xlsWorkbook,xlsSheet
set xlsApp = createobject("Excel.Application")
set xlsWorkbook = xlsApp.Workbooks.Open("C:UsersAdministratorDesktopook1.xls")
    xlsapp.visible = false

Dim i,m
For i = 1 To 24
    For m = 1 To 7
        List1.Additem xlsWorkbook.WorkSheets("Sheet1").Cells(i,m).value
    Next
Next

xlsapp.quit
set xlsworkbook = nothing
set xlaApp = nothing

End Sub来自：求助得到的回答

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息