セルに設定した値をシェルスクリプトなどのファイルとして出力

作業をする際にエクセルのリストをもとにシェルスクリプトを作成することが増えたため作成してみました。
以下はサンプルなので、1文字列+1エリア分しかありません。

※このままだと改行コードがLFで出力されるので、注意してください。
CR+LFにしたい場合は別の記述を追加する必要があります。

Sub makeShell（）
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheet（1）

Dim datFile As String

datFile As String
Open datFile For Output As #1
Dim i As Long

‘エリア１
i = 0

‘エリア１開始まで　固定文字列を設定するなど
Print #1, ws.Cells（4,1）

‘エリア１
Do While ws.Cells（i ＋ 18,2）.Value<>””

Print #1,ws.Cells（i ＋ 18,13）.Value
i = i +i
Loop

‘以下必要に応じて記述を追加
‘たとえばエリア2として（i ＋ 18,14）を対象にするなど

Close #1

MsgBox “XXXX 作成完了”
End Sub