Code: Select all
x1 := ComObjActive("Excel.Application")
cell2 := x1.Sheets(2).Range("B1")
cell2 .value := RegExReplace(cell2.text, "\d{5}", "XXXXX")
Code: Select all
x1 := ComObjActive("Excel.Application")
cell2 := x1.Sheets(2).Range("B1")
cell2 .value := RegExReplace(cell2.text, "\d{5}", "XXXXX")
Code: Select all
XL := ComObjActive("Excel.Application")
Loop, 3
Try cell2 := XL.Sheets(A_Index + 1).Range("B1"), cell2.Value := RegExReplace(cell2.Text, "\d{5}", "XXXXX")
Code: Select all
xl := ComObjActive("excel.application")
for sheet in xl.sheets
if (a_index > 1)
sheet.range("B1").value := "xxxxx" substr(sheet.range("B1").text,6)
Code: Select all
xl := ComObjActive("excel.application")
for sheet in xl.sheets
(sheet.index > 1) && sheet.range("B1").value := "xxxxx" substr(sheet.range("B1").text,6)