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

• #33158 b3n1t0 csendes tag róland #33106

  Új Válasz 2016-11-07 14:35:37 #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