文字コードを指定してCSV出力! エクセルマクロ VBA Shift-JIS UTF-8

サイボウズOffice10ユーザーはCSVアップロード機能を使用するかと思います

Shift-JISの文字コードのCSVでは文字化けが起こることを会社の社内の環境(Windowsユーザー)で確認しています

 

WorkbookオブジェクトのSaveasメソッドでは文字コードが指定できません。

 

文字コードの指定はFilesystemObjectが必須になります

またライブラリの参照から Microsoft Scripting Runtimeをチェックしてください

 

文字コードにするには FSOのCreateTextFileメソッドのプロパティ・Unicode で指定できます

Unicode:=True ⇒ UTF-8

Unicode:=False ⇒ 端末の既定文字コード(ほぼShift-JIS)

省略したらFalseとみなし、自動的にShift-JISとなります

 

サンプルコードは下記です

 

これでいちいち文字コードを変更する手間がなくなりますね♪

ではでは!

コメント

タイトルとURLをコピーしました