テキストファイル書き出し
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
VBA基本
Option Explicit
Sub createStub()
'num変数の定義
Dim num As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
Dim myMsg As String
'On Error GoTo HandleErr
'指定したセルの値を変数に代入する。
num = Worksheets("Sheet1").Cells(2, 4).Value
'ボタン押下すると変数の内容をメッセージボックスに表示させる
MsgBox ("こんばんは世界")
HandleErr:
myMsg = "エラー番号 : " & Err.Number & vbCrLf & _
"エラー内容 : " & Err.Description
'MsgBox myMsg
End Sub
VBA参考サイト01
エクセルVBAは2次元配列を使うと高速かつ便利 | ハウツーIT
Office TANAKA - Excel VBA高速化テクニック[セルを配列に入れる]
<結果これを出力したい?>
array(
"userId" => "user01",
"password" => "garh",
"contentsId" => "c01",
),
array(
"userId" => "user01",
"password" => "garh",
"contentsId" => "c01",
),
array(
"userId" => "user01",
"password" => "garh",
"contentsId" => "c01",
),
);
VBAサンプル02
'Option Explicit
Sub test()
Dim strTest1 As String '文字列を入れる変数を宣言
Dim strTest2 As String
Dim strTest3 As String
strTest1 = Worksheets("table").Cells(2, 2).Value
strTest2 = Worksheets("table").Cells(2, 3).Value
strTest3 = Worksheets("table").Cells(2, 4).Value
Debug.Print strTest1 'strTestの中身をデバッグ用プリント
Debug.Print strTest2 'strTestの中身をデバッグ用プリント
Debug.Print strTest3 'strTestの中身をデバッグ用プリント
End Sub
Dto…かどうかわからんがPHPでオブジェクトの配列化
Dto側privateにしていないがどうなのか?
-----------------------------------------------------------
■Sample.php
-----------------------------------------------------------
<?php
require_once("SampleDto.php");
$user = "ユーザ";
$pass = "パスワード";
$dataObj = new SampleDto($user, $pass);
var_dump($dataObj ); // オブジェクトになっている
$dataArr = get_object_vars($dataObj);
var_dump($dataArr); // 連想配列になっている
foreach($dataArr as $dataArrayKey => $dataArraydata) {
echo "<br />";
echo $dataArrayKey . " : " . $dataArraydata;
echo "<br />";
}
?>
-----------------------------------------------------------
■SampleDto.php
-----------------------------------------------------------
<?php
class SampleDto {
public $user = null;
public $pass = null;
function __construct($user, $pass) {
$this->user = $user;
$this->pass = $pass;
}
function getUser($user) {
return $this->user;
}
function setUser($user) {
$this->user = $user;
return;
}
function getPass() {
return $this->user;
}
function setPass($pass) {
$this->pass = $pass;
return;
}
}
?>
追記
こっちで上手くいってしまった。get_object_vars()をしなくてもオブジェクトをそのまま配列化できるのか????たぶんforeach()で取り出せているだけ???
<?php
require_once("SampleDto.php");
$user = "ユーザ";
$pass = "パスワード";
$dataArr = new SampleDto($user, $pass);
var_dump($dataArr);
/*$dataArr = get_object_vars($dataObj);
var_dump($dataArr);
*/
foreach($dataArr as $dataArrayKey => $dataArraydata) {
echo "<br />";
echo $dataArrayKey . " : " . $dataArraydata;
echo "<br />";
}
?>