VBScript/VBA使用UsedRange确定Excel的有效可读数据区域

Excel的有效可读数据区域是指拥有数据的最大范围，比如只有100行50列拥有数据区域，那么其Range就是100*50的范围。正常情况下，我们要如何编程获得这个区域呢，其实我们可以借助于UsedRange这个方法，下面举个简单的例子，比如用VBScript或者VBA将有效数据区域的行高度自动（自动调整行高），那么可以参考下面的VBScript代码：

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分别取得。

发表评论 取消回复

发表评论取消回复