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は書き込…

Option Explicit Sub createStub() 'num変数の定義Dim num As IntegerDim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim e As IntegerDim f As Integer Dim myMsg As String 'On Error GoTo HandleErr '指定したセルの値を変数に代入す…