HR用EXCEL VBS

Private Sub Workbook_Open()
 Application.Visible = False '将EXCEL设置为不可见
' Call GetHeadData  '调用子程序，获取抬头数据
 Call GetItabData  '调用子程序，获取项目数据
 Application.Visible = True '将EXCEL设置为可见
 Sheet1.Activate '将sheet1设置为活动页
 Sheet1.Range("A1").Activate '将sheet1的A1单元格设置为活动单元格
End Sub

Sub GetItabData()

'将sheet1设置为活动页
    Sheet1.Activate
    
'从文件中读取数据，写进sheet1
    With Sheet1.QueryTables.Add(Connection:="TEXT;C:\tmp\zhrp022.dat", _
        Destination:=Range("A3"))
        .Name = "a"
        .FieldNames = False
        .RowNumbers = True
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
'       .TextFilePlatform = 936
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1)
'        .TextFileTrailingMinusNumbers = True
    
        .Refresh BackgroundQuery:=True
    End With




    Set myRangeA = Worksheets(1).Range("A:A")
  
    mr = Application.WorksheetFunction.CountA(myRangeA)
    
'为单元格设置边框
    With Worksheets(1)
        .Range(.Cells(3, 1), _
        .Cells(mr + 1, 27)).Borders.LineStyle = xlContinuous
    End With


End Sub