マクロ 公開データ (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>
すみません。エクセル初心者です。 このマクロをどのようにしてエクセル2000にコピーするのでしょうか? ご指導ください。
Subject: [1067] Re: Re: アドレス帳をCSV形式に変換するマクロ Date: Mon, 23 Sep 2002 06:43:48 +0900 From: ころんぼ <>
とりあえず、ここは、bbxのみを投稿する掲示板なので、メインの掲示板 の方に返信しておきますね。 サトウさん([1065] re1:Re: アドレス帳をCSV形式に変換するマクロ)wrote: > すみません。エクセル初心者です。 > このマクロをどのようにしてエクセル2000にコピーするのでしょうか? > ご指導ください。