求代码：窗体Listbox取值于同路径下AAA.xls的sheet1中的C列

jyh7081

求代码：窗体Listbox取值于同路径下AAA.xls的sheet1中的C列，谢谢！
            想打开窗体，显示C列的值，供多选。



附件： aa.rar (26.09 KB, 下载次数: 20)

2016-9-6 07:54 上传

点击文件名下载附件

蓝桥玄霜

1. Private Sub UserForm_Initialize()
   
2. Dim myPath$, myName$, Arr1,i&
   
3. myPath = ThisWorkbook.Path & ""
   
4. myName = "AAA.xlsx"
   
5. With GetObject(myPath & myName)
   
6.     Arr1 = .Sheets(1).Range("A1").CurrentRegion
   
7.     For i = 2 To UBound(Arr1)
   
8.         ListboxNo.AddItem Arr1(i, 3)
   
9.     Next
   
10.     .Close False
    
11. End With
    
12. End Sub
    

复制代码

jyh7081

非常感谢蓝桥版主！

ty1014

加入代码报错呢

lsdongjh