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

koutx

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

asklove

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

koutx

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

asklove

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

asklove

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

koutx

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