如何实现把excel表格中的某一列隐藏？？

Question

各位大侠：问题如题！！！谢谢了！

Answer 1

Selection.EntireColumn.Hidden = True

Answer 2

Private Sub Command1_Click()
On Error GoTo errlst
Dim exApplication As New Excel.Application
Dim exWorkbook As Excel.Workbook
Dim exWorksheet As Excel.Worksheet
Dim sFileName As String
    Set exApplication = CreateObject("excel.application")
    exApplication.Visible = False
    sFileName = "路径\1.xls"   '这里是你要打开的文件路径
    Set exWorkbook = exApplication.Workbooks.Open(sFileName)
    Set exWorksheet = exWorkbook.Worksheets(1)
    With exWorksheet
        .Range("F1").EntireColumn.Hidden = True   '隐藏F列
    End With
    exWorkbook.Save
    exApplication.Quit
errlst:
exApplication.Quit
End Sub明白了么?