GBKEE

¦^´_ 1# haoxhui
Workbooks.Open Replace(ActiveWorkbook.FullName, "_", "")

GBKEE

¦^´_ 3# haoxhui
§AÁÙ¨S»¡©ú ¡uA_2010_03_23¡v¡B¡uB20100323¡v
¨âªÌ ¬O±q A-B ÁÙ¬O ±q B-A  ¶}±Ò
¤U¦Cµ{¦¡½X¬O
Right(string, length)  ¶Ç¦^¤@¦r¦ê¥kÃä¯S©w¼Æ¶q¦r¤¸©Òºc¦¨ªº Variant (String)¡C
¨ç¼Æªº¥Îªk

1. Sub Ex()
   
2.     Dim A(1), B(1)
   
3.     A(0) = "D:\"
   
4.     B(0) = "D\TEST\"
   
5.     A(1) = "A_2010_03_23"
   
6.     B(1) = "B20100323"
   
7.     A(1) = Right(Replace(A(1), "_", ""), 8)
   
8.     B(1) = Right(B(1), 8)
   
9.     Workbooks.Open A(0) & A(1)
   
10.     Workbooks.Open B(0) & B(1)
    
11. End Sub

½Æ»s¥N½X