Ú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

• #33108 Juditta_56 aktív tag róland #33106

  Új Válasz 2016-11-01 19:39:01 #33108

  Ú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

  

  Juditta_56

  aktív tag

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

  Szia!
  Én is most kínlódtam meg ezzel. Kérdés, hogy Neked milyen formátum kell.
  Ha "simán" mentettem a munkalapot csv-ként, az nekem pontosvesszővel elválasztott adatokat eredményezett. Úgyhogy összefűztem a szükséges adatokat úgy, hogy közé vesszőket tettem (a fejlécet is!), ezt átraktam egy üres munkalapra és azt mentettem csv-ként. Így szabályos, vesszővel elválasztott mezőket kaptam. (Konkrétan a guglinaptárba akartam importálni a beosztásomat.)
  

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