今天休息，散分……

Question

先看下面的问题，好吗？
是关于VB操作的EXCEL。
一个EXCEL文件，里面有三张工作表（sheet1,sheet2,sheet3）,其中sheet1表中有一个复杂的表格，现在想把sheet1中的表格复制的其他工作表里，粘贴过来的表格必须和sheet1完全一样。请教用VB能实现吗，希望能给出详细的过程。
顺便问一下，VB操作EXCEL怎么样才能避开瑞星的检测。（不要说让客户卸载瑞星哦）
还想请教，VB怎样能够动态控制宏（比如：Range("H4:J4").Select，我是否能够自己决定所选择的单元格）

Answer 1

我不懂，新来的，newbyte.有分送的话，我也要点。哈

Answer 2

This is a difficult problem

Answer 3

用Excel中的录制宏
查看一下代码就行了。。
其他的问题看一下Excel自带的帮助就可以了里面有类似的代码的

Answer 4

接分来了，祝楼主HAPPY谢谢！

Answer 5

很简单的！我发一段我以前写的代码！但不是解决这个问题的！
只是对EXCEL的操作！
Dim v As Variant
Set v = CreateObject("excel.application")
 v.Application.workbooks.Open ("C:\report\report.xls")
 v.Application.Visible = True
 v.Application.workbooks(1).worksheets(1).Name = “”
v.Application.workbooks(1).worksheets(1).Rows("" & Q + 1 & ":" & Q + 1& "").Insert
v.Application.workbooks(1).worksheets(1).cells(i - 1, j + 1) = “”
 v.Application.workbooks(1).Activate
 v.Application.activeworkbook.SaveAS ("c:\report\report" & strname & " .xls")
v.Application.workbooks.Close
 v.Application.Quit

Answer 6

想要对Excel做什么操作、如果不知道就 录制新宏，可以搞定的

Answer 7

休息快乐，老大这样散分啊，可以休息总是羡慕，：）
言归正传，关于楼主的几个问题：
1、关键在全复制粘帖
sheet1.Cells.Select
Selection.Copy
sheet2.Cells.Select
ActiveSheet.Paste
2、无法闭开，因为你在载入excel文档时瑞星自动检测，因为这是你交给它的任务。
不用卸载瑞星，只要在监控设置中的高级设置中的扩展名监控把xls监控去掉（应该是这样的，我不用瑞星，仅提供参考），但总是不安全，建议还是让其打开的好，速度和安全相比总是次要的：）关于关闭用户的瑞星的相关设置，可以通过修改相应注册表项的方式达到，不要说我损，仅为参考。
3、VB怎样能够动态控制宏（比如：Range("H4:J4").Select，我是否能够自己决定所选择的单元格）
用cell，range都是好的方法。
如楼主自己提供的，你可以：
num1=4
num2=4
range("H"&num1&":J"&num2)的方式动态控制。最后祝楼主休息快乐。

Answer 8

如果要控制列，
建议使用cell。