- ©«¤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
|
¦^´_ 7# mark15jill - Sub Ex()
- Dim E As Range, TheFile$, A$, F$
- For Each E In Range("G2", Cells(Rows.Count, "G").End(xlUp))
- If E <> "" Then
- TheFile = ThisWorkbook.Path & "\" & "excel¦s©ñ°Ï\" & E & ".xls"
- A = Dir(TheFile)
- If A <> "" Then
- F = ThisWorkbook.Path & "\" & "¸ê®Æ§¨¦s©ñ°Ï\" & E(1, 2)
- Name TheFile As F & "\" & A
- End If
- End If
- Next
- End Sub
½Æ»s¥N½X |
|