Use:
Code:
Sub M_snb()
sn = Application.Range("BANKA")
For j = 1 To UBound(sn)
c01 = c01 & vbCrLf & Join(Application.Index(sn, j), ",")
Next
CreateObject("scripting.filesystemobject").createtextfile("c:\TTND\PicassoPg.csv").write Mid(c01, 3)
End Sub
If the range contains errors (resulting from formulae) it will error out.
In that case you have to remove those first.
You can use a querytable in the second workbook to keep it updated with the csv file.
I think you can have a querytable connection directly to the workbook in the other Excel instance.
Bookmarks