VB如何一并取出Excel的多个单元格的值

[几罗星人]

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

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

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

[worldy]

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 = True
End Sub

[vrgame]

I_XlsSheet.Range("A1:AH5").Value？
↑ 語法就錯了唄？

  Dim RG As Range
  Dim val As Variant
  
  Set RG = Worksheets("Sheet1").Range("A1:C3")    '取出A1~C3内容
  val = Worksheets("Sheet1").Range("A1:C3").Value '取出A1~C3值
  
  Worksheets("Sheet1").Range("A6:C8").Formula = RG.Formula
  Worksheets("Sheet1").Range("A6:C8").Formula = val

[几罗星人]

算了，把前面的声明也贴出来吧，语法上是肯定没错的~

'数据源对象
Dim I_XlsApp As New Excel.Application
Dim I_XlsBook As Excel.Workbook
Dim I_XlsSheet As Excel.Worksheet
'数据输出对象
Dim O_XlsApp As New Excel.Application
Dim O_XlsBook As Excel.Workbook
Dim O_XlsSheet As Excel.Worksheet
'打开数据源
Set I_XlsBook = I_XlsApp.Workbooks.Open(Text1.Text)
Set I_XlsSheet = I_XlsBook.Worksheets(1)
'打开接收源
If Check2.Value = 1 Then
    O_XlsApp.Visible = True '显示出来
End If
Set O_XlsBook = O_XlsApp.Workbooks.Add
Set O_XlsSheet = O_XlsBook.Worksheets(1)

[几罗星人]

但你还是没有解释为什么我用Range("A1:AH5").Value语法的时候会出错，显示类型不符，为什么？

[worldy]

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

神仙知道你怎么会错

[vnking]

唉，我连取一个格子的值出来都没有实现。