text文本框中输出的结果如何导入到excle中

我找了好多，都没找到我想要的答案。。
小弟新手，忘得到你的帮助，谢谢。

Private Sub ExportToExcel(sql As String, conStr As String) '输出电子表的函数
On Error GoTo EXPORT_ERR
    Dim rs As Object
    Dim xlApp       As Object
    Dim xlBook      As Object
    Dim xlSheet     As Object
    Dim xlQuery     As Object
    Set rs = CreateObject("Adodb.Recordset")
    rs.CursorLocation = adUseClient
    rs.Open sql, conStr
    If rs.RecordCount < 1 Then
        MsgBox ("没有记录!"), vbExclamation
        Exit Sub
    End If
    Dim rowCount     As Integer
    Dim colCount     As Integer

    rowCount = rs.RecordCount '记录总数
    colCount = rs.Fields.Count '字段总数
   
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = Nothing
    Set xlSheet = Nothing
    Set xlBook = xlApp.Workbooks().Add
    Set xlSheet = xlBook.Worksheets("sheet1")
      
    '添加查询语句，导入EXCEL数据
    Set xlQuery = xlSheet.QueryTables.Add(rs, xlSheet.Range("a1"))
      
    With xlQuery
            .FieldNames = True
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = True
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .PreserveColumnInfo = True
    End With
    xlQuery.Refresh
    xlApp.Application.Visible = True
    Set xlApp = Nothing           '"交还控制给Excel
    Set xlBook = Nothing
    Set xlSheet = Nothing
    Set rs = Nothing
    Exit Sub
EXPORT_ERR:
    MsgBox Err.Source & vbCrLf & vbCrLf & _
           Err.description, vbExclamation, "信息"
End Sub


给你一个高手的输出电子表格代码
使用方法
     sql = SSQL 'SSQL为原先查询的语句
      conStr = "provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\数据库.mdb"
    Call ExportToExcel(sql, conStr) '调用函数

只要引用正确就可使用,速度相当快

Private Sub ExportToExcel   不是什么控件
这仅仅是一个过程的名称
你可以任意的写成
Private Sub abc(aaaa As String, bbbb As String)
严格来说,这个一个实现一个功能的函数
这个函数有参数,参数aaaa 和  bbbb 定义为一段字符
当你给予参数赋值后,可以引用这个函数,从而实现这个函数的功能
就如给予一定条件后,这个函数功能套餐依条件实现功能
最后得说清楚,写法改变,下面的代码当然相应对应替换掉的是不是

[ 本帖最后由 坚强坚持 于 2011-4-9 22:42 编辑 ]

Public myexcel As New Excel.Application
Public mybook As New Excel.Workbook
Public mysheet As New Excel.Worksheet
'以上在模板中定义或者在窗口中定义也可以
Private Sub Command1_Click()
  Set myexcel = CreateObject("Excel.Application")  '首先连接EXCEL
  Set mybook = myexcel.Workbooks.Add
  Set mysheet = mybook.Worksheets(1)
   mysheet.Cells(1, 1) = text1.text
   mysheet.Cells(1, 2) = text2.text
   mysheet.Cells(1, 3) = "text3.text
    Set myexcel = Nothing
End Sub



上面那个是我在百度中找出来 的。。可是不能运行，一运行就提示：子程序或函数中的属性无效。。。

帮我看看，谢谢。。。

我运行还是不OK啊，还是那毛病。。

急，急，急啊。。

引用  Excel 11.0
定位赋值
不明白出什么问题了
好像是定位没问题
是赋值出问题是不是
这个就难了,不明白,为什么非要在一个文本框放入1\2\23.........
如果一定要这样
就得找规律了
根据规律提取
比如:先定义数组
dim aaaa() As String  
用TRIM 去掉空格
用MID位置提取
另如是是有规律的空格
可据空格定位提取


[ 本帖最后由 坚强坚持 于 2011-4-11 20:05 编辑 ]

Private Sub Command1_Click()
Open App.Path & "\data.xls" For Append As #1

   Print #1, Text1.Text; vbTab; Text2.Text '不喜欢坚来,那横来

    Close #1

End Sub

没有什么做不出来的,估计是没明白你的意思,你把文件发上来看看

学习了。