Excel的有效可读数据区域是指拥有数据的最大范围,比如只有100行50列拥有数据区域,那么其Range就是100*50的范围。正常情况下,我们要如何编程获得这个区域呢,其实我们可以借助于UsedRange这个方法,下面举个简单的例子,比如用VBScript或者VBA将有效数据区域的行高度自动(自动调整行高),那么可以参考下面的VBScript代码:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | Option Explicit Const MSEXCEL_FILENAME = "Excel文件路径" Sub VBMain() Dim xlApp, WorkBooks, Sheet Set xlApp = WSH.CreateObject("Excel.Application") xlApp.Visible = False Set WorkBooks = xlApp.Workbooks.Open(MSEXCEL_FILENAME) Set Sheet = WorkBooks.Worksheets(1) '打开第一个工作表 ' 也可以打开上次保存时打开的活动工作表 ' Set Sheet = WorkBooks.ActiveSheet 打开活动的工作表 Sheet.UsedRange.EntireRow.AutoFit ' 自动调整行高 Set Sheet = Nothing WorkBooks.Close Set WorkBooks = Nothing xlApp.Quit Set xlApp = Nothing End Sub Call VBMain() WSH.Quit() |
那么如何获取有效区域的行数和列数呢,参照上面的代码其实可以使用Sheet.UsedRange.Rows.Count或者Sheet.UsedRange.Columns.Count分别取得。