From 692818f837dfbecdebbd28194a690a2404406e39 Mon Sep 17 00:00:00 2001 From: updsv7 Date: Mon, 13 Apr 2026 14:38:15 +0900 Subject: [PATCH] Revert "Change CSV export to UTF-8 without conversion" This reverts commit a20da252e0935305b363cb5e6cbdcded3cfd6795. --- vba_code_kukan_detail_master.txt | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt index 50b3238..89f8d17 100644 --- a/vba_code_kukan_detail_master.txt +++ b/vba_code_kukan_detail_master.txt @@ -386,7 +386,7 @@ Sub ExportMasterDetailData() savePath = savePath & ".csv" End If - ' Use constant for header (write as UTF-8 without conversion) + ' Use constant for header Dim csvContent As String csvContent = CSV_HEADER & vbCrLf @@ -394,7 +394,9 @@ Sub ExportMasterDetailData() Dim r As Long For r = 7 To lastDataRow If Trim(ws.Cells(r, 3).Value) <> "" Then + ' CSV col1 -> C column csvContent = csvContent & CleanCSVField(ws.Cells(r, 3).Value) + ' CSV col2-11 -> G-P column For j = 7 To 16 csvContent = csvContent & "," & CleanCSVField(ws.Cells(r, j).Value) Next j @@ -402,14 +404,14 @@ Sub ExportMasterDetailData() End If Next r - ' Write file as UTF-8 (no charset conversion) + ' Write file Dim stream As Object Set stream = CreateObject("ADODB.Stream") stream.Type = 2 - stream.Charset = "utf-8" + stream.Charset = "shift_jis" stream.Open stream.WriteText csvContent, 1 - stream.SaveToFile savePath, -1 + stream.SaveToFile savePath, 2 stream.Close MsgBox "CSV export completed.", vbInformation