Use:
If the range contains errors (resulting from formulae) it will error out.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
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.




Reply With Quote
Bookmarks