09-07-19 09:12 PM
10-07-19 05:22 AM
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