Запуск файла 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.833 из 5
Похожие ответы