Hirdetés

  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

    LOGOUT

    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

  • #13855 thee csendes tag
    Új Válasz #13855
    Ú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

    thee

    csendes tag

    Lenne nekem is egy kérdésem:

    A megnyitott fájl nevét ("InpFileName") csak elérési úttal együtt szerepelt a változóban, csak a fájl nevét így tudtam kibányászni:

    Set fs = CreateObject("Scripting.FileSystemObject")
    InpFileName = Application.GetOpenFilename("NASTRAN result file(*.pch), *.pch")
    ' Nev kiiratas a munkalapra

    CounterFN = 0

    Pch1OpenFileName = InpFileName
    LenPch1OpenFileName = Len(Pch1OpenFileName)
    Do While CounterFN < LenPch1OpenFileName
    Pch1OpenFileNameReverseT = Mid(Pch1OpenFileName, LenPch1OpenFileName - CounterFN, 1)
    Pch1OpenFileNameReverse = Pch1OpenFileNameReverse & Pch1OpenFileNameReverseT
    CounterFN = CounterFN + 1
    Loop
    Pch1FileName = Mid(Pch1OpenFileName, LenPch1OpenFileName - Application.WorksheetFunction.Find("\", Pch1OpenFileNameReverse) + 2, Application.WorksheetFunction.Find("\", Pch1OpenFileNameReverse) - 1)
    Range("a4").Value = Pch1FileName

    Tudnátok erre egy elegánsabb megoldást ajánlani?

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