★★★ Access2000VBA・Excel2000VBA独学～UTF-8、UTF-8（BOM付き）のテキストファイルを⇒Shift-JISに変換する関数～

投稿日 : 2023-07-16 最終更新日時 : 2023-12-05 投稿者 : vfaupe7 カテゴリー : 075012＿Excel2000VBATips

★★★ Access2000VBA・Excel2000VBA独学～UTF-8、UTF-8（BOM付き）のテキストファイルを⇒Shift-JISに変換する関数～
　　
※まだ書きかけです。すみません。
※間違ってたらすみません。
※メモ書きなので、自分でも意味不明な箇所も多いです。ごめんなさい。
　　
※関連Web記事
『 ★★★ Access2000VBA・Excel2000VBA独学～Excelに、テキストファイルの内容を、「SQLを使いながら」・かつ・「絞り込みながら読み込む」方法（QueryTableオブジェクトにてODBC接続利用）※ADO＋OLEDBは別です。～』
『 ADOでCSVの読み込み（SQL）』
『 VBAでのCSVの扱い方まとめ（文字コードがどうしても関係する場合とか）』

★UTF-8、UTF-8（BOM付き）のテキストファイルを⇒Shift-JISに変換する関数。
「Call Utf8ToSjis01(ファイルパス)」みたいな記述で使います。
以下の参考ページをもとに、ちゃんと変数宣言をしたかたちに作り替えました。
ただ、
「v_SplitRow = Split(s_AllText, vbCrLf)」
の行で、改行コードをvblfか、vbcrか、などが流動的なので、
ちゃんとした修正が必要かもしれません。

参考Webページ
https://daitaideit.com/vba-utf-8-transform/#mokuzi2

'
'

'##########################################################
'UTF-8、UTF-8（BOM付き）のテキストファイルを⇒Shift-JISに
'変換する関数。
'Call Utf8ToSjis01(ファイルパス)
'https://daitaideit.com/vba-utf-8-transform/#mokuzi2
'##########################################################

Function Utf8ToSjis01(FilePath As String)
   
    Dim s_AllText As String
    Dim v_SplitRow As Variant
    Dim l_Cnt01 As Long
    Dim l_Cnt02 As Long
    
    '変換したいテキストファイルのファイルパスを作成
'    Dim FilePath
'    FilePath = ThisWorkbook.Path & "\TEST.txt"
'    FilePath = "d:\1\bbb_utf8.csv"
    
    'UTF-8もしくはUTF-8（BOM付き）のテキストファイルを読み込み
    With CreateObject("ADODB.Stream")
        .Charset = "UTF-8"
        .Open
        .LoadFromFile FilePath
        s_AllText = .ReadText
        .Close
    End With
    
    
    'UTF-8もしくはUTF-8（BOM付き）以外を読み込んでしまった場合は終了
    For l_Cnt01 = 1 To Len(s_AllText)
        If Mid(s_AllText, l_Cnt01, 1) <> Chr(63) Then
            If Asc(Mid(s_AllText, l_Cnt01, 1)) = 63 Then
                Debug.Print "中止--※ソースが『 UTF-8もしくはUTF-8（BOM付き）』以外だったため。"
'                MsgBox "中止"
                Exit Function
            End If
        End If
    Next
    
    '改行毎にデータを分ける。
    v_SplitRow = Split(s_AllText, vbCrLf)
    
    '↑（※どの改行コードかわからないので、
    '　　　事前に１つのファイルとかで試す。）
    '　　　あるいは、自動チェックのコードを追記する）
'    v_SplitRow = Split(s_AllText, vbCr)
'    v_SplitRow = Split(s_AllText, vbLf)

    
    
    'Shift-JIS形式でテキストファイルへ出力
    Open FilePath For Output As #1
        For l_Cnt02 = 0 To UBound(v_SplitRow)
            Print #1, v_SplitRow(l_Cnt02)
        Next
    Close #1

    Debug.Print "完了"
    
End Function

'
'

'##########################################################

'UTF-8、UTF-8（BOM付き）のテキストファイルを⇒Shift-JISに

'変換する関数。

'Call Utf8ToSjis01(ファイルパス)

'https://daitaideit.com/vba-utf-8-transform/#mokuzi2

'##########################################################

Function Utf8ToSjis01(FilePath As String)

Dim s_AllText As String

Dim v_SplitRow As Variant

Dim l_Cnt01 As Long

Dim l_Cnt02 As Long

'変換したいテキストファイルのファイルパスを作成

' Dim FilePath

' FilePath = ThisWorkbook.Path & "\TEST.txt"

' FilePath = "d:\1\bbb_utf8.csv"

'UTF-8もしくはUTF-8（BOM付き）のテキストファイルを読み込み

With CreateObject("ADODB.Stream")

.Charset = "UTF-8"

.Open

.LoadFromFile FilePath

s_AllText = .ReadText

.Close

End With

'UTF-8もしくはUTF-8（BOM付き）以外を読み込んでしまった場合は終了

For l_Cnt01 = 1 To Len(s_AllText)

If Mid(s_AllText, l_Cnt01, 1) <> Chr(63) Then

If Asc(Mid(s_AllText, l_Cnt01, 1)) = 63 Then

Debug.Print "中止--※ソースが『 UTF-8もしくはUTF-8（BOM付き）』以外だったため。"

' MsgBox "中止"

Exit Function

End If

'改行毎にデータを分ける。

v_SplitRow = Split(s_AllText, vbCrLf)

'↑（※どの改行コードかわからないので、

'　　　事前に１つのファイルとかで試す。）

'　　　あるいは、自動チェックのコードを追記する）

' v_SplitRow = Split(s_AllText, vbCr)

' v_SplitRow = Split(s_AllText, vbLf)

'Shift-JIS形式でテキストファイルへ出力

Open FilePath For Output As #1

For l_Cnt02 = 0 To UBound(v_SplitRow)

Print #1, v_SplitRow(l_Cnt02)

Close #1

Debug.Print "完了"

End Function

投稿タグ: AccessVBA, Accessの独学, ADO／DAO, BOM付き, csv, ExcelSQL, ExcelVBA, Excelの独学, Excel操作の基礎, Excel連携VBA, インポート, パソコンでの自動化, マクロ, 独学, 自動化

MENU

★★★ Access2000VBA・Excel2000VBA独学～UTF-8、UTF-8（BOM付き）のテキストファイルを⇒Shift-JISに変換する関数～

関連記事

最近の投稿

カテゴリー

MENU

★★★ Access2000VBA・Excel2000VBA独学～UTF-8、UTF-8（BOM付き）のテキストファイルを⇒Shift-JISに変換する関数～

関連記事

最近の投稿

カテゴリー

タグ