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

Add debug log for each row

Browse Source
This commit is contained in:
updsv7
2026-04-13 15:13:42 +09:00
parent 0c64a6f5e9
commit 7debd7bbc5
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
vba_code_kukan_detail_master.txt
View File

@@ -399,6 +399,13 @@ Sub ExportMasterDetailData()
For r = 7 To lastDataRow For r = 7 To lastDataRow
If Len(Trim(ws.Cells(r, 3).Value & "")) > 0 Then If Len(Trim(ws.Cells(r, 3).Value & "")) > 0 Then
rowCount = rowCount + 1 rowCount = rowCount + 1
' Debug: show row content
Dim rowData As String
rowData = "Row " & r & ": " & CleanCSVField(ws.Cells(r, 3).Value)
For j = 7 To 16
rowData = rowData & ", " & CleanCSVField(ws.Cells(r, j).Value)
Next j
Debug.Print rowData
' CSV col1 -> C column ' CSV col1 -> C column
csvContent = csvContent & CleanCSVField(ws.Cells(r, 3).Value) csvContent = csvContent & CleanCSVField(ws.Cells(r, 3).Value)
' CSV col2-11 -> G-P column ' CSV col2-11 -> G-P column