Office中国论坛/Access中国论坛

标题: 《版主帮帮我》使用宏将指定的数据导出 [打印本页]

作者: nbwill82 时间: 2008-10-29 09:50
标题: 《版主帮帮我》使用宏将指定的数据导出
谢谢2位高手帮我，不过我笨没有看透那些代码。所以我弄两个附件上来，麻烦各位给我看看。

说明

belluna中的Sheet2工作表的内容要用宏来导出到 test 中。表结构完全一样。

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

[ 本帖最后由 nbwill82 于 2008-10-30 08:46 编辑 ]

作者: nbwill82 时间: 2008-10-29 15:30
希望高手来帮帮我，，，，，，，我不会做啊谢谢了

作者: liwen 时间: 2008-10-29 15:55
http://www.office-cn.net/forum.p ... uid=25550#pid377358

作者: nbwill82 时间: 2008-10-29 17:05
楼上的，你给的连接跟我的问题有关系么？

作者: pureshadow 时间: 2008-10-29 22:55
Sub aa()
Dim myrow As Long
myrow = Sheets("sheet1").Range("a65536").End(xlUp).Row
Sheets("sheet2").UsedRange.Copy Sheets("sheet1").Cells(myrow, 1)
End Sub

作者: nbwill82 时间: 2008-10-30 08:29
谢谢两位版主，不过这个不是我要的结果，看来我没有说清楚，
我整理一下从新发上来，我会添加附件上来，希望版主能在我附件里添加上去
非常感谢

作者: liwen 时间: 2008-10-30 12:10
Sub Macro1()
Workbooks.Open Filename:=ThisWorkbook.Path & "\test.xls"
Windows("belluna.xls").Activate
Range("A2:O" & Range("A65535").End(xlUp).Row).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

作者: nbwill82 时间: 2008-10-30 13:52
谢谢版主哦，呵呵
执行上面的宏，出现下面的错误：
1、执行的时候2个文件必须在一起（可是我这边belluna这个文件可能在任何文件包内，test这个文件位置可以固定）
2、执行完宏，test内并没有出现数据，反而belluna的Sheet2表内出现数据。
3、重复点击宏命令，Sheet2内会出现重复的数据，而且是：
1次点击变成2行数据，2次点击变成4行数据，3次点击变成8行数据，一次类推。

我是vb白痴，不知道是不是我没有弄好。
麻烦各位帮我做个实例好么？1楼有样本。

（希望导出的数据能固定区域 A2：O2）

谢谢各位

作者: liwen 时间: 2008-10-30 15:34
ThisWorkbook.Path & "\test.xls" 改为固定路径。
Range("A2:O" & Range("A65535").End(xlUp).Row).Copy 改为：
Range("A2:O2").Copy

[:31]

作者: nbwill82 时间: 2008-10-30 16:27
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-10-30 16:31 编辑 ]

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

作者: liwen 时间: 2008-10-31 13:38
Workbooks.Open Filename:= "f:\test.xls"

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