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

Fix import column mapping and error column

Browse Source
This commit is contained in:
updsv7
2026-04-13 17:45:57 +09:00
parent e7cfa66995
commit 5272fa60dc
1 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
vba_code_kotsu_master.txt
View File

@@ -1,7 +1,7 @@
Sub ClearRowData(ByVal ws As Worksheet, ByVal rowNum As Long) Sub ClearRowData(ByVal ws As Worksheet, ByVal rowNum As Long)
' Clear from D column onwards ' Clear from D column onwards
ws.Range(ws.Cells(rowNum, 4), ws.Cells(rowNum, 15)).ClearContents ws.Range(ws.Cells(rowNum, 4), ws.Cells(rowNum, 15)).ClearContents
ws.Cells(rowNum, 19).ClearContents ' Q column error info ws.Cells(rowNum, 2).ClearContents ' Q column error info
End Sub End Sub
Sub ImportMasterDetailData() Sub ImportMasterDetailData()
@@ -103,9 +103,14 @@ NextCsvLine:
dataArray = Split(lines(i), ",") dataArray = Split(lines(i), ",")
' CSV col 1 -> C column ' CSV col1-7 -> C-I column (3-9)
code = CleanCSVField(CStr(dataArray(0))) wsTarget.Cells(writeRow, 3).Value = CleanCSVField(CStr(dataArray(0)))
wsTarget.Cells(writeRow, 3).Value = code wsTarget.Cells(writeRow, 4).Value = CleanCSVField(CStr(dataArray(1)))
wsTarget.Cells(writeRow, 5).Value = CleanCSVField(CStr(dataArray(2)))
wsTarget.Cells(writeRow, 6).Value = CleanCSVField(CStr(dataArray(3)))
wsTarget.Cells(writeRow, 7).Value = CleanCSVField(CStr(dataArray(4)))
wsTarget.Cells(writeRow, 8).Value = CleanCSVField(CStr(dataArray(5)))
wsTarget.Cells(writeRow, 9).Value = CleanCSVField(CStr(dataArray(6)))
writeRow = writeRow + 1 writeRow = writeRow + 1
NextLine: NextLine: