cancel
Showing results for 
Search instead for 
Did you mean: 

Code stage to Replace values on excel worksheet

DT
Level 4
I require a code stage to Replace values on excel worksheet.
So for said sheet range replace cells in range with X and replace with Y
With X and Y being variable

Any assistance would be appreciated. Thanks



------------------------------
Derek
------------------------------
1 REPLY 1

GopalBhaire
Level 10
Dim wb, excel, sheet, range As Object

Try

wb = GetWorkbook(Handle, Workbook)
excel = wb.Application
if Reference<>""
	sheet = excel.ActiveSheet
	range = sheet.Range(Reference)
	range.Replace(What, Replacement)
else
	excel.Cells.Replace(What, Replacement)
end if

Success = True

Catch e As Exception
Success = False
Message = e.Message

Finally
wb = Nothing
excel = Nothing
range = Nothing

End Try


Input: Handle, Workbook, What, Replacement, Reference(optional) 
Output: Success, Message



------------------------------
Gopal Bhaire
Analyst
Accenture
------------------------------