VBAでUTF-8のファイルを書き出す

目的

VBA(Excelマクロ)を使って、文字コードがUTF-8のテキストファイルを書き出す

サンプルコード

' オブジェクト型変数を宣言する
Dim varMsgStrings As Object

' ADODB ストリームを作成する
Set varMsgStrings = CreateObject("ADODB.Stream")

' 文字コードに UTF-8 をセットする
varMsgStrings.Charset = "UTF-8"

' ADODBストリームをオープンする
varMsgStrings.Open

' 文字列をADODBストリームへ書き込む
varMsgStrings.WriteText "The sound of the Gion Shoja bells" & vbCrLf
varMsgStrings.WriteText "祇園精舎の鐘の声" & vbCrLf


' ADODBストリームをファイルへ書き込む
varMsgStrings.SaveToFile ActiveWorkbook.Path & "\Sample_UTF8.txt", 2

' ADODBストリームをクローズする
varMsgStrings.Close

' 変数を解放する
Set varMsgStrings = Nothing

' オブジェクト型変数を宣言する

Dim varMsgStrings As Object

' ADODB ストリームを作成する

Set varMsgStrings = CreateObject("ADODB.Stream")

' 文字コードに UTF-8 をセットする

varMsgStrings.Charset = "UTF-8"

' ADODBストリームをオープンする

varMsgStrings.Open

' 文字列をADODBストリームへ書き込む

varMsgStrings.WriteText "The sound of the Gion Shoja bells" & vbCrLf

varMsgStrings.WriteText "祇園精舎の鐘の声" & vbCrLf

' ADODBストリームをファイルへ書き込む

varMsgStrings.SaveToFile ActiveWorkbook.Path & "\Sample_UTF8.txt", 2

' ADODBストリームをクローズする

varMsgStrings.Close

' 変数を解放する

Set varMsgStrings = Nothing

注意事項

上記のマクロで作成したテキストファイルの先頭にはBOM(Byte Order Mark)の３バイト(0xEF, 0xBB,0xBF)が挿入される。VisualStudioなど多くのMicrosoft製品が扱うUTF-8のテキストファイルはBOMが付加されるが、Unicodeの規格上はUTF-8のBOMは必須ではない(「BOMあり」と「BOMなし」が存在する）ため、注意すること。

次のように書き分けるときもある

UTF-8 : BOMあり
UTF-8N : BOMなし

Magic Mouse が反応しない

症状

Magic Mouse底面のLEDが2回点滅
Magic Mouseのバッテリー残量あり
Magic Mouseを上下左右に動かしても反応しない
Mac本体とのBluetooth接続が断たれている

解決策

Magic Mouseを１回クリックする

Mountain Lionでsubversionが見つからない

課題

MacOS X Lion (10.7) 以降では、subversion(svn)は(Xcodeと一緒には)インストールされない。

解決策

Xcode Command Line Tools を追加インストールする

Xcode => Preferences => Downloads => Command Line Tools => Install

CFDataGetBytePtr(data)でEXC_BAD_ACCESS例外

症状

CFDataGetBytePtr(data)のアクセスでEXC_BAD_ACCESS例外が発生する。

※iOS5以前では問題は生じない。iOS6で初めて遭遇するトラブル。

回避策

可変長データとしてアクセスする。

回避コード例

CFDataRef data = CGDataProviderCopyData(dataProvider);
CFMutableDataRef inputData = CFDataCreateMutableCopy(0, 0, data);
UInt8* buffer = (UInt8*) CFDataGetMutableBytePtr(inputData);

// --- do something (ex. image processing) ---

CFRelease(inputData);
CFRelease(data);

CFDataRef data = CGDataProviderCopyData(dataProvider);

CFMutableDataRef inputData = CFDataCreateMutableCopy(0, 0, data);

UInt8* buffer = (UInt8*) CFDataGetMutableBytePtr(inputData);

// --- do something (ex. image processing) ---

CFRelease(inputData);

CFRelease(data);

MacOS X 依存コードのdefine定義

無効（未定義）

#ifdef unix
  ...
#endif

#ifdef unix

...

#endif

#ifdef __unix
  ...
#endif

#ifdef __unix

...

#endif

#ifdef __unix__
  ...
#endif

#ifdef __unix__

...

#endif

※ 定義されていないため利用できない

有効（代替案）

#if defined(__APPLE__) && defined(__MACH__)
  #include <TargetConditionals.h>
  #if TARGET_OS_MAC == 1
    ...
  #endif
#endif

#if defined(__APPLE__) && defined(__MACH__)

#include <TargetConditionals.h>

#if TARGET_OS_MAC == 1

...

#endif

※ __APPLE__ && __MACH__ で絞り込んだ後に, TargetConditionals.h をインクルードして, TARGET_IPHONE_SIMULATOR / TARGET_IPHONE / TARGET_OS_MAC のプラットフォームから絞り込む。

MacOS X バックスラッシュ入力方法

⌥ (Option) + ¥

iOSシミュレーターのスクリーンショット撮影方法

ディスプレイ表示イメージ

Xcode 6以降

File => Save Screen Shot / ⌘ (Command) + S でスクリーンショットpngファイルがデスクトップに保存される。

Xcode 5以前

iOSシミュレーターで画面を表示する。
⌘ (Command) + ⌃ (Control) + c で画面をコピーする。
プレビュー.appを起動して、⌘ (Command) + n でペーストする。

実機における『HOMEボタン+電源（スリープ）ボタン』操作のスクリーンショットと同等

シミュレーター全体イメージ

⌘ (Command) + ⇧ (Shift) + 4
Spaceキー

クリックの代わりに『⌥ (Option) + クリック』でウィンドウの影が消える。

シミュレーター全体（含むツールバー）のイメージ画像

crontab

-l: 設定済みタスクリスト表示

-e: タスク編集

-r: 全タスク削除

-u: ユーザースイッチ
(例) $ crontab -e -u root

改行コード変換コマンド

パッケージ名 (Debian) : tofrodos

パッケージ名 (Ubuntu 16.04LTS) : dos2unix

DOS => UNIX

$ fromdos dos.txt

1	$ fromdos dos.txt

$ dos2unix dos.txt

1	$ dos2unix dos.txt

UNIX => DOS

$ todos unix.txt

1	$ todos unix.txt

$ unix2dos unix.txt

1	$ unix2dos unix.txt

構成管理ツール下にあるファイルのアーカイブ

構成管理ツール git, subversion の管理下にあるファイル／フォルダーのアーカイブ方法。

--exclude-csv: .git や .svn などバージョン管理システムが作成したファイル／ディレクトリを除外する。

例

$ tar --exclude-csv cvzf foo.tgz ./foo

1	$ tar --exclude-csv cvzf foo.tgz ./foo

Tech控え帳

私のための備忘録

VBAでUTF-8のファイルを書き出す

目的

サンプルコード

注意事項

Magic Mouse が反応しない

症状

解決策

Mountain Lionでsubversionが見つからない

課題

解決策

CFDataGetBytePtr(data)でEXC_BAD_ACCESS例外

症状

回避策

回避コード例

MacOS X 依存コードのdefine定義

無効（未定義）

有効（代替案）

MacOS X バックスラッシュ入力方法

iOSシミュレーターのスクリーンショット撮影方法

ディスプレイ表示イメージ

Xcode 6以降

Xcode 5以前

シミュレーター全体イメージ

crontab

改行コード変換コマンド

DOS => UNIX

UNIX => DOS

構成管理ツール下にあるファイルのアーカイブ

例