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

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