求助呀，高手请进！关于在textbox中输入的内容保存到EXCEL或者access的问题。

bygonetong 发布于 2013-01-25 14:32， 1717 次点击

首先，我是个初学者中的初学者，可以说是0基础，想学习VB。
我有这么个想法不知道能不能实现？高手们给看看。

首先在窗体中有TextBox1，TextBox2,TextBox3.和Command1，Command2，Command3。
要求当点击Command1时，将在TextBox1，TextBox2,TextBox3中输入的内容保存到"C:\text.xls"中。
然后再在TextBox1，TextBox2,TextBox3中输入内容，再点击Command1时，新的内容也保存到"C:\text.xls"中，但是不覆盖第一次输入的内容，换行重新保存一次。
要求点击Command2时，清除TextBox1，TextBox2,TextBox3中的现有内容。
要求点击Command3时，可以调阅和修改该"C:\text.xls"中的内容。

我想问一下，这个要求可以实现吗？如果可以实现怎么操作。
最好有类似的源码，我学习学习。
谢谢各位大神了！

9 回复

yz10252013-01-25 15:11

这不难～只是做出来也没意义～你看不懂也只能照抄～
百度 => VB6 保存到EXCEL access
一堆示例代码...先学会简单的～再自己变换～

爱神的箭2013-01-25 15:22

额，能搜到很多

bygonetong2013-01-25 17:40

好，谢谢了！！！

bygonetong2013-01-25 17:49

回复 2楼 yz1025

我现在就会将textbox定义为数组，个textbox赋值以后将定义的数组输出，但是每次输入内容都将原来的内容替换掉，起不到保存的作用。

Option Explicit
Dim sj(7) As Variant

Private Sub Command1_Click()
   sj(0) = Text1.Text
   sj(1) = Text2.Text
   sj(2) = Text3.Text
   sj(3) = Text4.Text
   sj(4) = Text5.Text
   sj(5) = Text6.Text
   sj(6) = Text7.Text
   sj(7) = Text8.Text
   Open "c:\testfirst.txt" For Output As #1
   Write #1, sj(0), sj(1), sj(2), sj(3), sj(4), sj(5), sj(6), sj(7)
   Close
End Sub

wube2013-01-25 18:18

For Output => For Append

bygonetong2013-01-25 19:55

回复 6楼 wube

谢谢这位大神了！
回头我在研究研究怎么按照顺序将内容输入到xls相应的单元格里面！
有不懂的在像您请教！

yz10252013-01-25 22:24

每个代码都有它的意义～要能理解不能死背～
代码是死的～人脑是活的～活用几个简单的代码～
就能拼凑出很多不同的功能～但凡游戏都有规则～
只要了解规则～就能够想要什么就有什么～

话说回来楼主也许在某个领域是个大神～

当了这么久版主终于发现有一点点的不一样耶～
右下角居然有管理选项～第一次注意到～
这是.....版主才有的吗？

wp2319572013-01-25 22:25

不是板斧肯定没有要不你注册个majia试试

#10

yz10252013-01-25 22:30

是有啦～为了避免太集中一个号在回问题～
有开马甲～只是这不是不能说的秘密吗？
虽然偶尔会从登入地址泄漏....