VB怎么一并取出Excel的多个单元格的值

VB如何一并取出Excel的多个单元格的值1.VB如何一并取出Excel的多个单元格的值？就是说用一个Rang语句取出连

VB如何一并取出Excel的多个单元格的值
1.VB如何一并取出Excel的多个单元格的值？就是说用一个Rang语句取出连续的很多个单元格的值？
描述：我记得在Excel可以用“：”来连接左上角的单元格和右下角的单元格，以表示在这个范围内的所有单元格。例如：A1：C5就是A1，B1，C1，A2，B2，C2……A5,B5，C5这15个单元格。这是在Excel的公式编辑中经常用到的表示方法，为什么到了Rang语句好像不行了，还是我输入错了，下面是我的语句：

VB code

I_XlsSheet.Range("A1:AH5").Value'对象都已经创建，文件也已经打开，文件的这一部分有内容

2.怎样将上面取得的值按照同样的格式复制到另一张表的指定位置，给出的位置是这部分内容的左上角位置。

[解决办法]

VB code

Private Sub Command1_Click()    Dim eApp As Excel.Application    Dim eBook  As Excel.Workbook    Dim eSheet1 As Excel.Worksheet    Dim eSheet2 As Excel.Worksheet        Set eApp = CreateObject("Excel.application")    Set eBook = eApp.Workbooks.Add    Set eSheet1 = eBook.Worksheets(1)    Set eSheet2 = eBook.Worksheets(2)    With eSheet1        .Cells(10, 1) = "A"        .Cells(11, 2) = "B"        .Cells(12, 3) = "C"                eSheet2.Range("C3:E5").Value = eSheet1.Range("A10:C12").Value    End With        eApp.Visible = TrueEnd Sub