excel输出列宽自适应和设置为文本格式

    Dim XlsApp As Excel.Application

    Dim XlsBook As Excel.Workbook

    Dim XlsSheet As Excel.worksheet

    

    Set XlsApp = CreateObject("Excel.Application")

    Set XlsBook = XlsApp.Workbooks.Add

    Set XlsSheet = XlsBook.Sheets(1)

    

    XlsSheet.Columns.EntireColumn.AutoFit

    XlsApp.Visible = True

    For i = objMSH.Row To objMSH.RowSel

      For j = 0 To 4

        XlsSheet.Columns.EntireColumn.AutoFit       ' 将输出的excel根据数据长度，列宽自适应

        XlsSheet.Cells(i - objMSH.Row + 1, j + 1).NumberFormatLocal = "@"   '将excel设置为文本格式

        XlsSheet.Cells(i - objMSH.Row + 1, j + 1) = objMSH.TextMatrix(i, j)

      Next

    Next

    

    Set XlsApp = Nothing

    Set XlsBook = Nothing

    Set XlsSheet = Nothing