求导出Excel时对Excel表中指定区域的复制与粘贴的代码

koutx · 发表于 2009-4-7 12:10:48

问题如标题，示意见附图：
求将第一行中的直线复制并粘贴到第6行的VBA代码。

koutx · 发表于 2009-4-8 17:32:42

已解决。用的：
ActiveSheet.("Line名").Select
但仍谢谢两位的回贴。

asklove · 发表于 2009-4-8 16:36:39

不好意上面的有错
如果你是以　Dim objXL As Excel.Application　的话
以上的改为
objXL.Range("A1:A11").Select
objXL.Selection.Copy
objXL.Range("A6").Select
objXL.ActiveSheet.Paste

asklove · 发表于 2009-4-8 16:26:13

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

koutx · 发表于 2009-4-7 16:22:27

不行啊，我的Excel表是在Access中用代码新建的。

asklove · 发表于 2009-4-7 14:01:20

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

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[其它] 求导出Excel时对Excel表中指定区域的复制与粘贴的代码

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)