-
GAMEPOD.hu
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
-
Fferi50
őstag
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.
-
Delila_1
Topikgazda
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 SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Védje meg számítógépét a vírusoktól!