代码VBA转换BCB

[freezjf2010]

Range("E:E,G:G").Select
Range("G1").Activate
Selection.Copy
意思是在工作表中复制两个不相邻的列的内容。
WorkSheet.OPG("Columns", "E:E,G:G").OPR("Copy");//出错
WorkSheet.OPG("Columns", "E:E+G:G").OPR("Copy");//出错
怎么选取不相间的两列或多列呢？

[周药师]

lz近来这类问题比较多
未曾接触过,帮你顶一下

[ejuzhuan]

留个脚印。

[宝龙哥]

这个需要用到区域集合：
sh.Exec(PropertyGet("Range")<<"A:A,G:G").OlePropertySet("EntireColumn","指定字符");//用指定字符串填充不连续区域
sh.Exec(PropertyGet("Range")<<"A:A,G:G").Exec(Procedure("Copy"));//复制指定的不连续区域集合

[宝龙哥]

两个<发帖的时候中间出空格了，用的时候删掉空格

[ch_builder]

老妖是这方面的专家,你向他请教吧

[castlooo]

妖哥的网站上有这方面的文章

[castlooo]

http://www.ccrun.com/article.asp?i=529&d=0iezy5

[castlooo]

http://www.ccrun.com/article.asp?i=543&d=667o3e