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

急，急，急啊。。

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

引用  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
   Close #1

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

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

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

    Close #1

End Sub

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文本框的结果是通过计算得出的，不是输入的

学习了。