Как скопировать столбцы из одного файла Excel в другой с помощью VBA

Question

Я очень новичок в Excel и VBA.

У меня есть файл Excel, который содержит кнопку, которая выполняет следующие действия:

открывает сохраненный файл, копирует данные столбцов A, а затем создает новый файл Excel и вставляет скопированные данные в него

Я пробовал следующий код, но у меня проблема в selection.paste строке

Dim oExcel As Excel.Application
Dim oWB As Workbook
Set oExcel = New Excel.Application
'Set oWB = oExcel.Workbooks.Open("C:\Users\omran.alhammadi\Desktop\power ana\4EC73A75.WD0.xls")
Workbooks.Open Filename:="C:\Users\omran.alhammadi\Desktop\power ana\4EC73A75.WD0.xls"



Rows("1:9").Select
    Selection.Delete Shift:=xlUp
    Columns("A:A").Select
    Selection.NumberFormat = "hh:mm:ss;@"

    Columns("A:A").Select
    Selection.Copy
'Selection.NumberFormat = "dd/mm/yyyy hh:mm:ss;@"



Set NewBook = Workbooks.Add
    With NewBook
        .Title = "temp"
        .Subject = "tempsub"
        .SaveAs Filename:="Temp.xls"
    End With

    Workbooks("temp.xls").Activate

ActiveSheet.Columns("A:A").Select
 Range("A1").Paste
Application.CutCopyMode = False



    '    NewBook("4EC73A75.WD0.xls").Activate
    '    Sheets("Sheet1").Activate
    '*** Select the destination cell
   ' Range("A1").Select
   ' ActiveSheet.Range("A1").Paste

    Workbooks("4EC73A75.WD0.xls").Close

Answer 1

Буфер обмена очищается при сохранении файла, поэтому метод вставки не работает.