- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
        
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2018-2-15 07:55 ½s¿è
¦^´_ 4# msmplay - 'ÀÉ1¡ylist*.xls¡zn¶×¤J¬¡¶¡ulist³øªí¡vªºA1
- 'ÀÉ2¡yCCMOP*.xls¡zn¶×¤J¬¡¶¡u¦³¸ê®Æ¡vªºB1
- 'ÀÉ3¡yCCMOP_NAME*.xls¡zn¶×¤J¬¡¶¡uµL¸ê®Æ¡vªºB1
- 'ÀÉ4¡y¹w¬ùªí³æ*.xls¡zn¶×¤J¬¡¶¡u¹w¬ùªí³æ¡vªºA1
- Option Explicit
- Sub Ex()
- Dim xDir As String, xPath As String, xWb As Workbook
- Dim Sh(), Dir_Ar(), xRng(), i As Integer
- Dir_Ar = Array("list*.xls", "CCMOP*.xls", "CCMOP_NAME*.xls", "¹w¬ùªí³æ*.xls")
- Sh = Array("list³øªí", "¦³¸ê®Æ", "µL¸ê®Æ", "¹w¬ùªí³æ")
- xRng = Arry("A1", "B1", "B1", "A1")
- xPath = ThisWorkbook.Path
- For i = 0 To UBound(Sh)
- xDir = Dir(xPath & "\" & Dir_Ar(i), vbDirectory)
- Do While xDir <> ""
- If i = 1 And InStr(UCase(xDir), "CCMOP_NAME") Then GoTo xNext
- Set xWb = Workbooks.Open(xPath & "\" & xDir)
- With ThisWorkbook.Sheets(Sh(i)).Range(xRng(i)).End(xlDown)
- If .Row = .Parent.Rows.Count Then
- xWb.Sheets(1).UsedRange.Copy .Cells.End(xlUp)
- Else
- xWb.Sheets(1).UsedRange.Copy .Cells.Offset(1)
- End If
- End With
- xWb.Close
- xNext:
- xDir = Dir
- Loop
- Next
- End Sub
½Æ»s¥N½X |
|