更新 vba_code_kukan_detail_master.txt

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