добрый день. появилась необходимость сделать замену названий столбов в файлах (файлов очень много, находятся в одной папке). Данные, которые нужно заменить расположены в одном и том же листе с названием "ItemDetails" во всех файлах. попробовал записать макрос для нахождения и замены вкроде как работает.
подскажите, как дописать сюда код, который будет запрашивать папку с расположением файла, открывать файлы по очереди, изменять данные только на листе ItemDetails, сохранять и закрывать файлы в фоне. Откывать файлы и запускать макрос в ручном режиме даже страшно подумать зарене спасибо!
Код |
---|
Sub replacetext() ActiveCell.Replace What:="GR Document number", Replacement:= _ "Capitalization.GR Document number", LookAt:=xlPart, SearchOrder:=xlByRows _ , MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:="GR Document number", Replacement:= _ "Capitalization.GR Document number", LookAt:=xlPart, SearchOrder:=xlByRows _ , MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:="Evaluation Code", Replacement:= _ "Capitalization.Evaluation Code", LookAt:=xlPart, SearchOrder:=xlByRows, _ MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:="Asset Class", Replacement:= _ "Capitalization.Asset Class", LookAt:=xlPart, SearchOrder:=xlByRows, _ MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:="Cost Center", Replacement:= _ "Capitalization.Cost Center", LookAt:=xlPart, SearchOrder:=xlByRows, _ MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False End Sub |
подскажите, как дописать сюда код, который будет запрашивать папку с расположением файла, открывать файлы по очереди, изменять данные только на листе ItemDetails, сохранять и закрывать файлы в фоне. Откывать файлы и запускать макрос в ручном режиме даже страшно подумать зарене спасибо!
Опыт и практика - великое дело! Век живи, Век учись!