add ninteiList

This commit is contained in:
updsv7
2026-04-20 17:20:51 +09:00
parent 33f16bb248
commit 72566e3e03
4 changed files with 114 additions and 3 deletions

View File

@@ -82,6 +82,7 @@ Sub WriteCSVFromArray( _
' Escape double quotes: "" represents a single "
field = """" & Replace(field, """", """""") & """"
End If
field = GetCode(field)
fields(j - LBound(data, 2) + 1) = field
Next j