Я пытаюсь сохранить некоторые ссылки при экспорте данных в новую рабочую книгу, заменив знак "=" знаком "#". Однако, когда я затем пытаюсь отменить это действие, метод поиска и замены внезапно отказывается работать.
Я пытался ссылаться на целевой лист с помощью activesheet через Excel. объект листа, с помощью книги (имя). листы (имя) и все остальные глупости, о которых я мог подумать. В качестве проверки работоспособности я даже записал макрос того, как я выполняю поиск и замену старомодным способом, чтобы убедиться, что у меня нет опечаток. У меня действительно нет идей здесь.
Workbooks(OutputName).Activate
Workbooks(OutputName).Sheets("SAMENVATTING UOM").Activate
Cells.Replace What:="xxxxxx", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
и
If Output_wsName = "SAMENVATTING UOM" Then
Workbooks(OutputName).Sheets("SAMENVATTING UOM").Cells.Replace what:="#", Replacement:="=", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
End If
и
Output_Obj_WS.Cells.Replace what:="#", Replacement:="=", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False