o r o r o r
New member
עזרה ב vba ואקסס
אני מעוניין לבנות מאקרו שמחליף string שמופיע בקבצי txt xls db בתיקיה מסויימת ובתיקיות המשנה שלה הטקסט לחיפוש בעמודה A והטקסט להחלפה בעמודה B נמצא בטבלת אקסס אני משתמש בפונקציה replace Function Replace(ByVal Valuein As String, ByVal WhatToReplace As _ String, ByVal Replacevalue As String) As String Dim Temp As String, P As Long Temp = Valuein P = InStr(Temp, WhatToReplace) Do While P > 0 Temp = Left(Temp, P - 1) & Replacevalue & _ Mid(Temp, P + Len(WhatToReplace)) P = InStr(P + Len(Replacevalue), Temp, WhatToReplace, 1) Loop Replace = Temp End Function אני מעוניין שכל המופעים יוחלפו עד לסיום נא עזרתכם תודה
אני מעוניין לבנות מאקרו שמחליף string שמופיע בקבצי txt xls db בתיקיה מסויימת ובתיקיות המשנה שלה הטקסט לחיפוש בעמודה A והטקסט להחלפה בעמודה B נמצא בטבלת אקסס אני משתמש בפונקציה replace Function Replace(ByVal Valuein As String, ByVal WhatToReplace As _ String, ByVal Replacevalue As String) As String Dim Temp As String, P As Long Temp = Valuein P = InStr(Temp, WhatToReplace) Do While P > 0 Temp = Left(Temp, P - 1) & Replacevalue & _ Mid(Temp, P + Len(WhatToReplace)) P = InStr(P + Len(Replacevalue), Temp, WhatToReplace, 1) Loop Replace = Temp End Function אני מעוניין שכל המופעים יוחלפו עד לסיום נא עזרתכם תודה