Hirdetés

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

    PROHARDVER!

    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

  • #33158 b3n1t0 csendes tag róland #33106
    Új Válasz #33158
    Ú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

    b3n1t0

    csendes tag

    válasz róland #33106 üzenetére

    Szia,

    az alábbi makrót bemásolod egy modulba (témaösszefoglaló), a munkalapon kijelölöd azt a tartományt, amit exportálni szeretnél, majd ALT + F8, kiválasztod a Save2Text makrót és indítás. A makróban kommenttel jelölt mentési helyre elkészíti a file-t, lentebb szintén kommentelt résznél tudsz még elválasztó jelet módosítani (vessző, pontosvessző stb...)

    Public Sub Save2Text()

    Dim lineText As String
    Dim myrng As Range, i, j, k

    Filename = "C:\export.csv" 'hova/milyen néven mentse

    Open Filename For Output As #1

    Set myrng = Selection

    For i = 1 To myrng.Rows.Count
    For j = 1 To myrng.Columns.Count
    lineText = IIf(j = 1, "", lineText & ";") & myrng.Cells(i, j) '";" mivel legyenek elválasztva az adatok
    Next j
    Print #1, lineText
    Next i

    Close #1

    End Sub

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