vba를 사용하여 하나의 Excel 파일에서 다른 Excel 파일로 열을 복사하는 방법

Question

Excel 및 VBA에서 매우 익숙합니다. 열에게 데이터를 복사 한 다음 파일을 엑셀 새로운 생성하고

을에 복사 한 데이터를 붙여

그것이 저장된 파일을 엽니 다 :

나는 다음과 같은 암탉 클릭 않는 버튼이 포함 된 엑셀 파일이 따라서 붙여 넣기 방법이 실패

나는 다음과 같은 코드를 시도했지만 나는 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

파일을 저장할 때 클립 보드에 취소에 문제가 있습니다.