VBA常用技巧代码解析

liuk70

我现在有一个东西，它是根据所打开的工作表中的A列4到85的内容，即姓名，后台打开同一目录下的相应姓名对应的工作簿，取值写入当前工作表，为连续多次。但是运行中出错，提示“运行时错误'50290'，方法’OPEN作用于对象'workbooks'时失败
过程如下：
Sub uniquedata()
  Dim myApp As New Application, wkSht As Worksheet
  '隐藏Excel
  Dim cel As Range, res
  Set d = CreateObject("scripting.dictionary")
     myApp.Visible = False
  '打开数据文件，并指定工作表对象
  For Each cel In Range("a4:a85")
  If cel <> " " Then
   If Not d.exists(cel.Value) Then d.Add cel.Value, cel.Value
  End If
  Next
  res = d.items
   For i = 0 To d.Count - 1
   
   Set wkSht = myApp.Workbooks.Open(ThisWorkbook.Path & "\b" & res(i) & ".xls").Sheets(2)
  Cells(i + 4, 7) = res(i)
  Cells(i + 4, 2) = wkSht.[b7]
  Cells(i + 4, 3) = wkSht.[b8]
  Cells(i + 4, 4) = wkSht.[e7]
  Cells(i + 4, 5) = wkSht.[h8]
  Cells(i + 4, 6) = wkSht.[d6]
  '关闭Excel
   myApp.Quit
  Next i
  Set wkSht = Nothing
  Set myApp = Nothing
End Sub
Sub Silent_Open2()
    Dim myObj As Object
    ' GetObject 返回工作表对象的引用
     xm = [a2]
    Set myObj = GetObject(ThisWorkbook.Path & "\b" & xm & ".xls")
    [a3] = myObj.Sheets(2).Cells(6, 2)
    '关闭工作簿
    myObj.Close
    Set myObj = Nothing
End Sub

liuk70

忘记说明一下，当范围即： For Each cel In Range("a4:a4")时，没有提示出错。
我是初级入门者，请版主或哪位大侠帮我修正，鄙人不胜感激

jiuyuedefeng

非常感谢版主的无私奉献，版主好有耐心毅力，十分敬佩！

ayu330602

同感

原帖由 jiuyuedefeng 于 2009-5-2 06:23 发表
非常感谢版主的无私奉献，版主好有耐心毅力，十分敬佩！

同感!
另外请教三个问题:
        1、Listview控件是否可以有标题行一样效果的固定的行号？ SpreadSheet控件是有的,但SpreadSheet控件不是office自带控件,加装可能涉及版权问题,而且用在自己开发的程序上,有不少功能是多余的。
     2、Listview控件是否有类似ListBox1列表控件的RowSource和数据源捆邦的属性，免得一条一条的插？
       3、  版主的例窗体上的ImageList1控件是不是一定要的，起什么作用？
谢谢指教！！！

[ 本帖最后由 ayu330602 于 2009-5-2 09:26 编辑 ]

yuanzhuping

技巧131         使用Listview控件
131-5        Listview控件的图标设置
       ListView 控件作为一个可以显示图标或者子项的列表控件，可以在控件中显示自定义的图标，它最重要的属性就是View 属性，该属性决定了以哪种视图模式显示控件的项，请参阅技巧131-1。
       在ListView 控件中显示图标，需要在用户窗体中添加一个ImageList控件用于保存图像文件。关于ImageList控件的使用请参阅技巧131-3。
       以大图标模式显示ListView控件的代码如下：

1. #001  Private Sub UserForm_Initialize()
   
2. #002      Dim ITM As ListItem
   
3. #003      Dim r As Integer
   
4. #004      With ListView1
   
5. #005          .View = lvwIcon
   
6. #006          .Icons = ImageList1
   
7. #007          For r = 2 To 6
   
8. #008              Set ITM = .ListItems.Add()
   
9. #009              ITM.Text = Cells(r, 1)
   
10. #010              ITM.Icon = r - 1
    
11. #011          Next
    
12. #012      End With
    
13. #013      Set ITM = Nothing
    
14. #014  End Sub

复制代码

代码解析：
       在用户窗体中以大图标模式显示ListView控件，可使用鼠标拖放图标，并重新排列。
       第5行代码将ListView控件的View属性设置为lvwIcon，大图标视图模式。
       第6行代码使用ListView控件的Icons 属性建立与ImageList控件的关联。
       第7行到第11行代码在ListView控件中添加ListItem对象，其中第10行代码设置使用ListItem对象的Icon属性指定其图像文件在ImageList控件中的编号。
       ListView控件以大图标视图模式显示时如图所示。

       以小图标模式显示ListView控件的代码如下：

1. #001  Private Sub UserForm_Initialize()
   
2. #002      Dim ITM As ListItem
   
3. #003      Dim r As Integer
   
4. #004      With ListView1
   
5. #005          .View = lvwSmallIcon
   
6. #006          .SmallIcons = ImageList1
   
7. #007          For r = 2 To 6
   
8. #008              Set ITM = .ListItems.Add()
   
9. #009              ITM.Text = Sheet1.Cells(r, 1)
   
10. #010              ITM.SmallIcon = r - 1
    
11. #011          Next
    
12. #012      End With
    
13. #013      Set ITM = Nothing
    
14. #014  End Sub

复制代码

代码解析：
       在用户窗体中以小图标模式显示ListView控件，可使用鼠标拖放图标，并重新排列。
       第5行代码将ListView控件的View属性设置为lvwSmallIcon，小图标视图模式。
       与大图标视图模式有所不同的是，当使用小图标视图模式时需要使用ListView控件的SmallIcons属性建立与ImageList控件的关联，使用ListItem对象的SmallIcon属性指定其图像文件在ImageList控件中的编号。
       ListView控件以小图标视图模式显示时如图所示。

       将ListView控件的View属性设置为lvwList，以列表视图模式显示，如图所示。

       将ListView控件的View属性设置为lvwReport，以报表视图模式显示，如图所示。

yuanzhuping

1、Listview控件是否可以有标题行一样效果的固定的行号？ SpreadSheet控件是有的,但SpreadSheet控件不是office自带控件,加装可能涉及版权问题,而且用在自己开发的程序上,有不少功能是多余的。
     2、Listview控件是否有类似ListBox1列表控件的RowSource和数据源捆邦的属性，免得一条一条的插？
       3、  版主的例窗体上的ImageList1控件是不是一定要的，起什么作用？
谢谢指教！！！

1、Listview控件没有标题行的效果。
2、Listview控件只能使用Add方法插入ListItem对象。
3、ImageList1控件是用于保存图像文件的。

吉祥如意456

第8部分 控件与用户窗体 在那下载呀？

吉祥如意456

感谢你们了

ayu330602

不好意思。
    前面版主都讲到了,得认真的学才是.
感谢版主!

[ 本帖最后由 ayu330602 于 2009-5-4 01:16 编辑 ]

2003101728

太无私了，非常感谢，预留，一直关注和期待