如何使用vba將列從一個excel文件複製到另一個

Question

我對Excel和vba很新。

我有一個包含一個按鈕，執行以下操作母雞點擊Excel文件：

它會打開一個保存的文件，複製列的數據，然後創建一個新的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

當您保存文件清除中間有問題，因此粘貼方法失敗。