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

Remove debug code

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

7
vba_code_kukan_detail_master.txt
View File

@@ -399,13 +399,6 @@ Sub ExportMasterDetailData()
For r = 7 To lastDataRow
If Len(Trim(ws.Cells(r, 3).Value & "")) > 0 Then
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
csvContent = csvContent & CleanCSVField(ws.Cells(r, 3).Value)
' CSV col2-11 -> G-P column