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 #2
   Print #2, Text1.Text
   Close #2
End Sub
以上代码能将text文本框中的结果显示在excle中，可text1和text2显示的是在同一列中。。

高手支个招，让text1内容显示在excle中的A列中，text2内容显示在B列中。

D:\ptarp.conf
你这里是个什么样的文件？