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

[1062] アドレス帳をCSV形式に変換するマクロ - 相川 祐志 <Yuji@fox.zero.ad.jp> 02/09/11 01:12
└[1063] Re: アドレス帳をCSV形式に変換するマクロ - 相川 祐志 <Yuji@fox.zero.ad.jp> 02/09/11 10:36
   └[1065] re1:Re: アドレス帳をCSV形式に変換するマクロ - サトウ <fukuzyusou@estyle.ne.jp> 02/09/23 02:14
      └[1067] Re: Re: アドレス帳をCSV形式に変換するマクロ - ころんぼ <> 02/09/23 06:43

 
 Subject: [1062] アドレス帳をCSV形式に変換するマクロ
    Date: Wed, 11 Sep 2002 01:12:24 +0900
    From: 相川 祐志 <Yuji_＠_fox.zero.ad.jp>

// アドレス帳をCSV形式に変換するマクロ

// アドレス帳のパスはお使いの環境に合わせて変更してください。
// サポート掲示板に投稿した物とは考え方を変えてます。
// 各フィールドをダブルクォーテーションで括るようにしました。
// 変換後のファイルはExcel97でそのまま読める事を確認しました。


// Start of EdMax Macro
    SaveCurrentFindCondition( ) ;
    OpenFileMessage( "C:\\EdMax\\Address\\常用アドレス.adr" , FALSE ) ;

    InsertStringEx( 0 , "\"" ) ;
    KeyDown( VK_HOME , 3 ) ;
    ReplaceString( 2 , FALSE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , "\r\n" , "\",\"" ) ;
    KeyDown( VK_LEFT , 0 ) ;
    DeleteString( ) ;
    KeyDown( VK_HOME , 2 ) ;

    FindString( TRUE , FALSE , TRUE , TRUE , TRUE , TRUE , FALSE , FALSE , FALSE , "," ) ;
    FindNextPrev( TRUE , "," ) ;
    FindNextPrev( TRUE , "," ) ;
    InsertStringEx( 0 , ",\r\n" ) ;
    FindNextPrev( TRUE , "," ) ;
    IfStringFound( -4 ) ;

    SaveMessageToFileAs( "C:\ADR.CSV" ) ;
    CloseMessage( ) ;
    RestoreCurrentFindCondition( ) ;
// End of EdMax Macro

 
 Subject: [1063] Re: アドレス帳をCSV形式に変換するマクロ
    Date: Wed, 11 Sep 2002 10:36:32 +0900
    From: 相川 祐志 <Yuji_＠_fox.zero.ad.jp>

> // アドレス帳をCSV形式に変換するマクロ(一括変換タイプ)
先のマクロでは自動整形を考慮に入れていませんでした。_(._.)_

変換前の部分(2行目)を下記に変更して下さい。
    SaveCurrentFindCondition( ) ;
    SaveCurrentAutoFormSwitch( ) ;
    OffAutoForm( ) ;

変換後の部分(21行目)を下記に変更して下さい。
    RestoreAutoFormSwitch( ) ;
    RestoreCurrentFindCondition( ) ;

 
 Subject: [1065] re1:Re: アドレス帳をCSV形式に変換するマクロ
    Date: Mon, 23 Sep 2002 02:14:26 +0900
    From: サトウ <fukuzyusou_＠_estyle.ne.jp>

すみません。エクセル初心者です。
このマクロをどのようにしてエクセル２０００にコピーするのでしょうか？
ご指導ください。
 
 Subject: [1067] Re: Re: アドレス帳をCSV形式に変換するマクロ
    Date: Mon, 23 Sep 2002 06:43:48 +0900
    From: ころんぼ <>

とりあえず、ここは、bbxのみを投稿する掲示板なので、メインの掲示板
の方に返信しておきますね。

サトウさん([1065] re1:Re: アドレス帳をCSV形式に変換するマクロ)wrote:
> すみません。エクセル初心者です。
> このマクロをどのようにしてエクセル２０００にコピーするのでしょうか？
> ご指導ください。