Question

VB操作Execl复制数据到另外一个execl中

从一个已经打开的Execl中选择第一列数据，然后再打开一个已经存在的execl文件，把刚才复制的数据追加粘贴(如果在进行粘贴，原先的数据不被破坏)到新打开的execl文件中，用VB怎么实现？
VB我不懂，照着别人说的写了一下，出错，弄不明白是怎么回事，望高手指教
Dim szFile As String
szFile = "temp"
Rows("1:1").Select
Selection.copy

Dim objExcel As Excel.Application
Dim objWorkBook As Excel.Workbook

Set objExcel = CreateObject("excel.application")
Set objWorkBook = objExcel.Workbooks.Open("d:\all.xlsx")
objExcel.Visible = True

Dim objSheet As Excel.Worksheet
Set objSheet = objExcel.Worksheets("sheet1")

objSheet.Rows("1:1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
objExcel.CutCopyMode = False
objWorkBook.Save
objWorkBook.Close

Windows(szFile).Activate
运行的时候没有出错，但是数据不能被复制到all.xlsx中，在最后一句Windows(szFile).Activate处，报错：
运行错误9 下标越界

Answer 1

这一句好像有问题:
Set objSheet = objExcel.Worksheets("sheet1")
改成试一试
Set objSheet = objWorkBook.Worksheets("sheet1")
另外,你运行到哪个地方出错(黄色)最好指示一下便于回答.

错误应该是没找到名为"temp" 窗口,急的话用hi给我发过来.