[已解决]txt数据导入excel

yyyydddd8888 · 发表于 2013-11-16 22:18

这个最佳答案由 yyyydddd8888 给出，感谢 yyyydddd8888 的回答。

单击隐藏图章

dongqing1998 发表于 2013-11-16 22:15
既然写好了就发出来吧

哦，忘记传附件了：

提取.zip (8.74 KB, 下载次数: 4)

lijian8003 · 发表于 2013-11-16 22:23

本帖最后由 lijian8003 于 2013-11-16 23:37 编辑

yyyydddd8888 发表于 2013-11-16 21:45
已经修改好了！请测试：

实际运用中，数据导入excel的起始行列位置经常变动，但是您写的代码经过测试，只能导入起始位置为A1、A2，变为A3就导不进数据了。

代码
ActiveSheet.Range("a1").CurrentRegion.Copy ThisWorkbook.Sheets(1).Range("a1")
改为
ActiveSheet.Range("eqi2319").CurrentRegion.Copy ThisWorkbook.Sheets(1).Range("eqi2319")
导不进数据，哪里错了？

另：
代码改为
ActiveSheet.Range("a3").CurrentRegion.Copy ThisWorkbook.Sheets(1).Range("a3")
也导不进数据

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