☰

他のセルデータを含むセルにちなんで名付けられたテキストファイルを作成する

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 がファイルの内容、という具合です。内容がセル A16 と B16 (長さは異なります) の内容を読み取ると、ファイルの作成は停止します。停止しない場合は、作成された追加ファイルを削除できます。

  2. このシートは変更されません。開始点を識別するためにマウスで選択するのではなく、常にこのシートに移動するように Excel マクロを設定する方法はありますか?

第二の目的

  1. テキスト ファイルを作成するために、次のデータを使用します。A:1 は、必要なファイル名です。B:B は、ファイルに含めるコンテンツです。

    つまり、A2 はファイル名「geo-sitemap.xml」、B:B はファイル内のコンテンツです (写真の .xml ファイル拡張子は無視してください)。コンテンツ セルがセル「B16」の内容 (長さは異なります) を読み取ると、ファイルの作成は停止します。そうでない場合は、必要なコンテンツを持つセルを調整できます (画像に表示される定式化されたコンテンツは 500 行に事前設定されています)。

  2. このシートは変更されません。開始点を識別するためにマウスで選択するのではなく、常にこのシートに移動するように Excel マクロを設定する方法はありますか?

.txt ファイルに含まれない Excel 数式によって入力されたセルの内容を提供できます。不可能な場合は問題ありません。データシートに基づいて、入力されていない余分なセルを削除できます。

さらに詳しい情報や説明が必要な場合はお知らせください。喜んでご提供いたします。

答え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 文字を超えてはなりません。

関連情報