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

• #22671 Fferi50 Topikgazda maugly #22669

  Új Válasz 2014-07-29 12:37:16 #22671

  Ú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

  

  Fferi50

  Topikgazda

  válasz maugly #22669 üzenetére

  Szia!

  Próbáld így: uj=uj & year(cells(sor,oszlop).value) & "-" & right("0" & month(cells(sor,oszlop).value),2) & "-" & right("0" & day(cells(sor,oszlop).value),2)

  Üdv.

• #22668 Delila_1 veterán maugly #22659

  Új Válasz 2014-07-29 11:49:46 #22668

  Ú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

  

  Delila_1

  veterán

  válasz maugly #22659 üzenetére

  Szívesen, Vladek83-nak is.

• #22634 Delila_1 veterán maugly #22630

  Új Válasz 2014-07-28 12:32:37 #22634

  Ú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

  

  Delila_1

  veterán

  válasz maugly #22630 üzenetére

  A két csillagozott sornál a saját útvonaladat, ill. a saját fájlod nevét (amilyen néven menteni akarod) írd be.
  Az uj = uj & Cells(sor, oszlop) & "@" sorban a @ helyére a saját elválasztó karakteredet add meg.

  Sub CSV()
  Dim sor As Long, usor As Long, uj As String
  Dim oszlop As Integer, utvonal As String, FN As String
  
  utvonal = "E:\Adatok\" '*****************
  FN = "MentesNeve.csv" '*****************
  usor = Range("A" & Rows.Count).End(xlUp).Row
  For sor = 1 To usor
  For oszlop = 1 To 6
  uj = uj & Cells(sor, oszlop) & "@"
  Next
  Cells(sor, "A") = Left(uj, Len(uj) - 1)
  uj = ""
  Next
  Columns("B:F").ClearContents
  
  
  Application.DisplayAlerts = False
  ActiveSheet.Copy
  ActiveWorkbook.SaveAs Filename:=utvonal & FN, _
  FileFormat:=xlCSV
  Application.DisplayAlerts = True
  End Sub

• #22632 Fferi50 Topikgazda maugly #22630

  Új Válasz 2014-07-28 12:23:30 #22632

  Ú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

  

  Fferi50

  Topikgazda

  válasz maugly #22630 üzenetére

  Szia!

  Rendben, megnézem, mit tehetek az érdekedben.

  Üdv.

• #22594 Fferi50 Topikgazda maugly #22591

  Új Válasz 2014-07-25 16:52:21 #22594

  Ú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

  

  Fferi50

  Topikgazda

  válasz maugly #22591 üzenetére

  Szia!

  Ha saját magad kreálod a filet, olyan elválasztó karaktert teszel bele, amilyet szeretnél.
  Ez egy kicsit bonyolultabb annál, hogy itt kapásból leírjam, de azért gyorsan megoldható.
  A direkt fájlkezelési eszközöket (open, put,print ) kell használnod.

  Ha felteszel egy mintát, szívesen írok hozzá egy példát.

  Üdv.

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