MyTetra Share
Делитесь знаниями!
Запись данных из массива в файл *.csv»
Время создания: 15.04.2021 05:50
Текстовые метки: txt, text, csv
Раздел: !Закладки - VBA - Text
Запись: xintrea/mytetra_db_adgaver_new/master/base/1618455041taend4y5m1/text.html на raw.githubusercontent.com
  1. Dim f As Boolean
  2. Open Filename For Output As #1
  3.     For i = 1 To UBound(r)
  4.         If r(i, 1) <> "" Then
  5.             If f Then Print #1, 'не первая строка
  6.            Print #1, r(i, 1) & ";" & r(i, 2);
  7.             f = True
  8.             Else
  9.             Exit For
  10.         End If
  11.     Next
  12. Close #1



Так же в этом разделе:
 
MyTetra Share v.0.59
Яндекс индекс цитирования