Revert "Change CSV export to UTF-8 without conversion"

This reverts commit a20da252e0.

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