如何将TEXT文本框中（一个或多个文本框）输出的结果导入到excle中。。。


谢谢高手给予指教。。。

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

坚强坚持，谢谢你给予的帮助。

由于我是新手加菜鸟，希望你能说的详细些。

谢谢。

Private Sub ExportToExcel 这个是在什么的控件下写的。。

我是不是vb。6.0中缺少些啊。。。

非常感谢你给予的帮助，非常感谢。

恳请你收我为你的学生。

像你所说的那样，我可不可以建立以个按钮，然后再按钮下写代码。

当我点击按钮的时候，会自动将text文本中输出的结果导入到excle中呢。。。

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啊，还是那毛病。。

急，急，急啊。。

   text文本输出的结果            导入excle中的与其是相对应的
我最后要的是这样的效果。。。

Private Sub Command1_Click()
Open App.Path & "\data.xls" For Append As #1
   Print #1, Text1.Text
   Close #1

这样的程序能否改成我需要的那样的输出结果
帮看看，谢谢。

Open App.Path & "\data.xls" For Append As #1
   Print #1,
   Print #1, Text1.Text; vbCrLf; Text2.Text; vbCrLf; Text3.Text; vbCrLf; Text4.Text; vbCrLf; Text5.Text
   Close #1

关键就是要它竖着来么
我刚在里面加了换行
可输出的结果还是不换行么
还是在同一列中依次的出来了
我加个换行是为了能区别是哪个文本输出的
我在想想别的办法，你在帮我想想，看能 不能够有更好的答案。
谢谢这几天给我的帮助，小弟谢过了

我要输出的结果就跟我上面那图一样的效果就可以了

现在又有个新的问题了

我上面那个代码，新建一个vb，把程序放进去就可以，但放在我写的程序里面点击按钮没反应。

我text文本框的结果是通过计算得出的，不是输入的