Private Sub Command1_Click()
Dim A As Object
Dim B As Object
Dim c As Object
Dim myrange As ObjectSet A = CreateObject("excel.application")
A.Visible = TrueSet B = A.Workbooks.Open("J:\hard\LL.xls")
Set c = B.worksheets(1)
c.ActivateDim j As Integer
j = 1
For j = 1 To 10
If c.cells(2, j).mergecells = True Then Print c.cells(2, j).Value
Next j
End Sub
Dim A As Object
Dim B As Object
Dim c As Object
Dim myrange As ObjectSet A = CreateObject("excel.application")
A.Visible = TrueSet B = A.Workbooks.Open("J:\hard\LL.xls")
Set c = B.worksheets(1)
c.ActivateDim j As Integer
j = 1
For j = 1 To 10
If c.cells(2, j).mergecells = True Then Print c.cells(2, j).Value
Next j
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货