Question

如何将VB中TEXT里的文本导入EXCEL里面啊

点击按钮,把TEXT1导入A1,T2导入B1,T3导入C1,以此类推,
然后重新填数,第二次点点击按钮,就将TEXT1导入A2,T2导入B2,T3导入C2,以此类推,然后点第三次,第四次...直到关闭就保存EXCEL.
这个要怎么写啊
1楼lelandf ,我也很想用你所说的数据库啊,可是我自学VB,才上手啊,那深的我更不懂了啊.
4楼gis_hzy虽然不是很理想,但看懂了我的意思啊,,,辛苦了!感谢啊

Answer 1

1. 打开文本数据。

   

2. 新建Excel文档，并打开Excel文档，点击左上角开始处，点击“打开”。

   

3. 打开数据导入界面，选择文本数据点击“确定”，进入下一界面。

   

4. 在下一界面，勾选“逗号”，点击“下一步”，下一页面，继续点击“下一步”。

   

5. 操作完成后，数据导入完成。

   

Answer 2

Private Sub Command1_Click()
Dim Ap As Object, WkBk As Object, Sht1 As Object, s As Integer
Set Ap = CreateObject("Excel.Application")
Set WkBk = Ap.Workbooks.Open(App.Path & "\mydata.xlsx")
Set Sht1 = WkBk.Worksheets("Sheet1")
Static i As Integer
Sht1.Cells(i + 1, 1) = Val(Text1.Text)
Sht1.Cells(i + 1, 2) = Val(Text2.Text)
Sht1.Cells(i + 1, 3) = Val(Text3.Text)
i = i + 1
WkBk.Save
Ap.Workbooks.Close
Ap.Quit
Set Sht1 = Nothing
Set WkBk = Nothing
Set Ap = Nothing
End Sub

Answer 3

保存按钮
Private Sub CommandButton1_Click()
r = Application.WorksheetFunction.CountA([A:A]) + 1 '找到第一个空行
Range("A" & r) = TextBox1 'A1=文本框1
Range("B" & r) = TextBox2 'B1=文本框2
End Sub
关闭按钮
Private Sub CommandButton2_Click()
ActiveWorkbook.Save '保存工作簿
。。。。。。'你的退出命令行
End Sub

Answer 4

想问一下： 你为什么不用数据库呢，先都放到数据库中，然后再从数据库中导出你所需要的数据，这样效果会更好。当然，你如果必须要这样，也是可以的，不过比较麻烦.
你补充一下问题，看需要哪个代码？

Answer 5

要用到VBA