vb 操作excel

Question

用excel对象操作excel文件,怎样把两张excel文件中的第一个sheet一起添加到一张新的excel文件.就是从一个文件的sheet    copy 到另一个文件的sheet,请问怎么做啊,多多指教!!!!

Answer 1

Private Sub CmdCopy_Click()Dim xlapp As Excel.Application
Dim xlworkbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim xlwkbook As Excel.WorkbookDim newsheet As Excel.WorksheetSet xlapp = New Excel.Application
Set xlworkbook = xlapp.Workbooks.Open("G:\ABOUT ME\2006snoopy.xls")
Set xlsheet = xlworkbook.Sheets(1)Set xlwkbook = xlapp.Workbooks.Add
'xlwkbook.Worksheets.Add xlsheet
 
Set newsheet = xlwkbook.Sheets.Add(, , , xlWorksheet)
newsheet.Name = "Spot1"
 newsheet.Cells(1, 1) = "Show"
Set newsheet = xlsheetxlwkbook.SaveAs ("G:\ABOUT ME\2008snoopy.xls")xlworkbook.Close
xlwkbook.Close
xlapp.Quit
End Sub
我想将 G:\ABOUT ME\2006snoopy.xls 文件中的第一个sheet 
放到我新建的2008snoopy.xls文件的第一个sheet,可是总是不能正确的将数据copy过来,哪位知道怎么做吗?多指教啊,小弟先谢过了!!!!

Answer 2

你在excel里边录制一段宏再改代码，就可以了

Answer 3

参考如下：    
    Sheets("Sheet1").Select  '选择sheet1
    Range("A1:D9").Select    '选择范围
    Selection.Copy           '拷贝选择范围内容
    Sheets("Sheet2").Select  '选择sheet2
    Range("A1:D9").Select    '选择粘贴范围
    ActiveSheet.Paste        '当前sheet粘贴

Answer 4

怎样在excel中添加宏?我只想在vb中通过程序来操作,这样可以做到吗?workbook对象没有提供方法加个sheet对象吗??楼上的大哥,你那段代码应该写在什么地方啊?