Új hozzászólás Aktív témák

• #38299 Pakliman tag Peddy789 #38297

  Új Válasz 2018-06-11 08:58:53 #38299

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Pakliman

  tag

  válasz Peddy789 #38297 üzenetére

  Üdv!

  Valami ilyesmi módon IS lehet:

  Public Sub Kitölt()
Dim sor1 As Long
Dim sor2 As Long
Dim sor3 As Long

Dim sFile As String
Dim FF As Long

Dim temp

Set ws1 = ThisWorkbook.Worksheets(1)
Set ws2 = ThisWorkbook.Worksheets(2)
Set ws3 = ThisWorkbook.Worksheets(3)

sFile = "c:\A szövegfálj.txt"
FF = FreeFile
Open sFile For Input Access Read Shared As #FF
Do While Not EOF(FF)
Line Input #FF, temp
Select Case Left(temp, 3)
Case "MB1": sor1 = sor1 + 1: ws1.Cells(sor1, 1) = temp
Case "MB2": sor2 = sor2 + 1: ws2.Cells(sor2, 1) = temp
Case "MB3": sor3 = sor3 + 1: ws3.Cells(sor3, 1) = temp
End Select
Loop
Close #FF

End Sub

  Természetesen ez egy elnagyolt kód, lehet még rajta finomítani bőven

Új hozzászólás Aktív témák