From 68a65eecfb65722a81c6867ba9a67ecf5ca6531e Mon Sep 17 00:00:00 2001
From: simple321vip <635344988@qq.com>
Date: Mon, 13 Apr 2026 02:51:09 +0000
Subject: [PATCH] =?UTF-8?q?=E6=9B=B4=E6=96=B0=20vba=5Fcode=5Fkukan=5Fdetai?=
 =?UTF-8?q?l=5Fmaster.txt?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 vba_code_kukan_detail_master.txt | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt
index ed26d79..b791d6b 100644
--- a/vba_code_kukan_detail_master.txt
+++ b/vba_code_kukan_detail_master.txt
@@ -147,7 +147,7 @@ Sub ImportMasterDetailData()
     lines = Split(textContent, vbCrLf)
     
     If UBound(lines) < 1 Then
-        MsgBox "No data in CSV。", vbExclamation
+        MsgBox "No data in CSV.", vbExclamation
         Exit Sub
     End If
     
@@ -169,7 +169,7 @@ NextCsvLine:
     Next i
     
     If csvData.Count = 0 Then
-        MsgBox "No valid code found。", vbExclamation
+        MsgBox "No valid code found.", vbExclamation
         Exit Sub
     End If
     
@@ -209,7 +209,7 @@ NextCsvLine:
 NextLine:
     Next i
     
-    MsgBox writeRow - 7 & " rows imported。", vbInformation
+    MsgBox writeRow - 7 & " rows imported.", vbInformation
 End Sub
 
 Function CleanCSVField(ByVal field As Variant) As String
@@ -380,7 +380,7 @@ Sub ExportMasterDetailData()
     lastDataRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
     
     If lastDataRow < 7 Then
-        MsgBox "No data rows to output。", vbExclamation
+        MsgBox "No data rows to output.", vbExclamation
         Exit Sub
     End If
     
@@ -432,5 +432,5 @@ Sub ExportMasterDetailData()
     stream.SaveToFile savePath, 2
     stream.Close
     
-    MsgBox "CSV export completed。", vbInformation
+    MsgBox "CSV export completed.", vbInformation
 End Sub
\ No newline at end of file