!
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分别取得。
若无特别说明，本网站文章均为原创，原则上这些文章不允许转载，但是如果阁下是出于研究学习目的可以转载到阁下的个人博客或者主页，转载遵循创作共同性“署名-非商业性使用-相同方式共享”原则，请转载时注明作者和出处，谢绝商业性、非署名、采集站、垃圾站或者纯粹为了流量的转载。谢谢合作！