-
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
-
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
- Adobe Előfizetések - Adobe Creative Cloud All Apps, Photography Plan - 12 Hónap
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- 10 Darab PC Játék (Bontatlanul!) Egyben 6990Ft.-ért Foxal!!!
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."