提出强烈抗议！！！！

antique_star

回复9楼学导：
就这么简单？我马上去验证一下。如若这个办法能解决，就省事多了喔。

antique_star

经过验证：证实9楼学导的办法是正确的。
这件事情让我有个感悟：最近老钻进VB代码里去了，一遇到问题就会首先想是不是代码不理想，或是有优化代码的解决办法。都快忽略前台操作的存在了。
就象这个案例，只需要将新表格的格式设置为文本就不需要改动代码。
非常感谢小翟学导。受教了。

coby001

antique_star 发表于 2015-6-11 16:46
程序运行正确，所有的数据（1000行，20列）都能完成移动，只是那些纯数字的文本，重新写入后都变成了数值。 ...

Sub t()
    Dim v
    With Me.[A1:A8]
        .NumberFormatLocal = "@" ' 文本格式
        .Value = "12345678901234567890"
        v = .Value
    End With
   
    With Me.[b1:b8]
        .NumberFormatLocal = "@" ' 文本格式
        .Value = v
    End With
End Sub

antique_star

谢谢热心的coby001[EH铁杆]，抱歉，你没有昵称，实在不知道如何称呼你。
你的12楼的写法相信也是可行的。
看来我得研究一下.NumberFormatLocal这个属性了，之前从没用过。

达州张先生

cleverzhzhf 发表于 2015-6-11 16:51
先把你需要写入数据的列，整列设置为“文本”格式，然后再写入数据，就不存在变数值的问题了

这是最好的办法

达州张先生

antique_star 发表于 2015-6-11 16:53
回复9楼学导：
就这么简单？我马上去验证一下。如若这个办法能解决，就省事多了喔。

还可以在程序中先设置某些列为文本，后写入数据，就不会清零了