マクロ 公開データ (2000.10〜2008.01)

[1064] アドレス帳をCSV形式に変換するマクロ - 相川 祐志 <Yuji@fox.zero.ad.jp> 02/09/11 10:37


Subject: [1064] アドレス帳をCSV形式に変換するマクロ Date: Wed, 11 Sep 2002 10:37:31 +0900 From: 相川 祐志 <Yuji_@_fox.zero.ad.jp>
// アドレス帳をCSV形式に変換するマクロ(順次変換タイプ) // アドレス帳のパスはお使いの環境に合わせて変更してください。 // 各フィールドをダブルクォーテーションで括るようにしました。 // 変換後のファイルはExcel2000でそのまま読める事を確認しました。 // Start of EdMax Macro SaveCurrentFindCondition( ) ; SaveCurrentAutoFormSwitch( ) ; OffAutoForm( ) ; OpenFileMessage( "C:\\EdMax\\Address\\常用アドレス.adr" , FALSE ) ; KeyDown( VK_HOME , 0 ) ; InsertStringEx( 0 , "\"" ) ; FindString( TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, "\r\n" ) ; InsertStringEx( 0, "\",\"" ) ; FindNextPrev( TRUE , "\r\n" ) ; InsertStringEx( 0, "\",\"" ) ; FindNextPrev( TRUE , "\r\n" ) ; InsertStringEx( 0, "\",\r\n" ) ; FindString( TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, "\r\n" ) ; IfStringFound( -9 ) KeyDown( VK_RIGHT , 0 ) ; DeleteString( ) ; SaveMessageToFileAs( "C:\ADR.CSV" ) ; CloseMessage( ) ; RestoreAutoFormSwitch( ) ; RestoreCurrentFindCondition( ) ; // End of EdMax Macro