Question

怎么用vba把txt文档中的数据导入到excel表格中？

我想把txt文档中的数据（仅数字）导入到excel表格中，图1是txt文档中源数据的格式;图2是我从网上找到的一个程序，结果运行后导入到excel中的结果如图3所示是带引号“"”的。怎样改动一下，只是把数字写入，不带引号。





Answer 1

如图，我画出来的这句。

改成这样：

Cells(rs, i + 1) = Replace(str_txt(i), """", "")

就是用替换函数Replace把双引号替换为空。