VB如何实现以下问题.............在线等候

Question

用VB进行EXCEL表格复制，其中sheet1中有个表格（比如A1：K31），将sheet1中的表格进行复制，拷贝到sheet2中，代码如下：
myBOOK.Worksheets(1).Range(A1：K31).Copy Destination:=myBOOK.Worksheets(2).Range("A1")
但是拷贝过来的列宽和行高都变成EXCEL默认的列宽和行高，比如sheet1中A1的列宽为3.5,B1的列宽为4.5,但拷贝过来的列宽却变成了8.38。在EXCEL里粘贴时，可以进行菜单选择“选择性粘贴..”，请问在VB中如何实现？
另外VB能否定义EXCEL的页面设置？

Answer 1

Columns("A1").ColumnWidth = 3.5 列
Rows("1").RowHeight = 4 行

Answer 2

因为表格很多，再加上是批理导出，所以楼上二位的方法好像是不行。
不晓得VB能不能控制EXCEL的菜单？