首先定义
创新互联长期为上1000家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为灵山企业提供专业的成都网站设计、做网站，灵山网站改版等技术服务。拥有十多年丰富建站经验和众多成功案例,为您定制开发。
Public xlApp As Excel.Application
Public xlBook As Excel.Workbook Public xlSheet As Excel.Worksheet然后创建对象
xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlBook = xlApp.Workbooks.Open("文件路径") '打开已经存在的EXCEL工件簿文件
xlSheet = xlBook.Worksheets("sheet1")
自己新建一个table 循环两个表数据 取自己需要的放在自己新建的table。 主要对vb不熟 应该有直接的操作的
以一个项目为基础，在其工程上点右键，选添加，现有项，然后选择另外两个项目里的文件，用这种方式把所有的都添加上就行了
在你要引入的文件或文件夹上点右键，选包括在项目中
下次直接追问，要不我看不到
1、将需要合并的excel工作簿文件放置在一个文件夹中.在该文件夹中，新建立一个新的excel工作簿文件。重命名为8.2、打开新建立的excel工作簿文件8.按Alt+F11或者将鼠标移动到下方工作表名称sheet1上右键，选择查看代码。3、在弹出的代码编辑窗口中，输入代码。注意：通过快捷键Alt+F11打开的窗口如下没有直接复制代码的面板，需要点击左上方的工程-VBA project模块，双击sheet1，即可打开代码窗口。而步骤3中的第二种方法可以直接打开代码输入窗口。4、在代码窗口中，黏贴下列代码： Sub CombineFiles()Dimpath As StringDimFileName As StringDimLastCell As RangeDimWkb As WorkbookDimWS As WorksheetDimThisWB As StringDim MyDir AsStringMyDir =ThisWorkbook.path "\"'ChDriveLeft(MyDir, 1) 'find all the excel files'ChDir MyDir'Match =Dir$("")ThisWB =ThisWorkbook.NameApplication.EnableEvents = FalseApplication.ScreenUpdating = Falsepath =MyDirFileName =Dir(path "\*.xls", vbNormal)Do UntilFileName = ""If FileName ThisWB ThenSet Wkb = Workbooks.Open(FileName:=path "\" FileName)For Each WS In Wkb.WorksheetsSet LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell)If LastCell.Value = "" And LastCell.Address = Range("$A$1").AddressThenElseWS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)End IfNext WSWkb.Close FalseEnd IfFileName = Dir()LoopApplication.EnableEvents = TrueApplication.ScreenUpdating = TrueSet Wkb =NothingSet LastCell= Nothing End Sub5、点击菜单栏运行-运行子过程-用户窗体。关闭代码输入窗口。打开excel工作簿8.可以看到下方已经多了很多新的工作表——此时，已经将之前的工作簿中的工作表都复制到了这一新建的工作簿中。
