文本框中的数值保存到EXCEL中时，如果第一位数为0时，怎么将0也保存？？
Text1输入  000123 时，保存到EXCEL中，就变成了  123
.Cells(1, i) = Text1.text       只能保存非0的数值，
如果要把0也保存，要怎么改代码？？
请大家帮个忙，谢谢！

修改.Cells(1, i)属性

能具体说下吗？

format

只要把那句改一下，
.Cells(1, i) = "'" & Text1.text   
当然调用的时候也要记得用
Text1.text = Replay(.cell(1,i),"'","")   

.Cells(1, i).numberformat="@"
.Cells(1, i)="000123"

应该是要改变储存格的预设属性为文字模式～
不然不管VB6怎么作格式化～
EXCEL还是会把它还原成数字～