質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
86.12%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

解決済

VBA CSVデータ(UTF-8(BOM)付き)の読込

km0815.lj
km0815.lj

総合スコア9

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

2回答

0リアクション

1クリップ

423閲覧

投稿2022/10/06 05:22

編集2022/10/06 05:24

前提

Excel VBA で CSVデータを読み込みExcelシートに出力する

CSVデータがSJISの場合、下記のソースで文字化けせずに読込ができますが
UTF-8(BOM有)の場合、文字化けします。

実現したいこと

ソースコードを大きく変更することなく、文字化けさせないようにするには
どのようにすればよいのでしょうか。

また、CSVデータ件数が多く、1件づつ読み込む方法では時間がかかるため、
以下の読込方法をできれば使いたい。

VBA

Open "C:\temp\data2.csv" For Binary As #1 ReDim buf(1 To LOF(1)) Get #1, , buf Close #1

CSVデータ
・ヘッダーはダブルコーテーションなし
・データはダブルコーテーションあり、カラム内に改行コードあり
・行末はカンマで終わっている

(例)data2.csv

列1,列2,列3,
"0001","漢字1-1 漢字1-2","AAAAA",
"0002","漢字2ー1 
漢字2ー2","BBBBBBBBB",
"0003","漢字3ー1 漢字3ー2","漢字漢字",

該当のソースコード

VBA

'CSVデータがSJisではOKのコード Public Sub test() Dim buf() As Byte Dim tmp As Variant, tmp2 As Variant Dim i As Long Dim t1 As String Dim t2 As String Open "C:\temp\data2.csv" For Binary As #1 ReDim buf(1 To LOF(1)) Get #1, , buf Close #1 t1 = "," & vbCrLf t2 = """," & vbCrLf buf2 = StrConv(buf, vbUnicode) buf3 = Replace(buf2, t1, t2) tmp = Split(buf3 & "," & vbCrLf, """," & vbCrLf) For i = 0 To UBound(tmp) - 1 If i > 0 Then tmp2 = Split(tmp(i), """,""") Else tmp2 = Split(tmp(i), ",") End If tmp2(0) = Replace(tmp2(0), """", "") tmp2(UBound(tmp2)) = Replace(tmp2(UBound(tmp2)), """", "") Cells(i + 1, 1).Resize(1, UBound(tmp2) + 1).Value = tmp2 Next i End Sub

試したこと

補足情報(FW/ツールのバージョンなど)

Excle2016

以下のような質問にはリアクションをつけましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

リアクションが多い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

下記のような質問は推奨されていません。

  • 間違っている
  • 質問になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

適切な質問に修正を依頼しましょう。

まだ回答がついていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
86.12%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。