Merge ReadCSVFileWithUtf8 into ReadCSVFile with charset parameter

2026-04-13 19:02:04 +09:00
parent c482518135
commit 35bdc1479b
2 changed files with 23 additions and 1 deletions
--- a/vba_code_kotsu_master.bas
+++ b/vba_code_kotsu_master.bas
@@ -19,7 +19,7 @@ Sub Z1_ImportMasterDetailData()
    If filePath = "" Then Exit Sub
    
    ' Step 2: Read CSV
-    lines = ReadCSVFileWithUtf8(filePath)
+    lines = ReadCSVFile(filePath, "utf-8")
    
    ' Step 3: Validate column count
    If Not ValidateCSVColumnCount(lines, 7) Then Exit Sub