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

• #53793 karlkani aktív tag csongi #53789

  Új Válasz 2025-01-09 18:50:49 #53793

  Ú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

  

  karlkani

  aktív tag

  válasz csongi #53789 üzenetére

  Módosítsd azokat a részeket, melyeket nyomtatott nagybetűkkel írtam.

  Sub csv()

Dim strFullName As String

Application.DisplayAlerts = False

strFullName = "FÁJLNÉV TELJES ELÉRÉSI ÚTTAL" ' pl.: "C:\teszt.csv"

ThisWorkbook.Sheets("MUNKALAP NEVE").Copy ' pl.: "Munka1"
ActiveWorkbook.SaveAs Filename:=strFullName, FileFormat:=xlCSV, CreateBackup:=True
ActiveWorkbook.Close

Application.DisplayAlerts = True

End Sub

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