2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
IT café témák
PROHARDVER! témák
Mobilarena témák
GAMEPOD.hu témák
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    IT café

    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

  • #22648 slashing senior tag
    Új Válasz #22648
    Ú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

    slashing

    senior tag

    Mivel lehetne helyettesíteni az msgbox-ot? Nem elég az 1024 karakter amit kiíratnék vele. A lenti törlős makró megszámolja hányszor futott le és kiírja hogy hány fájl lett törölve majd kiírja egymás alá a fájlneveket.

    Sub DeletTxtFiles()
    Dim Filename, Pathname As String, ASN As String, loopcount As Integer, nevek As String
    ASN = ActiveSheet.Name
    Pathname = "q:\SPC 2010-2012-2013\Bosch\TXT\" & ASN & "\"
    Filename = Dir(Pathname & "*.txt")
    loopcount = 0
    Do While Filename <> ""
    nevek = Pathname & Filename & vbNewLine + nevek
    loopcount = loopcount + 1
    Application.StatusBar = " Türelem, dolgozom! A használatban lévő fájl: " & Pathname & Filename
    Kill Pathname & Filename
    Filename = Dir
    Loop

    MsgBox " Az alábbi " & loopcount & " fájl törlésre került:" & vbNewLine & vbNewLine & nevek
    Application.StatusBar = ""
    End Sub

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