Merge branch 'main' into stable

Author: bskinn

CHANGELOG.md

@@ -6,6 +6,16 @@ The format is based on [Keep a Changelog](http://keepachangelog.com/en/1.0.0/)
 and this project adheres to [Semantic Versioning](http://semver.org/spec/v2.0.0.html).
 
 
+### [1.2.2] - 2022-03-10
+
+#### Fixed
+
+- Fixed #36, truncation of cell contents to 255 characters by `Format`,
+  by skipping the call to `Format(...)` when `Len(cel.Value)` is greater
+  than 250. (Content lengths this long ***should*** only occur when the
+  cell contains free text for which `Format()` is a no-op anyways.)
+
+
 ### [1.2.1] - 2021-07-28
 
 #### Internal

LICENSE.txt

@@ -1,6 +1,6 @@
 The MIT License (MIT)
 
-Copyright (c) 2016-2021 Brian Skinn
+Copyright (c) 2016-2022 Brian Skinn
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal

README.md

@@ -6,7 +6,7 @@ See the project [wiki](https://github.com/bskinn/excel-csvexporter/wiki) for doc
 
 The binary `.xlam` file for each release can be found on the GitHub page for that release.
 
-Copyright (c) Brian Skinn 2016-2021
+Copyright (c) Brian Skinn 2016-2022
 
 License: The MIT License  
 See [`LICENSE.txt`](https://github.com/bskinn/excel-csvexporter/blob/main/LICENSE.txt) for full license terms.

src/Exporter.bas

@@ -7,7 +7,7 @@ Attribute VB_Name = "Exporter"
 ' #                bskinn@alum.mit.edu
 ' #
 ' # Created:     24 Jan 2016
-' # Copyright:   (c) Brian Skinn 2016-2021
+' # Copyright:   (c) Brian Skinn 2016-2022
 ' # License:     The MIT License; see "LICENSE.txt" for full license terms.
 ' #
 ' #       http://www.github.com/bskinn/excel-csvexporter

src/UFExporter.frm

@@ -22,7 +22,7 @@ Attribute VB_Exposed = False
 ' #                bskinn@alum.mit.edu
 ' #
 ' # Created:     24 Jan 2016
-' # Copyright:   (c) Brian Skinn 2016-2021
+' # Copyright:   (c) Brian Skinn 2016-2022
 ' # License:     The MIT License; see "LICENSE.txt" for full license terms.
 ' #
 ' #       http://www.github.com/bskinn/excel-csvexporter
@@ -583,7 +583,7 @@ Private Sub writeCSV(dataRg As Range, tStrm As TextStream, nFormat As String, _
 
     Dim cel As Range
     Dim idxRow As Long, idxCol As Long
-    Dim workStr As String
+    Dim workStr As String, outText As String
     Dim errNum As Long
 
 
@@ -600,6 +600,12 @@ Private Sub writeCSV(dataRg As Range, tStrm As TextStream, nFormat As String, _
                 If ChBxHiddenCols.Value Or _
                         Not dataRg.Cells(idxRow, idxCol).EntireColumn.Hidden Then
                     Set cel = dataRg.Cells(idxRow, idxCol)
+                    If Len(CStr(cel)) > 250 Then
+                        ' This *HAS* to be free text..... right??
+                        outText = cel.Value
+                    Else
+                        outText = Format(cel.Value, nFormat)
+                    End If
 
                     ' Output value to CSV with surrounding quotes if indicated
                     If ( _
@@ -609,9 +615,9 @@ Private Sub writeCSV(dataRg As Range, tStrm As TextStream, nFormat As String, _
                         ) _
                     ) Then
                         workStr = workStr & TxBxQuoteChar.Value & _
-                                Format(cel.Value, nFormat) & TxBxQuoteChar.Value
+                                outText & TxBxQuoteChar.Value
                     Else
-                        workStr = workStr & Format(dataRg.Cells(idxRow, idxCol).Value, nFormat)
+                        workStr = workStr & outText
                     End If
 
                     workStr = workStr & Separator