2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #49226 Pakliman tag bozsozso #49224
    Új Válasz #49226
    Ú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 bozsozso #49224 üzenetére

    Szia!

    Egy lehetőség (sok [több ezer!] sor esetén kicsit lassabb):
    Az "utvonal" változóba beépíted az AD oszlopban lévő adatot.
    Pl.: utvonal = "E:\teszt\" & Cells(i, "AD") & "\".
    Ez után APPEND-el megnyitod az abban a mappában lévő "teszt.TXT" fájlt (ha nem létezik még, akkor az APPEND létrehozza!): Open DestFile For Append As #FileNum
    Beírod a megfelelő adatokat az ÉPPEN AKTUÁLIS sorból, majd RÖGTÖN LEZÁROD a fájlt!!!: Close FileNum
    Az Open előtt természetesen mindig FileNum = FreeFile()

    Célszerűbb szerintem inkább a For... Next ciklust használni, hiszen ismered az első és utolsó sor számát is.
    Sub Próba()
    Const sep = ","
    Dim utvonal As String
    Dim b As String
    Dim FileNum As Integer
    Dim DestFile As String
    Dim vLastRow As Long
    Dim ki As String
    Dim i As Long, j As Long

    vLastRow = Range("AD" & Rows.Count).End(xlUp).Row
    For i = 2 To vLastRow
    b = Cells(i, "AD")
    utvonal = "E:\teszt\" & b & "\"
    If Dir(utvonal, vbDirectory) = "" Then MkDir (utvonal)
    DestFile = utvonal & "teszt.TXT"
    FileNum = FreeFile()
    Open DestFile For Append As #FileNum

    ki = "7000" & sep & b & "_" & ". stb... amit akarsz..."
    Print #FileNum, Left(ki, Len(ki) - Len(sep))

    Close FileNum
    Next i
    End Sub

    A megfelelő mappa létezését pedig a DIR paranccsal tudod ellenőrizni. Ha nem létezik, letrehozod.

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