将行集从Excel导出到txt文件

我的目标是将99行分成10组，每组包含9行和2列，以生成dat（文本）文件

这可以通过在第9行中断写入操作，然后在第10行恢复来使用循环来实现

我希望Excel中的前10行在一个dat文件中，下10行在另一个dat文件中，依此类推

当我运行下面的代码时，什么都没有发生。当我调试时，它跳过循环结构。当我只为一个包含所有行的文件运行它时，它运行得非常好

0.8641  0.8654
0.6605  0.8269
0.5828  0.8269
0.9985  1.0000
0.7527  0.9423
0.6641  0.9423
1.1329  1.1346
0.8756  1.0962
0.7590  1.0769
0.9174  0.8836
0.7557  0.8443
0.5986  0.8164
0.9984  1.0000
0.8085  0.9656
0.6809  0.9443
1.0972  1.1328
0.8680  1.0902
0.7453  1.0623
0.8665  0.8714
0.6385  0.8429
0.5398  0.8143

---

这可能像下面代码行中文件夹中的拼写错误一样简单吗

Foler = "C:\TRNSYS1832-bit\TRNSYS18\MyProjects\Main project\Chiller and ice storage data\Excel\"

查看代码的其余部分，Folder没有设置为任何值

这一行还有一个拼写错误：

conuter = 1

第一次通过时，计数器=0，它在第一次通过循环时被设置为1

我认为还有一个错误：

For k = 1 To k = LastRow

应该是

For k = 1 To LastRow

---

旁注：如果是四舍五入，您可能需要

Application.Round

。另外，有关查找最后一行/列的更好方法，请参阅。感谢@ACCtionMan的回复。我理解关于k=1到k=最后一行的观点。我改变了这一点，现在我的代码正在运行，我得到了所需的文件，虽然在逻辑上仍然有一些问题，因为我得到了太多的文件…但我会修复它。

For k = 1 To LastRow