Insert date din txt in celule

[halfbebi]

Buna ziua,
am exemplul din atasament, este posibil ca:
fisierul txt sa fie mai sumar, de ex fara "A"Mere sa fie simplu "Mere"
sa nu tina cont de nr de litere/cifre folosit "Range("A1").Value = Mid(text, A + 1, 4)" -- 4

Multumesc anticipat
Stima

txt:
AMere
BPere
CGutui

[TudyBTH]

Buna,
Din cate am inteles doriti copierea fiecarei linii din fisierul text in cate o celula din coloana A.
Aveti mai jos codul iar in atasament fisierul text aferent (arhivat ".rar") cu forma:

Mere
Pere
Gutui

Cod: Selectaţi tot

Sub GetList()
    Dim ws As Worksheet
    Dim i As Long
    Dim fileName As String, txtLine As String
    Dim nFile As Integer
    
    
    fileName = Application.GetOpenFilename("Fisiere text (*.txt),*.txt", , "Selectati fisierul")
    If fileName = "False" Then Exit Sub
    
    nFile = FreeFile
    Set ws = ActiveSheet
    ws.Cells.Clear
    
    Open fileName For Input As #nFile
    Do Until EOF(nFile)
        Line Input #nFile, txtLine
        i = i + 1
        ws.Cells(i, 1).Value = txtLine
    Loop
    Close #nFile
    Set ws = Nothing
    
End Sub

[halfbebi]

@ TudyBTH
Multumesc mult, este mai mult decat perfect
Stima

[halfbebi]

Buna ziua,
ca o continuare la ceea ce am inceput,
este posibil ca in fisierul txt, sa nu tina cont de nr de caractere - adica sa scriu si mai mult si mai putin

Numesa1:numefisierA - sa nu tina cont de lungimea randului sa fie dinamic 1
marime1:156456820A - sa nu tina cont de lungimea randului sa fie dinamic 2
Numesa2:numefisierB - sa nu tina cont de lungimea randului sa fie dinamic 3
marime2:156470353B - sa nu tina cont de lungimea randului sa fie dinamic 4

Range("A1").Value = Mid(text, Numesa1 + 8, 44) - 44 sa fie dinamic
Range("A2").Value = Mid(text, marime1 + 8, 10) - idem
Range("A3").Value = Mid(text, Numesa2 + 8, 38) - idem
Range("A4").Value = Mid(text, marime2 + 8, 10) - idem

Va rog, multumesc anticipat,
Stima