The code, as written, expects the data to be in the same workbook as the macro containing my code. Here is the code modified to work from your current code's location... it will look in "Sheet1" (change as necessary) of the already open workbook named "Workbook B.xlsx" (change to your actual workbooks name) located in the directory that you assigned to the strFolder variable and with the main file name that you assigned to the fname variable.
FF = FreeFile()
Open strFolder & fname & ".properties" & ".txt" For Output As #FF
With Workbooks("[COLOR=#FF0000][B]Workbook B.xlsx[/B][/COLOR]").Sheets("[COLOR=#FF0000][B]Sheet1[/B][/COLOR]")
Print #FF, Join(Application.Transpose(.Range("A1", .Cells(Rows.Count, "A").End(xlUp)).Value), vbNewLine)
End With
Close #FF'Choose file save location
Dim strFolder As String
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.Title = "Select the folder into which the documents will be saved."
If .Show = -1 Then
strFolder = .SelectedItems(1) & "\"
Else
MsgBox "The documents will be saved in the default document file location."
strFolder = ""
End If
End With
'Store file name
Dim fname As String
fname = Worksheets("Export").Cells(9, "B").Value
'Save the file
Dim FF As Long
FF = FreeFile()
Open strFolder & fname & ".properties" & ".txt" For Output As #FF
Print #FF, Join(Application.Transpose(Range("A1", Cells(Rows.Count, "A").End(xlUp)).Value), vbNewLine)
Close #FFCan you send me a copy of that workbook with the full macro in place so I can run/debug it firsthand? I really think that would be easier than for me to keep guessing at possible problems until, perhaps, I got lucky and stumbled over the problem. My email address is...
Sorry for not getting back to you yet... my computer has been having some kind of problem over the last couple of days. When I tried to downloaded your file, Outlook crashed. As it turned out, your file, itself, was not at fault... it was just coincidental that downloading it kicked-off whatever the problem was, but the end result was I lost two of my four Outlook email accounts. I think I got everything straightened out... for now (I still don't know what caused the problem originally, but things appear to finally be stable right now). I have been unable to participate in this forum until now, so I now have some "catching up" to do. I'll be back here later today with (hopefully) a solution to your problem.
Okay, the problem was that I used the Transpose function, which as a 255 character limit for the cells it can process, and you have several cells with well more than 255 characters in it. So, you will need to use the code below, which does not have this limit, in place of the code I gave you earlier...
Dim X As Long, FF As Long, Data As Variant, CombinedText As String
'....
'....
'....
Data = Sheets("export_sheet").Range("A1", Cells(Rows.Count, "A").End(xlUp))
For X = 1 To UBound(Data)
CombinedText = CombinedText & vbNewLine & Data(X, 1)
Next
CombinedText = Mid(CombinedText, Len(vbNewLine) + 1)
FF = FreeFile()
Open strFolder & fname & ".properties" & ".txt" For Output As #FF
Print #FF, CombinedText
Close #FFSub M_snb()
ActiveSheet.UsedRange.Columns(1).Copy
With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.GetFromClipboard
CreateObject("scripting.filesystemobject").createtextfile("G:\OF\example.txt").write .GetText
End With
End Sub
