1つのExcelシートから別のExcelシートに2つの列をコピーする

Question

1つのExcelシートの2つの列をVBScriptを使用して別のExcelシートの同じ列にコピーする必要があります。これらの列はお互いに隣接しています 次のコードを使用しています。これは検索で取得し、必要に応じて変更しました。 1つの列をコピーするのであればうまくいきますが、1つのExcelから2つの列を別の列にコピーするのではありません。

Set objExcel = CreateObject("Excel.Application") 
objExcel.Visible = True 
Set objWorkbook = objExcel.Workbooks.Open("C:\Desktop\Customer.xlsx") 
Set objWorkbook2 = objExcel.Workbooks.Open("C:\Documents\Folder1\Test.xlsx") 

Set objWorksheet = objWorkbook.Worksheets(1) 
objWorksheet.Activate 

Set objRange = objWorkSheet.Range("A1").EntireColumn 
Set objRange = objWorkSheet.Range("B1").EntireColumn 
objRange.Copy 

Set objWorksheet2 = objWorkbook2.Worksheets(1) 
objWorksheet.Activate 

Set objRange = objWorkSheet2.Range("A1") 
Set objRange = objWorkSheet2.Range("B1") 
objWorksheet.Paste(objRange) 

私の入力Excelファイルです：

Customer Number Customer Name 
1001 Wendy 
1002 Subway 
1003 McDonalds

マイ出力Excelファイルには、同じ列名を持っていますが、現在、これらの列の値を持ちませんさ。入力Excelからコピーした後、2番目のExcelファイルのこれらの列に同じ値を設定する必要があります。

Answer 1

Set objRange = objWorkSheet.Range("A1").EntireColumn 
Set objRange = objWorkSheet.Range("B1").EntireColumn 

上記の二つの文は、最初の2列を選択するには、列Bを選択し、列Aを選択し、このようなものを使用します。あなたも割り当てる必要はありません

Set objRange = objWorkSheet.Range("A:B").EntireColumn 

を変数への選択。

objWorkSheet.Range("A:B").EntireColumn.Copy 
objWorkSheet2.Paste objWorkSheet2.Range("A1")