[已解决]究竟错在哪里了

glhf2excel

最近自学VBA, 想让工作簿book2中sheet1上a1单元格的值等于book1中sheet1上a1单元格的值，公式如下：
Workbooks("Book2.xls").Worksheets("Sheet1").Range("A1").Value = Workbooks("Book1.xls").Worksheets("Sheet1").Range("A1").Value
可是运行却出现了Run-Time error '9',
请各位老师们帮忙指出问题所在，谢谢。

最佳答案

月排行榜 / 总排行榜

mxg825

2011-10-29 10:43

二个工作薄必须打开的时候！可以用这个代码！
ThisWorkbook.Sheets("Sheet1").Range("A1").Value = Workbooks("Book2.xls").Sheets("Sheet1").Range("A1").Value

跳转到最佳答案楼层

windimi007

回复 glhf2excel 的帖子

这样写肯定是不对的，但是不知道楼主的Book1是否打开，写了如下一段代码供楼主测试：{:3212:}

1. Sub aa()
   
2.     Dim wb As Workbook
   
3.     Set wb = GetObject(ThisWorkbook.Path & "\Book1.xls")
   
4.     [a1] = wb.Sheets(1).[a1]
   
5. End Sub

复制代码

P.S. Book1和Book2在同一路径下。

glhf2excel

谢谢解答，可是我Book2和Book1的A1单元格格式不同，能不能不复制格式呀，
还有能不能告知我原先的公式到底错在哪儿了。

windimi007

回复 glhf2excel 的帖子

先回答你第二个问题吧！你这里的Book2工作簿，没有路径，Excel可没有那么智能——它怎么知道你指的是哪位仁兄啊！{:3212:}

windimi007

回复 glhf2excel 的帖子

至于第一个问题，试试以下的代码行不行？{:3912:}

1. Sub aa()
   
2.     Dim wb As Workbook
   
3.     Set wb = GetObject(ThisWorkbook.Path & "\Book1.xls")
   
4.     wb.Sheets(1).[a1].Copy [a1]
   
5. End Sub
   

复制代码

glhf2excel

回复 windimi007 的帖子

明白了，原来是路径没有指明

glhf2excel

回复 windimi007 的帖子

运行时出现了 Run-time error'1004'
Copy method of Range class failed

windimi007

回复 glhf2excel 的帖子

不是吧！我测试过的，要不楼主把代码放到Book2中上传上来让我看看？{:4012:}

glhf2excel

回复 windimi007 的帖子

烦劳兄弟了

glhf2excel

又是了一下，没有错误提示了，可是好像单元格格式还是会被改掉