哪里错了呢？总提示下标越界

pp1210

Private Sub UserForm_Initialize()
Dim itm As ListItem
ListView1.ColumnHeaders.Clear
ListView1.ListItems.Clear

Sheets("F:\DATA\360云\工作\常用文件\EXCEL\系统价格.xlsx").Activate
    With Sheets("F:\DATA\360云\工作\常用文件\EXCEL\系统价格.xlsx")           这里出现下标越界提示，如果引用当前工作簿的表就没问题，换成其它工                                                                                                                           作簿就不可以，比如Sheets("sheet2")可以， Sheets("F:\DATA\360云\工                                                                                                                           作\常用文件\EXCEL\[系统价格.xlsx].sheet1")依然出错
    With ListView1
        .ColumnHeaders.Add 1, , Sheets("F:\DATA\360云\工作\常用文件\EXCEL\系统价格.xlsx").Cells(1, 1), .Width / 7
        .ColumnHeaders.Add 2, , Sheets("F:\DATA\360云\工作\常用文件\EXCEL\系统价格.xlsx").Cells(1, 2), .Width / 7, lvwColumnCenter
        .ColumnHeaders.Add 3, , Sheets("F:\DATA\360云\工作\常用文件\EXCEL\系统价格.xlsx").Cells(1, 3), .Width / 7, lvwColumnCenter
        .ColumnHeaders.Add 4, , Sheets("F:\DATA\360云\工作\常用文件\EXCEL\系统价格.xlsx").Cells(1, 4), .Width / 7, lvwColumnCenter
        .ColumnHeaders.Add 5, , Sheets("F:\DATA\360云\工作\常用文件\EXCEL\系统价格.xlsx").Cells(1, 5), .Width / 7, lvwColumnCenter
        .ColumnHeaders.Add 6, , Sheets("F:\DATA\360云\工作\常用文件\EXCEL\系统价格.xlsx").Cells(1, 6), .Width / 7, lvwColumnCenter

        .View = lvwReport
        .Gridlines = True
        .FullRowSelect = True
        .HotTracking = True
        .OLEDragMode = 1
        .OLEDropMode = 1
End With
    End With


End Sub

microyip

1. Sheets("F:\DATA\360云\工作\常用文件\EXCEL\系统价格.xlsx")

复制代码

根本不存在，当然越界啦

乐乐2006201505

要用workbooks.open()或getobject()方法，先打开指定文件，再进行操作。

smhf_6

Sheets("F:\DATA\360云\工作\常用文件\EXCEL\系统价格.xlsx").Activate 改成：
set wb=workbooks.open  "F:\DATA\360云\工作\常用文件\EXCEL\系统价格.xlsx"
wb.sheets(1).select

pp1210

microyip 发表于 2017-9-23 09:04
根本不存在，当然越界啦

请相信，我没笨到去引用一个不存在的文件

pp1210

smhf_6 发表于 2017-9-23 09:09
Sheets("F:\DATA\360云\工作\常用文件\EXCEL\系统价格.xlsx").Activate 改成：
set wb=workbooks.open  " ...

set wb=workbooks.open  "F:\DATA\360云\工作\常用文件\EXCEL\系统价格.xlsx"

提示缺少语句结束？

pp1210

pp1210 发表于 2017-9-23 09:56
set wb=workbooks.open  "F:\DATA\360云\工作\常用文件\EXCEL\系统价格.xlsx"

提示缺少语句结束？

哦，哦，少了（）

pp1210

smhf_6 发表于 2017-9-23 09:09
Sheets("F:\DATA\360云\工作\常用文件\EXCEL\系统价格.xlsx").Activate 改成：
set wb=workbooks.open  " ...

测试成功，非常感谢，但还有个问题，这样运行会导致“系统价格”这个工作簿被打开显示出来，有什么方法可以达到同样效果然后工作簿又不会被看到呢？

microyip

pp1210 发表于 2017-9-23 10:02
测试成功，非常感谢，但还有个问题，这样运行会导致“系统价格”这个工作簿被打开显示出来，有什么方法可 ...

现在你知道你的Sheet是不存在了？

pp1210

microyip 发表于 2017-9-23 10:05
现在你知道你的Sheet是不存在了？

是引用方式出错，不是文件不存在，也许你的能力很强，但你的回答本身就有问题，无法引导新手学习，这个还是很遗憾的。
不管如何，还是非常感谢你的答复。