在线急救：vb读取excel内容的有关问题

在线急救：：：vb读取excel内容的问题
我有个程序需要读取excel的数据，但是在读取合并的行或者列的时候，只能读取第一个位置的内容，其他位置的值都为空，应该怎么解决呢？我查了资料是只需要读取合并行的第一行，或者合并列的第一列，但是excel的数据很复杂，程序里不知道怎么判断哪个单元格是属于哪个合并的部分。请高手给出一个读取这样excel内容的程序吧。（事先不知道那些单元格是合并的，合并的有行合并的，有列合并的）

------解决方案--------------------

VB code


Private Sub Command1_Click()
   Dim xls As New Excel.Application
   Dim book As New Excel.Workbook
   Dim sheet As New Excel.Worksheet
   
   Set book = xls.Workbooks.Open("c:\book1.xls")
   Set sheet = book.Worksheets(1)
   For i = 1 To 3
       For j = 1 To 3
            If sheet.Cells(i, j).MergeArea.MergeCells Then
               Debug.Print sheet.Cells(i, j).MergeArea.Address
            End If
       Next
   Next
   
End Sub

------解决方案--------------------

VB code

Dim rng As Range

  For Each rng In ActiveSheet.UsedRange
      If rng.MergeCells Then 
  Next

在线急救：vb读取excel内容的有关问题

相关推荐