Вставить данные из файла в excel - VB

Формулировка задачи:

mne nuzhna shtobi excel s4itival vse I vstavljal eto v kollonu A vot kod kak popravitj?

Private Sub CommandButton1_Click()
Open "C:/Users/temp/Desktop/1.txt" For Input As #1
Do While Not EOF(1)
i = 1
Line Input #1, stvar
If Left(stvar, 1) = UCase(Left(stvar, 1)) Then
Cells(i, 1) = stvar
Do While Not EOF(1)
i = 1 + 1
Line Input #1, stvar
If Left(stvar, 1) = LCase(Left(stvar, 1)) Then
Cells(i, 1) = stvar
End If
Loop
End If
Loop
Close #1
End Sub

Решение задачи: «Вставить данные из файла в excel»

textual
                            Листинг программы 
                        

                            Private Sub CommandButton1_Click()
    Open "C:/Users/temp/Desktop/1.txt" For Input As #1
          Do While Not EOF(1)
                Line Input #1, stvar
                If Left(stvar, 1) = LCase(Left(stvar, 1)) Then
                     i = i + 1
                    Cells(i, 1) = stvar
                End If
          Loop
    Close #1
End Sub
                        

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

10 голосов , оценка 4.1 из 5

Похожие ответы