Question

vb6.0中datagrid导出excel数据设置文本格式

Private Sub Command1_Click()
Dim ex As Object
Dim i As Integer
Dim j As Integer
Dim XlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set XlApp = CreateObject("Excel.Application")
XlApp.Visible = True
Set xlBook = XlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

For i = 0 To 用户_进口Grid.Columns.Count - 1
For j = 0 To 用户_进口Grid.ApproxCount - 1

用户_进口Grid.Col = i
On Error Resume Next
用户_进口Grid.Row = j
xlSheet.Cells(j + 1, i + 1) = 用户_进口Grid.Columns.Item(i).Text
Next j
Next i
End Sub
输出到excel以文本格式显示，谢谢！

Answer 1

can  i  see three cows？

Answer 2

记录宏修改使用即可

追问

能详细bu ?