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

xlSheet.Cells(j + 1, i + 1) = 用户_进口Grid.Columns.Item(i).Text
后面来一句：
xlSheet.Selection.NumberFormatLocal = "@"

追问

我马上试试，分家给你啦！谢谢！

追答

“如果此时使用EXCEL对象21、文本自动换行代码 x.rows ”这句看不懂说啥
如果用要监视EXCEL是否关闭，自然另有办法。

追问

提示：未找到方法 数据成员！

你好则呢么解决，谢谢！

追答

xlSheet.Cells(j + 1, i + 1) = 用户_进口Grid.Columns.Item(i).Text
后面来一句：
xlSheet.Cells(j + 1, i + 1).NumberFormatLocal = "@"
再试试

追问

你好，错误没啦，可是还是科学符号

追答

不能够啊，对了，先设置格式，后修改数值，两句对换一下位置，是宽度不够的话
加xlSheet.Columns.EntireColumn.AutoFit