如何在vb中获得Excel对象行数，列数

[wyj770615]

如何在vb中获得Excel对象行数，列数

[acptvb]

感谢您使用微软产品

你可以使用ActiveSheet的UsedRange属性获得excel对象中使用过的范围，再进一步获得行列数。如下例：

Private Sub Command1_Click()

Set xl = New Excel.Application

xl.Visible = True 'make the excel application visible
xl.Workbooks.Add
xl.Workbooks.Open ("e:\fred.xls")

Dim rng As Range
Dim i As Integer, j As Integer

Set rng = xl.ActiveSheet.UsedRange

i = rng.Rows.Count
j = rng.Columns.Count

Debug.Print i
Debug.Print j

End Sub

详细信息请参考：
Count Property
http://msdn.microsoft.com/library/en-us/vbaxl10/html/xlproCount.asp
UsedRange Property
http://msdn.microsoft.com/library/en-us/vbaxl10/html/xlproUsedRange.asp

- 微软全球技术中心 VB技术支持

本贴子以“现状”提供且没有任何担保，同时也没有授予任何权利。具体事项可参见使用条款
(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
为了为您创建更好的讨论环境，请参加我们的用户满意度调查
(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。

[water_j]

参考EXCEL对象的属性好象是RAWCOUNTS，COLUMECOUNTS！

[miniant]

先创建Excel对象，Dexcel As New Excel.Application，然后再在Dexcel中打开工作簿，再判断行、列中是否有数值存在。例：if Dexcel.cells(i,p)="" then ......

[miniant]

water_j(jxp) EXCEL对象中好象没有RAWCOUNTS，COLUMECOUNTS这样的属性可用，好像只能用cells来判断是否有数值存在而获取行数，列数！