VB

1、COM(Component   Object   Model,组件对象模型)，是Microsoft公司创建的一种二进制和网络标准，他允许任意两个组件互相通讯，不管他们在什么计算机上运行，不管运行什么操作系统，不管组件用什么语言开发。  
  2、我觉得com是开发者的另一个开发境界，现在开发的许许多多的软件都有com的存在，软件的功能才更强大，界面更好看。我觉得你必须学它。

 

 

3、上面的回答是用的数据库连接，可最关键的connection配置却没有给出，让人家初学者如何是好？我这个办法效率要比上面的差一些，不过功能却照样能实现。其中r是原始表的有效列数目（比如你每张表都只有10列，那r就是10了）。我在自己的机器上试过，可以运行的。  
   
  Sub   copy01()  
  Dim   i,   r,   iCount   As   Integer  
  i   =   1  
  r   =   2  
  iCount   =   0  
   
  Workbooks.Open   "e:/test1.xls"  
  While   Cells(i,   1).Value   <>   ""  
      i   =   i   +   1  
  Wend  
  iCount   =   iCount   +   i  
  Range(Cells(1,   1),   Cells(i   -   1,   r)).Select  
  Selection.Copy  
  Workbooks("Total.xls").Worksheets(1).Activate  
  Range(Cells(iCount,   1),   Cells(iCount,   1)).Select  
  ActiveSheet.Paste  
  Workbooks("test1.xls").Close  
   
   
  i   =   1  
  Workbooks.Open   "e:/test2.xls"  
  While   Cells(i,   1).Value   <>   ""  
      i   =   i   +   1  
  Wend  
  iCount   =   iCount   +   i  
  Range(Cells(1,   1),   Cells(i   -   1,   r)).Select  
  Selection.Copy  
  Workbooks("Total.xls").Worksheets(1).Activate  
  Range(Cells(iCount,   1),   Cells(iCount,   1)).Select  
  ActiveSheet.Paste  
  Workbooks("test2.xls").Close  
   
  i   =   1  
  Workbooks.Open   "e:/test3.xls"  
  While   Cells(i,   1).Value   <>   ""  
      i   =   i   +   1  
  Wend  
  iCount   =   iCount   +   i  
  Range(Cells(1,   1),   Cells(i   -   1,   r)).Select  
  Selection.Copy  
  Workbooks("Total.xls").Worksheets(1).Activate  
  Range(Cells(iCount,   1),   Cells(iCount,   1)).Select  
  ActiveSheet.Paste  
  Workbooks("test3.xls").Close  
   
   
  End   Sub