求助关于ado跨文件取数（两个不同区域）问题！！

lj1226189

Dim cnn As New Connection
    Dim rs As New Recordset   
    Dim sql As String
    Dim x%
     t = 2
   For Each n In dic
   If n <> ThisWorkbook.Name Then
        cnn.Open "Provider=Microsoft.Ace.OleDB.12.0;extended properties=excel 8.0;data Source=" & ThisWorkbook.Path & "\" & n        
        sql = "select * from [表2医院月报表$a4:f10]"           
        rs.Open sql, cnn
       Sheet2.Range("a" & t).Offset(0, 0).CopyFromRecordset rs      
        For i = 0 To 5
        sheet2.Cells(t + i, 7) ='表2医院月报表$a1
        Next        
        t = t + 6        
        rs.Close
        cnn.Close
        End If
    Next
这个 取同文件夹下各不同excel中a4:f10区域文件到当前excel中，其中红字部份是单位名称，我不知道如何用ado取出这个数！求各位

lj1226189

求各位高手!

iwangyi

   如果是取表头如下：     
         For i = 0 To  RS.FIELDS.count-1
         sheet2.Cells(t + i, 7) =rs.fields(i).name
         Next

lj1226189

谢谢楼上 不是取表头 是取另一个部位 是A1单元格 再次感谢!

iwangyi

        不打开表取数
          sql1 = "select * from [表2医院月报表$A1:A1]"     
          For i = 0 To  RS.FIELDS.count-1
          sheet2.Cells(t + i, 7).
          For i = 0 To  RS.FIELDS.count-1
          sheet2.Cells(t + i, 7).CopyFromRecordset  CNN.EXECUTE(SQL1)
          Next

iwangyi

另一种思路为打开表取数
WORKBOOKS.OPEN(路径&文件名.xls）
直接取数
WORKBOOKS.CLOSE

lj1226189

iwangyi 发表于 2018-9-16 19:45
不打开表取数
          sql1 = "select * from [表2医院月报表$A1:A1]"     
          For i = ...

你好 你这个上面代码取出数据为空！！

iwangyi

不打开表取数
           sql1 = "select * from [表2医院月报表$A1:A1]"     
           For i = 0 To  RS.FIELDS.count-1
           sheet2.Cells(t + i, 7)=rs.fields(0).name
           Next

lj1226189

第七列数据为零！！sheet2.Cells(t + i, 7).CopyFromRecordset  CNN.EXECUTE(SQL1)

lj1226189

Dim cnn As New Connection
    Dim rs As New Recordset
    Dim rs2 As New Recordset
    Dim sql, sql1 As String
    Dim x%
     t = 2
   For Each n In dic
   If n <> ThisWorkbook.Name Then
        cnn.Open "Provider=Microsoft.Ace.OleDB.12.0;extended properties=excel 8.0;data Source=" & ThisWorkbook.Path & "\" & n
        
        sql = "select * from [表2医院月报表$a4:f10]"
        sql1 = "select * from [表2医院月报表$b1:b1]"
        rs.Open sql, cnn
        
       Sheet2.Range("a" & t).Offset(0, 0).CopyFromRecordset rs
      
        For i = 0 To 5
          Sheet2.Cells(t + i, 7).CopyFromRecordset cnn.Execute(sql1)
          Next
        
        t = t + 6
        
        rs.Close
        cnn.Close
        End If
    Next