¡@¼ÊºÙ: ¨F©Ôªo ¡@ÀY»Î: ¥¿´äA¤ô¹q¤u
¶W¯Åª©¥D
- ©«¤l
- 44
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 49
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP SP3
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- §b¤Y
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2013-1-27
|
¥»©«³Ì«á¥Ñ ¨F©Ôªo ©ó 2010-11-26 16:45 ½s¿è
¤@Óª«¥óÃþ§O¡B¤@Ó¼Ò²Õ
¶K¤Wµ{¦¡½X¤§«á±o«·s¶}±ÒÀÉ®×- 'ª«¥óÃþ§O¼Ò²Õ QytCls ªºµ{¦¡½X
- Public WithEvents qyt As QueryTable
- Public qname As String
- Private Sub qyt_AfterRefresh(ByVal Success As Boolean)
- MsgBox qname & " §ó·sµ²§ô¡I"
- End Sub
- '¼Ò²Õ Module1 ªºµ{¦¡½X
- Dim qyts() As New QytCls
- Private Sub auto_open()
- Dim n As Integer
- Dim sh As Worksheet
- '²Îp¥»¬¡¶Ã¯¦@¦³´XÓ¬d¸ßª«¥ó¡I
- For Each sh In ThisWorkbook.Worksheets
- n = n + sh.QueryTables.Count
- Next
- ReDim qyts(1 To n) As New QytCls
- Dim i As Integer
- Dim qyt As QueryTable
- For Each sh In ThisWorkbook.Worksheets
- For Each qyt In sh.QueryTables
- Set qyts(i + 1).qyt = qyt
- qyts(i + 1).qname = sh.Name & " ªº¬d¸ß " & qyt.Name
- i = i + 1
- Next qyt
- Next sh
- End Sub
½Æ»s¥N½X ªþ¤W¤W±µ{¦¡½X©Ò»s§@ªº½d¨Ò¡I |
-
-
Book1.zip
(27.02 KB)
|