text1.text 文本框的内容,保存成EXCEL文件.

[NTYYBX]

text1.text 文本框的内容,保存成EXCEL文件.谢谢!

[llfz]

可以先按规范格式保存为文本文件*.txt，再将其转换为excel文件

[junwhj]

Option Explicit

'---------------------------------------------
'要先引用Microsoft Excel x.x Object Library
'---------------------------------------------

Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As New Excel.Worksheet
Dim strFile As String

strFile = "c:\test.xls"

Screen.MousePointer = 11

Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets("Sheet1")

xlSheet.Cells(1, 1) = Text1.Text
xlSheet.SaveAs strFile

Set xlSheet = Nothing

xlBook.Close
Set xlBook = Nothing

xlApp.QUIT
Set xlApp = Nothing

Screen.MousePointer = 0

MsgBox "OK", vbExclamation
End Sub

[daichao1251712]

我想可能还有格式的问题吧
要不用RICHTEXT试试
================================================================
horse has four leg
so water in sea