如何将内容粘贴到指定的单元格

Question

Set ea = GetObject(mstr)
Set ewt = ea.worksheets("sheet1")
ewt.Paste
这实现了粘贴，但是粘贴的位置是上次光标停留的位置，而我想把内容粘在我指定的位置．后来我将最后一句改为：ewt.Range("E1").Paste，出现错误提示说对象不支持属性．

Answer 1

要这样写：ewt.Paste range("E1")

Answer 2

Set ea = GetObject(mstr) 
ea.Workbooks.Open ".xls文档完整路径和文件名", True, False
Set ewt = ea.worksheets("sheet1") 
ewt.Paste range("E1")

Answer 3

可以在：
ea.Workbooks.Open ".xls文档完整路径和文件名", True, False
后面加一句：
ea.Visible = True
ea.Workbooks.Open ".xls文档完整路径和文件名", True, False
ea.Visible = True

Answer 4

Set ea = GetObject(mstr)这句执行后，ea 不是 Excel.Application对象吗？
ea.Workbooks.Open 怎么会不成功呢！你的文档路径是否正确？
最好别用相对路径！

Answer 5

ＭＳＴＲ就是文件的路径，所以我写的语句是：
Set ea = GetObject(mstr)
ea.Workbooks.Open mstr
Set ewt = ea.worksheets("sheet1")
提示错误是：对象不支持该属性或方法

Answer 6

Set ea = GetObject(mstr) 
ea.Workbooks.Open mstr 很明显不正确！
你的 mstr 的值是什么？是文件名吗？参考我在四楼的回复，并把这个改一下：Set ea = GetObject(mstr)
改成： Set ea = CreateObject("Excel.Application")

Answer 7

mstr是用户选择打开ＥＸＣＥＬ表的绝对路径．因为此ＥＸＣＥＬ表是已经存在，所以不用新建．而且ＥＸＣＥＬ表由用户选择，所以路径和文件名并不固定．
出错的一句是：ea.Workbooks.Open mstr

Answer 8

Set ea = CreateObject("Excel.Application")