將兩個單獨的xlsx文件中的.xlsx工作表合併到一個新工作簿中的單個工作表中

Question

我需要用vbscript（而不是vba）完成此操作。我找不到如何做到這一點的任何例子。我已經有了vbs，可以完成我需要的所有Excel文件的主要處理，但是我需要的最後一部分僅僅是將駐留在兩個單獨的.xlsx文件中的兩個工作表合併到一個工作表中，並將它們合併到一個新的工作簿中。

我已經找到了使用vba將兩個文件合併到一個單獨的wb中的示例，但我需要它們在同一個工作表上並通過vbscript。它基本上就像兩張牀單的結合。它們都包含相同數量的列（6列）和相同類型的數據。基本上需要複製任一電子表格中的標題並粘貼到新的工作簿/工作表中，然後將所有數據複製到標題下的新工作簿/表單中。希望這是有道理的。任何幫助表示讚賞。

我對此很接近，這將兩個數據表放入同一個名爲「合併」的NEW工作簿中，但需要它將這些工作表合併爲一個。

Set objExcel = WScript.CreateObject ("Excel.Application") 

objExcel.Visible = false 

strFileName = "c:\excel\merged.xlsx" 

Set objWbA = objExcel.WorkBooks.open("c:\excel\wb1.xlsx") 
Set objWbB = objExcel.WorkBooks.open("c:\excel\wb2.xlsx") 

Set objWorkbook = objExcel.Workbooks.Add() 

objwba.worksheets(1).copy _ 
objWorkbook.worksheets(1) 
objwbb.worksheets(1).copy _ 
objWorkbook.worksheets(2) 

objWorkbook.SaveAs(strFileName) 
objWorkbook.close 

objWbA.Close True 
objWbB.Close True 

objExcel.Quit 
Set objExcel = Nothing 

==========================

這裏是我想出了一個解決方案（就用CSV輸出）：

Option Explicit 
Dim objExcel 
Dim strFilename 
Dim objWbA 
Dim objWbB 
Dim Lastrow 
Dim Lastrow1 
Dim objWorkbook 
Dim objSheeta 
Dim objSheetb 

Set objExcel = WScript.CreateObject ("Excel.Application") 

objExcel.Visible = false 
objExcel.displayalerts = false 

strFileName = "c:\excel\merged.csv" 

Set objWbA = objExcel.WorkBooks.open("c:\excel\wb1.xlsx") 

Set objSheeta = objWbA.Sheets("wb1") 

Set objWbB = objExcel.WorkBooks.open("c:\excel\wb2.xlsx") 

Set objSheetb = objWbB.Sheets("wb2") 

Set objWorkbook = objExcel.Workbooks.Add() 

Const xlUp = -4162 
Const xlPasteValues = -4163 
Const xlPasteFormats = -4122 
Const xlPasteValuesAndNumberFormats = 12 

with objSheeta 
Lastrow = .Cells(objSheeta.Rows.Count, 1).End(xlUp).Row 
     .Range("B1:F" & Lastrow).Copy 
end with 

objWorkbook.Worksheets("Sheet1").Range("A1").PasteSpecial xlPasteValuesAndNumberFormats 

with objSheetb 
Lastrow1 = .Cells(objSheetb.Rows.Count, 1).End(xlUp).Offset(1, 0).Row 
     .Range("B2:F" & Lastrow1).Copy 
end with 

objWorkbook.Worksheets("Sheet1").Range("A" & Lastrow1).PasteSpecial xlPasteValuesAndNumberFormats 

'=================================== 

objExcel.CutCopyMode = False 
objExcel.ScreenUpdating = True 

objWorkbook.SaveAs(strFileName), 6 
objWorkbook.close True 

objWbA.Close True 
objWbB.Close True 

objExcel.Quit 
Set objExcel = Nothing 

Answer 1

如果執行Worksheet.Copy method和忽視提供一個目的地，工作表將被複制到其持有ActiveWorkbook property新工作簿。這可能是啓動新工作簿的最佳方式。如果您提供從XlFileFormat Enumeration爲文件類型正確的值

Set objExcel = WScript.CreateObject ("Excel.Application") 

objExcel.Visible = False 'True for testing 

strFileName = "c:\tmp\merged" '<~~ no file extension, FileType:=51 (xlOpenXMLWorkbook) will do that 

Set objWbA = objExcel.WorkBooks.open("c:\tmp\wb1.xlsx") 
Set objWbB = objExcel.WorkBooks.open("c:\tmp\wb2.xlsx") 
rws = objWbA.Worksheets(1).Rows.Count '<~~ 65536 or 1048576 (need this below) 

objWbA.Worksheets(1).Copy '<~~ copy to a new workbook with one worksheet 
objWbB.Worksheets(1).Cells(1, 1).CurrentRegion.Copy _ 
    objExcel.ActiveWorkbook.Worksheets(1).Cells(rws, 1).End(-4162).Offset(1,0) '-4162 is xlUp 

objExcel.ActiveWorkbook.SaveAs strFileName, 51 '<~~ 51 is FileType:=xlOpenXMLWorkbook 
objExcel.ActiveWorkbook.Close False '<~~ saved on the line immediately above 

objWbA.Close False 'don't save if we didn't change anything 
objWbB.Close False 'don't save if we didn't change anything 

objExcel.Quit 
Set objExcel = Nothing 

的Workbook.SaveAs method將提供正確的文件擴展名。因爲他們沒有收到任何更改，所以不需要保存原件。