如何使用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

当您保存文件清除中间有问题，因此粘贴方法失败。