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

• #45663 KBaj kezdő

  Új Válasz 2021-01-06 11:58:40 #45663

  Ú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

  

  KBaj

  kezdő

  Kedves Mindenki!
  Beleakadtam egy problémába: szeretném a segítségeteket kérni!
  Egy java alapú statisztikai feldolgozó programnak a bemenő adatfájlja vesszővel(!) elválasztott, .csv kiterjesztésű egyszerű szöveg. Excelben készítem elő az adatokat, azaz egy függvénnyel minden adatot (numerikus) soronként összevonva beviszek az első (A) oszlopba a pl.: =b1 & „,” & c1 & „,” & d1 & „,” & e1 … és így tovább, míg van adat a sorban. Majd csak az A oszlopot meghagyva mindent kitörlök, az A oszlop tartalmát Értékként visszamásolom ugyan arra a helyre és elmentem .csv kiterjesztettként. Az eredményt megnézve pl. Totál Commander Nézőkéjével: a szükséges .txt-hez hasonló fájl jött létre. És nincs ezzel baj, a program megérti, alakít még rajta és dolgozik vele. Itt jegyzem meg: mind ezt manuálisan végeztem. De nekem nagyon sokszor kell ezt megcsinálnom.
  A .csv fájl készítést megpróbáltam VBA-ban, itt a részlete:
  'A másolandó Adatsor
  Sheets("… Adatsor").Select
  Range(Cells(Cikl - 20 + 1 - Id, oszl), Cells(Cikl - 20, oszl)).Select
  Range(Cells(Cikl - 20, oszl), Cells(Cikl - 20, oszl)).Activate
  Selection.Copy
  
  'Hová másoljuk
  Workbooks.Add
  Range("A1").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  Application.CutCopyMode = False
  ActiveWorkbook.SaveAs Filename:= _
  "C:\...\Vesszővel tagolt" & sz & Cikl & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=False
  
  A részletben Cikl,Id,oszl,sz előre megadott intewger és string változók. Két hiba jelentkezik:
  Az elkészített .csv fájl Adatsorai mind idézőjelek közé kerültek és így már nem megfelelően értelmezi a statisztikai program. A kód részlet utolsó sorában lévő mentés, ha van már olyan nevű fájl, mindig megkérdezi: cserélje-e a fájlt. A cél az lenne, hogy ne kérdezze; nyugodtan cserélje le.
  Röviden ez a problémám.
  Ha valaki tud, kérem segítsen.
  Köszönöm.

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