CSVのデータを集計する、エクセルマクロ(VBA)を作ったのですが、日本語WINDOWS7&エクセル2013 だと問題なく動いているのですが、英語版のWINDOWS &エクセル2013だと 下記の処理で文字化けが起きてうまく処理ができないことがあります。
Open infile For Input As #fileNo
Line Input #fileNo, rec
divrec = Split(rec, ",", -1, vbBinaryCompare)
1024行目がの文字が、全角の文字が来ると文字化けになります。
本来 ”あいうえお”
英語版 ”あい・・えお” (うの文字が1024行目がきたばあい)
その為まれに、SPlit処理がうまくいかないことが発生します。
Windowsの言語の形式 の部分を English→Japanese にすれば このエラーは起きないの
ですが、アメリカ人のパソコンでも実行できるマクロを作りたいと考えています。
なにかいい方法はないでしょうか?
No.1ベストアンサー
- 回答日時:
提案としては、今のところ、このようなものが考えられます。
・Excelの"QueryTable" を使う
・Open infile For Input As #fileNo
のスタイルをやめて、FileSystemObject のOpenTextFile で読む。(ReadLine か、ReadAllを使う)
・Open infile For Input As #fileNoではなく、以下の様なバイナリで読んでいく。
Open inFile For Binary Access Read As #fileNo
bufbyte = InputB(LOF(fileNo), #fileNo) ''bufbyte は、byte 配列変数
実際は、試してないので、はっきりしたことは言えません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定のファイルを他のプロセス...
-
【C#/Java?】try-catchでcatch...
-
ListViewから選択中の文字列を取得
-
特定の名前のオートシェイプの...
-
バッチファイルでのエラー処理...
-
フォルダのアクセス権確認について
-
エクセルVBAでロックをかけたい
-
VBAでBook読み込み時の非表示方...
-
EXCEL-VBAでキー入力で処理を分...
-
【C#】Page_Loadさせない方法に...
-
ドリブン??
-
Access プログレスバー 画面...
-
vbaのエラー対応(実行時エラー...
-
エクセル画面のちらつきなくす...
-
Excel VBA セルの名前があるか...
-
どうやってもFor文を抜けてしま...
-
IF文に時間(何時から何時ま...
-
シグナル 6(SIGABRT)とは?
-
複数個のTextBoxでいずれかの内...
-
basp21でメールが2通送信される
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【C#/Java?】try-catchでcatch...
-
IF文に時間(何時から何時ま...
-
vbaのエラー対応(実行時エラー...
-
マクロで、次のコードへ行く前...
-
private subモジュールを他のモ...
-
特定の名前のオートシェイプの...
-
シグナル 6(SIGABRT)とは?
-
Excel VBA セルの名前があるか...
-
特定のファイルを他のプロセス...
-
どうやってもFor文を抜けてしま...
-
VBA For Each 〜 複数条件について
-
ドリブン??
-
VB6にてネットワーク上にある共...
-
【VBA】エラー処理で別プロシー...
-
VBA 複数の行を高速で削除する...
-
【C#】Page_Loadさせない方法に...
-
どう増強すべきか
-
UWSCのTHREADについて
-
エクセル VBAで複数セル選択時...
-
Functionで戻り値を複数返す方法
おすすめ情報