Question

在VB中，有一个按钮和一个文本框，单机按钮把文本框里的内容保存到Excel，已经实现了，但是每次都

在VB中，有一个按钮和一个文本框，单机按钮把文本框里的内容保存到Excel，已经实现了，但是每次都覆盖上次的内容，如何不覆盖内容保存到Excel？

Answer 1

问题是该描述详细些，具体要做什么。是不是要加入到某一列，还是放入到某一个单元格？
如果是加入到某个单元格： cell(i,j)=cel(i,j)+text
如果要加入到某一列，你要先判断从那一行可开始存放数据，从该列第一个空单元格放起，
存放前先检测第一个空单元格位置：
i=1
do while cell(i,j)<>""
i=i+1
loop
这样，从第i+1行开始存放数据。

追问

每次加入都是两个单元格，但不要覆盖，一直追加

追答

那是加入到固定的单元格了？按第一种方式做。

Answer 2

在公用模块中定义一个全局变量，
Public temTxts as string
每次单击前，将文本框中的内容累计合并到这个变量中，
temTxts=temTxts & Text1.text

这样就不会覆盖，而是累加了。

追问

不明白，可以详细一点么？

追答

我需要更详细一点的信息才能继续回答

追问

就是在买个按钮应该写什么代码？公共模块写什么代码

Answer 3

sub AddText()
dim strTextBox as string

dim myStr as string

mystr=textbox1.text
strTextBox=range("A2").text
strTextBox=strTextBox+mystr

end sub

追问

写在哪里的？

追答

你可以直接写在公共模块，然后在按钮点击的事件中用：
call AddText 调用，这样的话上面的代码中“range("A2")就得改为：
sheets("Sheet1").range("A2").text

sheet1是你工作表的名字，如果你工作表的名字是其他，你就改过去就完，A2是你存放文本内容的单元格，对应改就可以。