Insert date din txt in celule
Insert date din txt in celule
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
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
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Re: Insert date din txt in celule
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
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
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Am invatat sa inotam in apa, ca pestii
Am invatat sa zburam in aer, ca pasarile
A ramas doar sa invatam sa traim pe Pamant, ca Oamenii.
Am invatat sa zburam in aer, ca pasarile
A ramas doar sa invatam sa traim pe Pamant, ca Oamenii.
Re: Insert date din txt in celule
@ TudyBTH
Multumesc mult, este mai mult decat perfect
Stima
Multumesc mult, este mai mult decat perfect
Stima
Re: Insert date din txt in celule
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
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
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.