テキストファイル書き出し
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