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

• #45668 Fferi50 Topikgazda KBaj #45663

  Új Válasz 2021-01-06 12:57:32 #45668

  Ú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 KBaj #45663 üzenetére

  Szia!
  Tapasztalatom alapján a következőt javaslom:
  Nem kell az adatokat az A oszlopba összevonni! A makróval csv-be mentés "magától" megcsinálja a vesszővel tagolt fájlt. Így megspórolhatod az összemásolás műveletét.
  Elég, ha az adott munkalapot átmásolod egy új munkafüzetbe és mented az újat, majd bezárod.
  A rákérdezést az
  Application.DisplayAlerts=False
  sorral tudod elkerülni.
  Vagyis nagyjából így nézhetne ki a makród ezen része:
  Sheets("… Adatsor").Copy '(az eredeti, oszlopokban adatot tartalmazó munkalap másolása új munkafüzetbe - ezután ez a munkafüzet lesz az aktív.
Application.DisplayAlerts=False
ActiveWorkbook.SaveAs Filename:= _
"C:\...\Vesszővel tagolt" & sz & Cikl & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=False
ActiveWorkbook.Close False ' további mentés nélkül bezárjuk az új munkafüzetet, ismét az eredeti lesz aktív
Application.DisplayAlerts=True ' ha a figyelmeztetéseket látni szeretnéd

  Üdv.
  Ps. persze a mentéshez szükséges változóknak értéket kell adnod itt is előzetesen.

• #45667 Pakliman tag KBaj #45663

  Új Válasz 2021-01-06 12:36:53 #45667

  Ú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

  

  Pakliman

  tag

  válasz KBaj #45663 üzenetére

  Szia!

  Csak a kérdés elkerülésére van tippem (a CSV-vel nem foglalkoztam):

  sFileName = "C:\...\Vesszővel tagolt" & sz & Cikl & ".csv"
If Dir(sFileName) <> "" Then Kill sFileName

ActiveWorkbook.SaveAs Filename:=sFileName, FileFormat:=xlCSVUTF8, CreateBackup:=False

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