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

fooltutu
fooltutu
等级:

发表于：2008-05-06 09:54:57 楼主

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

问题点数：20 回复次数：13 修改删除举报引用回复

jlus
仁者
等级:

发表于：2008-05-09 19:44:541楼得分:0

那就把光标先指定到你要粘贴的位置试一下看看

修改删除举报引用回复

Chen8013
举杯邀明月
等级:

发表于：2008-05-10 12:15:422楼得分:0

要这样写：

ewt.Paste range("E1")

修改删除举报引用回复

fooltutu
fooltutu
等级:

发表于：2008-05-12 11:38:183楼得分:0

运行宏之前把ＥＸＣＥＬ表打开，就能运行成功了．因为我是在ＷＯＲＤ中写的宏，把信息复制到ＥＸＣＥＬ中．
那在宏中写什么语句可以打开ＥＸＣＥＬ表，而不用事先打开呢？

修改删除举报引用回复

Chen8013
举杯邀明月
等级:

发表于：2008-05-12 11:47:424楼得分:0

引用 3 楼 fooltutu 的回复:
运行宏之前把ＥＸＣＥＬ表打开，就能运行成功了．因为我是在ＷＯＲＤ中写的宏，把信息复制到ＥＸＣＥＬ中．
那在宏中写什么语句可以打开ＥＸＣＥＬ表，而不用事先打开呢？

引用楼主 fooltutu 的帖子:
Set ea = GetObject(mstr)
Set ewt = ea.worksheets("sheet1")
ewt.Paste
这实..........．

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

修改删除举报引用回复

Chen8013
举杯邀明月
等级:

发表于：2008-05-12 11:50:485楼得分:0

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

ea.Workbooks.Open ".xls文档完整路径和文件名", True, False
ea.Visible = True

修改删除举报引用回复

fooltutu
fooltutu
等级:

发表于：2008-05-12 12:00:076楼得分:0

我试过ＯＰＥＮ语句，可是不成功．是不是因为我是在ＷＯＲＤ里面写的宏语句呢？

修改删除举报引用回复

Chen8013
举杯邀明月
等级:

发表于：2008-05-12 12:05:097楼得分:0

Set ea = GetObject(mstr)

这句执行后，ea 不是 Excel.Application对象吗？
ea.Workbooks.Open 怎么会不成功呢！

你的文档路径是否正确？
最好别用相对路径！

修改删除举报引用回复

fooltutu
fooltutu
等级:

发表于：2008-05-12 12:24:218楼得分:0

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

修改删除举报引用回复

Chen8013
举杯邀明月
等级:

发表于：2008-05-15 16:56:499楼得分:0

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

Set ea = GetObject(mstr)
ea.Workbooks.Open mstr

很明显不正确！
你的 mstr 的值是什么？是文件名吗？

参考我在四楼的回复，并把这个改一下：Set ea = GetObject(mstr)
改成： Set ea = CreateObject("Excel.Application")

修改删除举报引用回复