Excelで遊んでました。ワークシートの書き出し。

Sub テキストファイルへ書込()
    Dim myfileno As Integer
    Dim i As Long
    Dim mylastrow As Long
    
    Worksheets("生産者").Activate　　　'activeでなくてactivateです
    mylastrow = Range("a1").CurrentRegion.Rows.Count　’カラム数もこんな感じで
    myfileno = FreeFile
    Open "d:\data\testdata.txt" For Append As #myfileno
    
    For i = 1 To mylastrow
        Write #myfileno, Cells(i, 1), Cells(i, 2), Cells(i, 3), Cells(i, 4)
    Next
    Close #myfileno
    
End Sub
詳しくは見てませんが、ネタ本はできる大辞典です。モードがAppendなので追加で

書き出されるでしょう。ファイルが存在しないとエラーになるかも知れません。

又この場合は4項目の書き出しですが、何項目でも良いようにしておけば更に良いでしょう。

ExcelのVBAにはVBの様なレコードタイプを宣言することができるんだろうか?と、調べて

見たんですが、無いようです。必要ないのかも知れません。

ここから暇に任せて、道楽を始めます。(^o^)