From 764fe7516d4cbe03114878d8984c0771f16b7009 Mon Sep 17 00:00:00 2001
From: updsv7 <updsv7@guan.onehr>
Date: Mon, 13 Apr 2026 15:33:06 +0900
Subject: [PATCH] Revert "Write header separately to avoid encoding issue"

This reverts commit ff37edcc53342caf33401c06b39948feddc891c6.
---
 vba_code_kukan_detail_master.txt | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt
index 9fd6105..8a6ac79 100644
--- a/vba_code_kukan_detail_master.txt
+++ b/vba_code_kukan_detail_master.txt
@@ -414,21 +414,12 @@ Sub ExportMasterDetailData()
         csvContent = Left(csvContent, Len(csvContent) - 1)
     Loop
     
-    ' Write header using native VBA (no charset conversion)
-    Dim f As Long
-    f = FreeFile
-    Open savePath For Output As #f
-    Print #f, CSV_HEADER;
-    Close #f
-    
-    ' Append data using ADODB.Stream with shift_jis
+    ' Write file
     Dim stream As Object
     Set stream = CreateObject("ADODB.Stream")
     stream.Type = 2
     stream.Charset = "shift_jis"
     stream.Open
-    stream.LoadFromFile savePath
-    stream.Position = stream.Size
     stream.WriteText csvContent, 1
     stream.SaveToFile savePath, 2
     stream.Close