S
srinivasug
Hi,
I am using the following code i.e ConvertPC_8ToANSI() to open a DOS
based text file and then save it to WINDOWS ANSI text file. My text
file contains long records of more than 300 characters, following
procedure loads the entire record into one cell and while saving it, it
saves only 240 characters and truncates the remaining characters of the
cell (record). Any body knows how to come out of this max. character
limitation.
Thanks in advance!
----------------------------------
Sub ConvertPC_8ToANSI()
Dim sFil As String
Dim tmpWorkBook As Workbook
sFil = "Z:\SOS-DB Pre Migration\PC_8_TO_ANSI\tsf\sample.tsf"
Workbooks.OpenText Filename:=sFil, DataType:=xlDelimited,
textqualifier:=xlTextQualifierNone, Origin:=xlMSDOS
Set tmpWorkBook = ActiveWorkbook
tmpWorkBook.SaveAs Filename:=Left(sFil, Len(sFil) - 4) & "_3.tsf",
FileFormat:=xlTextPrinter
tmpWorkBook.Close
End Sub
I am using the following code i.e ConvertPC_8ToANSI() to open a DOS
based text file and then save it to WINDOWS ANSI text file. My text
file contains long records of more than 300 characters, following
procedure loads the entire record into one cell and while saving it, it
saves only 240 characters and truncates the remaining characters of the
cell (record). Any body knows how to come out of this max. character
limitation.
Thanks in advance!
----------------------------------
Sub ConvertPC_8ToANSI()
Dim sFil As String
Dim tmpWorkBook As Workbook
sFil = "Z:\SOS-DB Pre Migration\PC_8_TO_ANSI\tsf\sample.tsf"
Workbooks.OpenText Filename:=sFil, DataType:=xlDelimited,
textqualifier:=xlTextQualifierNone, Origin:=xlMSDOS
Set tmpWorkBook = ActiveWorkbook
tmpWorkBook.SaveAs Filename:=Left(sFil, Len(sFil) - 4) & "_3.tsf",
FileFormat:=xlTextPrinter
tmpWorkBook.Close
End Sub