Office中国论坛/Access中国论坛

标题: 求导出Excel时对Excel表中指定区域的复制与粘贴的代码 [打印本页]

作者: koutx 时间: 2009-4-7 12:10
标题: 求导出Excel时对Excel表中指定区域的复制与粘贴的代码
问题如标题，示意见附图：
求将第一行中的直线复制并粘贴到第6行的VBA代码。
[attach]37137[/attach]

作者: asklove 时间: 2009-4-7 14:01
可以在EXCEL录制一个宏（将第一行中的直线复制并粘贴到第6行的宏，代码自动生成。）
添加一个按钮－运行录制的宏
或者
这是我在论坛上收藏的：
Set xlapp = CreateObject("EXCEL.APPLICATION")
xlapp.Visible = True
xlapp.workbooks.Open "h:\sqlCodeQuery.xls"
xlapp.Run "你的宏名.xla!MacroName"
没测试过。将以上写在导入EXCEL表事件之后

作者: koutx 时间: 2009-4-7 16:22
不行啊，我的Excel表是在Access中用代码新建的。

作者: asklove 时间: 2009-4-8 16:26
不知道你在导入EXCEL表后打开这个表查看吗？
如果是的话，这个是EXCEL表中"复制到A6"的宏代码，把它加在打开这个表查看之后
Range("A1:A11").Select
Selection.Copy
Range("A6").Select
ActiveSheet.Paste
我在已有工作表试过可行，ACCESS新建的EXCEL表没试过，你试试

作者: asklove 时间: 2009-4-8 16:36
不好意上面的有错
如果你是以　Dim objXL As Excel.Application　的话
以上的改为
objXL.Range("A1:A11").Select
objXL.Selection.Copy
objXL.Range("A6").Select
objXL.ActiveSheet.Paste

作者: koutx 时间: 2009-4-8 17:32
已解决。用的：
ActiveSheet.("Line名").Select
但仍谢谢两位的回贴。

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