マクロ 公開データ (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