Запуск файла CSV и запись данных - VB
Формулировка задачи:
Ребята подскажите пожалуйста, что я не так делаю с этим файлом:
Пробовал так открывать файл открывает а вот передать в комбо ни как:
Решение задачи: «Запуск файла CSV и запись данных»
textual
Листинг программы
Option Explicit Private Sub Command1_Click() Dim ff As Integer, z As String, i As Integer ff = FreeFile Open App.Path & "\BD\Сотрудники.CSV" For Input As #ff z = Input(LOF(ff), #ff) 'считывам весь файл Close #ff MsgBox GetValue(z, 1, 1) ' значение в первой строке и первом столбце End Sub Function GetValue(st As String, row As Integer, column As Integer) As String On Error Resume Next GetValue = Split(Split(st, vbCrLf)(row - 1), ";")(column - 1) End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д