Office中国论坛/Access中国论坛

标题: 高手帮帮我，老问题一直没有解决 [打印本页]

作者: nbwill82 时间: 2008-11-3 08:20
标题: 高手帮帮我，老问题一直没有解决
谢谢高手帮我，不过我笨没有看透那些代码。所以我弄两个附件上来，麻烦各位给我看看。

说明

belluna中的Sheet2工作表的内容要用宏来导出到 test 中。表结构完全一样。
其中belluna表可能在任何位置， test 表路径可固定

非常感谢，希望能给我做个实例

下面是 liwen 版主帮我做的，，，但是一直有问题，麻烦各位帮我看看

Sub Macro1()
Workbooks.Open Filename:=ThisWorkbook.Path & "f:\test.xls"
Windows("belluna.xls").Activate
Range("A2:O2").Copy
Windows("test.xls").Activate
Range("A" & (Range("A65535").End(xlUp).Row + 1)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.ActiveWorkbook.Close True
End Sub

这样修改的对么？执行的时候直接出现一个400的错误窗口

不指定test路径吧两个文件放到一起就不会出错，但是结果还是一样，只能在belluna这个表内生成数据，
却不能把数据导出到test表中。重复点击宏现在改为每次增加一行数据。但是只在belluna文件内

麻烦有方法解决的能不能给我做个实例？谢谢了

作者: nbwill82 时间: 2008-11-3 08:21
各位版主不要生气撒，因为那个帖子太长了，所以又新发了一个，如果违反版规了，麻烦版主把另外一个帖子删除谢谢

作者: pureshadow 时间: 2008-11-3 12:32
ThisWorkbook.Path 就已经是本文档路径了，怎么后面还出现F盘符？

作者: nbwill82 时间: 2008-11-3 14:21
后来改成下面的，，，但是问题依旧啊，，，，能不能帮我做个实例啊

Sub Macro1()
Workbooks.Open Filename:= "f:\test.xls"
Windows("belluna.xls").Activate
Range("A2:O2").Copy
Windows("test.xls").Activate
Range("A" & (Range("A65535").End(xlUp).Row + 1)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.ActiveWorkbook.Close True
End Sub

作者: pureshadow 时间: 2008-11-3 18:31
ChDir "文件夹路径"
Workbooks.Open Filename:= "文件夹路径\工作簿名1.xls"
Windows("工作簿名1.xls").Activate
Range("E6:E8").Copy
Windows("工作簿名2.xls").Activate
Range("F8").Paste

作者: nbwill82 时间: 2008-11-4 08:31
哎~~~~~~~~~~~~~~~~··不知道说什么好，，，，
谢谢各位版主哦，代码我都记下了，我自己慢慢拼吧。
谢谢了[:30]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)