作者：乔山办公网日期：
返回目录：excel表格制作
Sub 新建()
Dim excelApp, excelWB As Object
Dim savePath As String
Set excelApp = CreateObject("Excel.Application")
Set excelWB = excelApp.Workbooks.Add
excelApp.DisplayAlerts = False
savePath = ActiveWorkbook.Path & "\新建表1.xls"
excelWB.SaveAs savePath
excelApp.Quit
Workbooks.Open savePath
End Sub
内容复制来：
Workbooks("计算源表.xls").Worksheets("Sheet1").Copy Before:=Workbooks("新建表1.xls").Sheets(1)
把“计算表”的百Sheet1整个复制到“新建表1”中，为最前面一度个Sheet，默认命问名将是“Sheet1(2)”，楼主可以再重新命答名Sheet就行了。
以下代码百，数度据在sheet1的A到D列，表头知在第道二行
取前三个复制内到容H列
Set conn = CreateObject("adodb.connection")
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "select top 3 * from [sheet1$A2:D] order by 销量 desc"
[H3].CopyFromRecordset conn.Execute(Sql)
conn.Close: Set conn = Nothing
[A2:D2].Copy [H2]
Sub AAA()
Dim Sh1 As Worksheet
Dim Sh2 As Worksheet
Set Sh1 = Workbooks("1.XLS").Sheets(1)
Set Sh2 = Workbooks("2.XLS").Sheets(1)
Sh1.Range(Sh1.[A1], Sh1.Range("A1").End(xlDown)).Copy Sh2.[A1]
Sh1.Range(Sh1.[A65536].End(xlUp), Sh1.[A65536].End(xlUp).End(xlUp)).Copy Sh2.[B1]
End Sub
随便放哪复个工制作簿吧。百度但是，两个工作簿都要打开。问当然你也可答以加上打开工作簿的代码。