[µo°Ý] ¦hÀɮרú¥N®æ¦¡vba

paddyliu

¦]¤u§@»Ý­n¦h±i¤u§@ªí¤@¦¸¨ú¥N¡A¬G¨D¸Ñ¥H¤Uvba¼gªk¡A¦ý¸m´«¨ä¤¤¤@Ä欰06-2013¡A¸m´«¦¨07-2013¡A¦ýÂà´««h¤@ª½¶]¨ì¤é´Á®æ¦¡¡G2013/7/1¡A
¹ê»Ú¥H¨ú¥N¥\¯à§@·~«h¤£·|¡A¯à§_½Ð±Ð¥H¤Uvba¼gªk»Ý¥[¤J¤°»ò°Ñ¼Æ¡A¤~¯àÅý®æ¦¡¤£·|¶]±¼¡C

Sub Macro1()

    Dim nowworkbook As String   '³]©wªºÀɮצWºÙ
    Dim s As String  '³Q¨ú¥Nªº¦r¦ê
    Dim d As String  '¨ú¥N¹Lªº¦r¦ê
    Dim strFileName As String   'Ū¨úªºÀɮצWºÙ
   
    nowworkbook = Excel.ActiveWorkbook.Name

    n = 2
   
    strFileName = Cells(n, 1)
    While strFileName <> ""
        Workbooks.Open Filename:=Excel.ActiveWorkbook.Path & "\" & strFileName
        
        
        For j = 1 To Sheets.Count
        
            Sheets(j).Select
            
            i = 2
        
            
            While Windows(nowworkbook).ActiveSheet.Cells(i, 2) <> ""
                s = Windows(nowworkbook).ActiveSheet.Cells(i, 2)
                d = Windows(nowworkbook).ActiveSheet.Cells(i, 3)
                    
                Cells.Replace What:=s, Replacement:=d
                i = i + 1
            Wend
            Cells(1, 1).Select
        Next
        
        n = n + 1
        
        strFileName = Sheet1.Cells(n, 1)
    Wend
    End Sub