现有窗体上多个文本框 在文本框内写入数据可以实现数据在excel中的保存 也就是用xlsheet.cells(x,x).value = Text1.text这样写入的 我可以实现一次把所有文本框都输入后保存数据 但是在输入一部分文本框之后保存 再次写入剩余文本框数据时 以前的数据就会丢失 因为每次都是读取文本框中的值 第二次输入时 第一次的肯定没有了 excel就把空读取写回到电子表格中了 现在如何防止这种情况那? 能否在第二次打开的时候 将第一次的数值再返回到程序的文本框中 和第二次的数据一起再写回到excel中? 还是要使用数组来保存文本框输入进的数据? 但是用数组保存 如何保证第一次的数据不会被第二次的空数据覆盖?
解决方案 »
- 出差前散分,回来就结贴
- VB导出完EXCEL并另存为,保存后不能释放EXCEL,急急!!!!!!
- 谁有fm20.hlp 以及 Fm20.cnt 文件,发到我邮箱[email protected],收到后200分相送
- 多个表查询(联合查询)如何在DataGrid中使用问题
- 怎样使自己做的控件在工具栏里显示自己的图标?
- Win7下使用VB6
- 为什么还没有人帮我列?
- 如何在VB的窗体中设置无限的高度与宽度?
- 我想把一个记录集加到另一个记录集而不覆盖原有项应该怎样写呀?
- 对象'refresh'的方法'iadodc'失败
- vb6.0中怎么把查询到的内容显示到combo中
- Microsoft VBScript 运行时错误 (0x800A01CE) 远程服务器不存在或不可用
你是这个意思么?
否则初始化时文本框都置空,保存时Excel表格历史数据+新数据[xlsheet.cells(x,x).value = xlsheet.cells(x,x).value + Text1.text]。
Dim WB As Excel.Workbook
Dim WS As Excel.Worksheet
Set App = CreateObject("Excel.Application")
Set WB = App.Workbooks.Open("FileName")
Set WS = WB.Worksheets.Add '这是一种方式,将新的内容保存到不同的工作表中
ws.Cells(i,j)=.........
...............