ADO で Excel

  テキストファイルへ出力



  
<?
# **********************************************************
# オブジェクト作成
# **********************************************************
$Cn = new COM( "ADODB.Connection" );
$Rs = new COM( "ADODB.Recordset" );

# **********************************************************
# ターゲット Excel
# **********************************************************
$Target = "C:\\TEMP\\社員マスタ.xls";

# **********************************************************
# 接続文字列
# **********************************************************
$ConnectionString =
	"Provider=Microsoft.Jet.OLEDB.4.0;" .
	"Data Source=$Target;" .
	"Extended Properties=\"Excel 8.0;\"";

# **********************************************************
# 接続
# **********************************************************
$Cn->Open( $ConnectionString );

# **********************************************************
# レコードセット取得
# **********************************************************
$Query = "select * from [社員マスタ]";
$Rs->Open( $Query, $Cn );
if ( $Rs->State == 0 ) {
	exit( "レコードセットを取得できませんでした" );
}

# **********************************************************
# 出力ファイルオープン
# **********************************************************
$Csv = fopen( "社員マスタ.csv", "w" );

# **********************************************************
# タイトル出力
# **********************************************************
$Buffer = "";
for( $i = 0; $i < $Rs->Fields->Count; $i++ ) {
	if ( $Buffer != "" ) {
		$Buffer .= ",";
	}
	$Buffer .= $Rs->Fields[$i]->Name;
}
fputs( $Csv, "$Buffer\n" );

# **********************************************************
# データ出力
# **********************************************************
while ( !($Rs->EOF) ) {
	$Buffer = "";
	for( $i = 0; $i < $Rs->Fields->Count; $i++ ) {
		if ( $Buffer != "" ) {
			$Buffer .= ",";
		}
		$Buffer .= $Rs->Fields[$i]->Value;
	}
	fputs( $Csv, "$Buffer\n" );
	$Rs->MoveNext();
}

# **********************************************************
# ファイルクローズ
# **********************************************************
fclose( $Csv );

# **********************************************************
# レコードセットクローズ
# **********************************************************
$Rs->Close();

# **********************************************************
# 接続解除
# **********************************************************
$Cn->Close();

# **********************************************************
# オブジェクト解放
# **********************************************************
$Rs->Release();
$Rs = null; 
$Cn->Release();
$Cn = null; 
?>
  














   SQLの窓    create:2005/10/09  update:2018/02/08   管理者用(要ログイン)





フリーフォントツール

SQLの窓ツール

SQLの窓フリーソフト

写真素材

一般ツールリンク

SQLの窓

フリーソフト