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