关于一个文件合并的问题

gymmie · 发表于 2024-10-30 10:39

我写了一个很小的程序，多个CSV文件数据合并到一个文件一张表上，这个代码执行起来有一个问题。我在“开发工具”-“宏”里选择程序-执行，一切没有问题。但是我把程序添加成一个按钮调用的时候，就会把我的数据变成“2.13E+16”等格式（如C列），把“00001”变成“1”（如N列）。但是我上述第一个情况下运行时完全不会。这是什么情况？请高手大神帮我看下是哪里出了问题。是代码本身，还是设置问题，当然我是不希望变数据格式的。代码在附件

kevinchengcw · 发表于 2024-10-30 10:43

先设置对应列为文本后再写入数据

shiruiqiang · 发表于 2024-10-30 10:43

每列的前面加上： “‘” &

gymmie · 发表于 2024-10-30 14:59

kevinchengcw 发表于 2024-10-30 10:43
先设置对应列为文本后再写入数据

这个是通用程序，问题并不会事先知道表格的哪一列是文本

gymmie · 发表于 2024-10-30 15:00

shiruiqiang 发表于 2024-10-30 10:43
每列的前面加上： “‘” &

那就要大量的操作数据吧，感觉不好弄

kevinchengcw · 发表于 2024-10-30 15:08

那就全设置成文本

gymmie · 发表于 2024-10-30 16:11

kevinchengcw 发表于 2024-10-30 15:08
那就全设置成文本

我试过了，如果提前把文件设置成文本格式，在复制单个源文件的时候就把源文件的格式复制过来。但这样的结果竟然会改变格式，我猜有可能是EXCEL的BUG

kevinchengcw · 发表于 2024-10-30 16:22

粘贴值啊
sht.Range(sht.Cells(rStart, cStart), sht.Cells(Application.Max(sht.UsedRange.Cells(sht.UsedRange.Cells.Count).Row, rStart), cEnd)).Copy Cells(Erow, cStart) '**执行数据合并
上面这句换成下面这样试下
with sht.Range(sht.Cells(rStart, cStart), sht.Cells(Application.Max(sht.UsedRange.Cells(sht.UsedRange.Cells.Count).Row, rStart), cEnd))
  .Copy
  with Cells(Erow, cStart).resize(.rows.count,.columns.count)
.numberformatlocal="@": .pastespecial -4163
  end with
end with

gymmie · 发表于 2024-10-30 17:44

kevinchengcw 发表于 2024-10-30 16:22
粘贴值啊
sht.Range(sht.Cells(rStart, cStart), sht.Cells(Application.Max(sht.UsedRange.Cells(sht.Use ...

感谢大哥，这个代码执行完粘贴过来后单元格格式是文本，但是数字还是把前面0删除了，跟原来的结果一样。

gymmie · 发表于 2024-10-30 17:48

kevinchengcw 发表于 2024-10-30 16:22
粘贴值啊
sht.Range(sht.Cells(rStart, cStart), sht.Cells(Application.Max(sht.UsedRange.Cells(sht.Use ...

这个问题关键出在了，如果是在宏里点代码列表执行就没问题，我原来代码和您的修改都是正常没问题的。而把宏添加成一个执行按钮运行就出问题

		自动登录	找回密码
密码			免费注册

[求助] 关于一个文件合并的问题