从文件1复制整个列到2

你好我试图复制列C，R，W，X从文件1到文件2与下面的代码，但不断收到错误。 我的VBA知识不是很好，但可能与范围设置有关？ 我已经尝试了多种方式，但无法使其工作。

我使用正确的设置还是应该使用其他操作来获取特定的列？

Sub PFS() Dim wbCopy As Workbook Dim wsCopy As Worksheet Dim rngCopy As Range Dim wbPaste As Workbook Dim wsPaste As Worksheet Dim rngPaste As Range Set wbPaste = ActiveWorkbook Set wbCopy = Workbooks.Open("path to copy") Set wsCopy = wbCopy.Worksheets("Blad1") Set rngCopy = wsCopy.Range("d, e").EntireColumn Set wsPaste = wbPaste.Worksheets("PFS") Set rngPaste = wsPaste.Range("a1") rngCopy.Copy rngPaste.PasteSpecial Workbooks.Application.CutCopyMode = False Application.DisplayAlerts = False wbCopy.Save wbCopy.Close End Sub 

Answer 1

解决scheme复制整个列。

 Sub copy() Dim wb As Workbook Dim wbNew As Workbook Dim ws As Worksheet Dim wsNew As Worksheet Set wb = ActiveWorkbook Set ws = wb.Sheets("old") Set wbNew = Workbooks("Book.xlsx") Set wsNew = wbNew.Sheets("new") ws.Columns(3).copy wsNew.Columns(3).Insert Shift:=xlToRight ws.Columns(18).copy wsNew.Columns(18).Insert Shift:=xlToRight ws.Columns(23).copy wsNew.Columns(23).Insert Shift:=xlToRight ws.Columns(24).copy wsNew.Columns(24).Insert Shift:=xlToRight Set wsNew = Nothing Set wbNew = Nothing Set ws = Nothing Set wb = Nothing End Sub