Я пытаюсь скопировать данные из листа Excel в другую книгу с поддержкой макросов из 6 листов. Мне нужно вставить значение на 4-м листе. Но данные вставляются как изображения, а не как значения. Пожалуйста помогите:

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

Set objWorkbook = objExcel.Workbooks.Open("D:\Input Files - SCB Life\Macro File for check\UP181207_SCBAM_B.xls")

objRange = objWorkbook.Worksheets("Fund Price").UsedRange.Copy


Set objExcel2 = CreateObject("Excel.Application")

objExcel2.Visible = True


Set objWorkbook2 = objExcel2.Workbooks.Open("D:\sample1.xlsx")
objWorkbook2.Worksheets(1).UsedRange.Clear
objWorkbook2.Worksheets(1).Range("A1").PasteSpecial objRange

objWorkbook.Close
objWorkbook2.Save
objWorkbook2.Close

0