Sub GetHistData ()
'открытый архив hist
Тусклое mwb как Workbook
FilePath = ряд («FilePath»). Значение
Установите mwb = Workbooks.Open (Filename: =FilePath)
mwb. Листы («Sheet1»). Ряд («A1»). Экземпляр
ThisWorkbook.Sheets («Sheet1»). Затир ряда («CopiedValue») .PasteSpecial: =xlPasteValues, деятельность: =xlNone, _ SkipBlanks
: =False, транспонирует: =False
Workbooks (mwb. Имя). Близкое ложное
Подводная лодка конца