Hide/display columns or rows in an Excel document

来源:互联网 发布:智多星软件视频教程 编辑:程序博客网 时间:2024/05/22 10:32

This solution applies to external Excel files, not to the QuickTest Professional data table.


You can use the Excel object model to automate hiding or displaying rows and columns in an Excel workshee


Example:
' Create the Excel object
Set ExcelObj = CreateObject("Excel.Application")
ExcelObj.Visible = true

' Open up the Excel file which has the rows or columns to be hidden.
ExcelObj.Workbooks.Open "C:\temp\Book1.xls"

' Get the first sheet
Set NewSheet = ExcelObj.Sheets.Item(1)

' Hide the first row and column

NewSheet.Cells(1,1).EntireRow.Hidden = True
NewSheet.Cells(1,1).EntireColumn.Hidden = True

' Save the Excel file
ExcelObj.ActiveWorkbook.Save

' Close the application and clear the object reference
ExcelObj.Quit
Set ExcelObj = Nothing

To hide columns or rows, set the Hidden property to True.
To display columns or rows, set the Hidden property to False.


0 0
原创粉丝点击