创建以包含其他单元格数据的单元格命名的文本文件

我尝试使用OS X版本10.7.2在我的`Mac Mini上使用下面的代码进行Excel程序，并且由于文件名/路径而一直说错误:(我正在创建的Excel文件将成为我的模板已安装的公式和宏将被反复使用）。

Sub CreateFile()
Do While Not IsEmpty(ActiveCell.Offset(0, 1))
    MyFile = ActiveCell.Value & ".txt"
    fnum = FreeFile()
    Open MyFile For Output As fnum
    Print #fnum, ActiveCell.Offset(0, 1) & " " & ActiveCell.Offset(0, 2)
Close #fnum
ActiveCell.Offset(1, 0).Select
Loop
End Sub

我想做什么：

第一个目标

1. 我想要使​​用以下数据来创建文本文件。答：A是我需要的文件名。B：2是文本文件中我需要的内容。

   因此，A2 - “repair-video-game-Glassboro-NJ-08028.txt”是文件名，B2是文件中的内容。接下来，A3是文件名，B3是文件的内容，等等。内容读取单元格A16和B16中的内容（长度会有所不同），文件创建应该停止，如果没有，那么我可以删除其他文件创建。

2. 这张表永远不会改变。有没有办法建立excel宏来始终转到此工作表，而不是必须用鼠标选择它来确定起点？

第二个目标

1. 我想要使​​用以下数据来创建文本文件。答：1是我需要的文件名。B：B是文件中我想要的内容。

   因此，A2 - 是文件名“geo-sitemap.xml”，B：B是文件中的内容（忽略照片中的.xml文件扩展名）。ONCE内容单元格读取单元格“B16”中的内容（长度会有所不同），文件创建应该停止，如果没有，那么我可以调整需要内容的单元格（您在图像中看到的配方内容预设为500行） 。

2. 这张表永远不会改变。有没有办法建立excel宏来始终转到此工作表，而不是必须用鼠标选择它来确定起点？

我可以提供由不包含在.txt文件中的excel公式填充的单元格中的内容。如果不可能，那就没关系。我可以删除未填充的额外单元格（基于数据表）。

如果您需要更多信息或清晰度，请告诉我，我很乐意为您提供。

所以这是我正在使用的代码。它被设置为从任何页面运行（因为你不必在页面上，在代码中设置页面）

Sub CreateFile_KML()

Dim shtKML As Worksheet

Set shtKML = ThisWorkbook.Sheets("KML")

i = 2

    Do While Not IsEmpty(shtKML.Cells(i, 2))
        MyFile = "Macintosh HD:Users:cherryredspyder:Desktop:Testting:" & shtKML.Cells(i, 1).Value
        fnum = FreeFile
        Open MyFile For Output As fnum
        Print #fnum, shtKML.Cells(i, 2).Value
        Close fnum
        i = i + 1
    Loop

End Sub

文件长度不得超过32个字符。