テキストファイル書き出し

Option Explicit

Sub createSimplePHP()

Dim myFile As String
Dim myFileNo As Integer

Worksheets("Sheet1").Activate
myFile = Worksheets("Sheet1").Cells(2, 2).Value & "\Sample.php"
myFileNo = FreeFile

'PHPファイルの出力を宣言 #myFileNoは書き込みファイルを指定したもの。
'ファイルを開いていると書き込みエラー70
Open myFile For Output As #myFileNo

'ファイルへの内容の書き込み TODO

'ファイル操作の終了（保存完了）
Close #myFileNo

MsgBox "「Sample.php」を作成しました。"

End Sub