S
Steph
Hi. I am doing an EDI transfer into our ERP system, and need to convert a
sheet in excel into a text file. I have code to take the sheet, copy it to
another workbook, and save the file as a .txt. This works fine. When I run
the EDI transfer, I get an error. (I don't expect any of you to know why
I'm getting the error!) But here's where it gets strange - If I manually
highlight and copy the contents of the excel sheet, and past that into
notepad, and then run that .txt file through the EDI, it works!
Upon initial inspection of the 2 files, they look identical! Does anyone
know why 1 file saved as a .txt would be different in any way than a
manually created .txt file?
Overriding question - how can I automate manually copying the contents of
the excel sheet and pasting into notepad? The code I have is below.
Thanks!
Sub Saveastxt()
Dim sh As Worksheet
Set sh = Worksheets("EDI Data")
sh.Copy
'Need this line because sh.Copy truncates each cell at 256 characters
sh.Range("A1:A" & sh.Range("A65536").End(xlUp).Row).Copy
Destination:=ActiveWorkbook.Worksheets("EDI Data").Range("A1")
ActiveWorkbook.SaveAs Filename:="\\server\folder\Data" & Format(Now,
"mdyyhmm") & ".txt" ', FileFormat:=xlText
ActiveWorkbook.Close SaveChanges:=False
End Sub
sheet in excel into a text file. I have code to take the sheet, copy it to
another workbook, and save the file as a .txt. This works fine. When I run
the EDI transfer, I get an error. (I don't expect any of you to know why
I'm getting the error!) But here's where it gets strange - If I manually
highlight and copy the contents of the excel sheet, and past that into
notepad, and then run that .txt file through the EDI, it works!
Upon initial inspection of the 2 files, they look identical! Does anyone
know why 1 file saved as a .txt would be different in any way than a
manually created .txt file?
Overriding question - how can I automate manually copying the contents of
the excel sheet and pasting into notepad? The code I have is below.
Thanks!
Sub Saveastxt()
Dim sh As Worksheet
Set sh = Worksheets("EDI Data")
sh.Copy
'Need this line because sh.Copy truncates each cell at 256 characters
sh.Range("A1:A" & sh.Range("A65536").End(xlUp).Row).Copy
Destination:=ActiveWorkbook.Worksheets("EDI Data").Range("A1")
ActiveWorkbook.SaveAs Filename:="\\server\folder\Data" & Format(Now,
"mdyyhmm") & ".txt" ', FileFormat:=xlText
ActiveWorkbook.Close SaveChanges:=False
End Sub