updsv7/vba
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

更新 vba_code_kukan_detail_master.txt

Browse Source
This commit is contained in:
simple321vip
2026-04-13 02:51:09 +00:00
parent f8f2598d17
commit 68a65eecfb
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
vba_code_kukan_detail_master.txt
View File

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