在VB中如何利用代码，把一个工作簿中的一个工作的内容复制到另...-编程导入excel,word表格导入到excel

xlbook.sheets(1).range("A1:AX1").Copy xlbook.sheets(2).range("A2")
皮，外围用草帘或席子围好，上面可不放覆盖物。当

下面代码把c:\1.xls中Sheet1工作表的内容拷贝到另外一个新建工作表中，并保存e799bee5baa6e79fa5e98193e4b893e5b19e337为“c:\2.xls”

Private Sub Command1_Click()
Dim S() As String, i As Integer, j As Integer
Dim xlApp
Dim xlBook
Dim xlSheet
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlApp.DisplayAlerts = False '不显示对话框
Set xlBook = xlApp.Workbooks.open("c:\1.xls") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表
xlSheet.Cells.Select
xlSheet.Cells.Copy
xlApp.Workbooks.Add
xlApp.ActiveSheet.Paste
xlApp.Application.CutCopyMode = False
xlApp.ActiveWorkbook.SaveAs FileName:="c:\2.xls" '保存工作表,结束时一定别忘了保存
xlBook.Close (True) '关闭工作簿 这里的True表示退出时保存修改
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
End Sub
x=xls.Workbooks("***1.xls").Sheets(1).Range("A1:D8").value
xls.Workbooks("***2.xls").Sheets(1).Range("A1:D8")=x
如果你zdVBA不错话，这版代码应该能看权懂

在工作表知中可以直接道用vlookup完成，如果非得vba，vba中也可以调专用工属作表函数。

Sub test()
With Sheets("sheet2")
For c = 5 To 100
Cells(14, c) = Application.WorksheetFunction.VLookup(Cells(10, c), Sheets("sheet1").Range("a:b"), 2, 0)
Next
End With
End Sub