☰

建立以包含其他儲存格資料的儲存格命名的文字文件

tag-icon • tag-icon macos microsoft-excel macros
建立以包含其他儲存格資料的儲存格命名的文字文件

我嘗試在使用 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:A 是我需要的檔名。 B:2是我在文字檔案中需要的內容。

    因此，A2 - “repair-video-game-Glassboro-NJ-08028.txt”是檔案名，B2 是檔案中的內容。接下來，A3 是檔案名，B3 是檔案內容，等等。的。

  2. 這張表永遠不會改變。有沒有辦法建立 Excel 巨集以始終轉到此工作表，而不必用滑鼠選擇它來識別起點？

第二個目標

  1. 我希望使用以下數據來建立文字檔案。 A:1 是我需要的檔名。 B:B是我想要的文件內容。

    因此，A2 - 是檔案名稱“geo-sitemap.xml”，B:B 是檔案中的內容（忽略照片中的 .xml 檔案副檔名）。一旦內容單元格讀取單元格“B16”中的內容（長度會有所不同），文件創建應該停止，如果沒有，那麼我可以調整具有需要內容的單元格（您在圖像中看到的公式化內容預設為500 行） 。

  2. 這張表永遠不會改變。有沒有辦法建立 Excel 巨集以始終轉到此工作表，而不必用滑鼠選擇它來識別起點？

我可以提供由 Excel 公式填充的儲存格中的內容，這些公式不會不包含在 .txt 檔案中。如果不可能也沒關係。我可以刪除未填入的額外儲存格（基於資料表）。

如果您需要更多額外資訊或需要澄清，請告訴我，我很樂意提供。

答案1

這是我正在使用的程式碼。它被設定為從任何頁面運行（就像您不必在該頁面上一樣，在程式碼中設定頁面）

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 個字元。

相關內容