Importing a csv File to a range

[snb]

writing:

Sub M_snb()
   sn=Application.Range("BANKA")

   for j=1 to ubound(sn)   
     c01=c01 & vbcrlf & join(WorksheetFunction.Transpose(application.index(sn,j))), ",")
   next

   createobject("scripting.filesystemobject").createtextfile("c:\TTND\PicassoPg.csv").write mid(c01,3)
End Sub

reading:

Sub M_snb()
   sn=split(createobject("scripting.filesystemobject").opentextfile("c:\TTND\PicassoPg.csv").readall,vbcrlf)
   
   for j=1 to Application.Range("BANKA").rows.count
     application.Range("BANKA").rows(j)=split(sn(j-1),",")
   next
End Sub