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

• #18300 Excelbarat tag nimmy001 #18299

  Új Válasz 2013-06-18 21:16:28 #18300

  Ú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

  

  Excelbarat

  tag

  válasz nimmy001 #18299 üzenetére

  +1 aki tudni szeretné a megoldást
  tegnap 4 órámba telt mire rájöttem h ott csúszik el az én exelem is h amikor "manuálisan" nyitom meg akkor szépen fel van osztva cellákra ha viszont makróból akkor csak az "A" oszlopban van összevonva az összes... sajnos az oszlop felosztása nem működik mert eleve hibásan (random több sornál a vesszőt is elválasztónak veszi a pontosvessző helyett) nyitja meg és így idegölő.
  Viszont a csv fálj törlésére van megoldásom, és itt járok:

  Dim teszt
  teszt = ActiveWorkbook.Path & "\" & "adatbázis.csv"
  ment = ActiveWorkbook.Path & "\"
  Application.ScreenUpdating = False
  
  If FileLen(teszt) > 0 Then
  Workbooks.OpenText Filename:=teszt
  
  Sheets("adatok").Select
  Sheets("adatok").Copy
  Cells.Select
  Cells.EntireColumn.AutoFit
  Range("A1").Select
  ActiveWorkbook.SaveAs Filename:=ment & "Kimutatás.xlsx", FileFormat:= _
  xlOpenXMLWorkbook, CreateBackup:=False
  Windows("bizonylatkereses.csv").Activate
  ActiveWorkbook.Close
  Kill teszt
  Windows("Kimutatás.xlsx").Activate
  'ide jöhet egyéb parancsok
  Else
  Call MsgBox("Nem létezik a fájl!", vbOKOnly)
  End If

  A fájl törlése a "Kill" parancsal történik! (nálam ugye a teszt változó amit már a makró elején meghatároztam).
  Egyenlőre én is azt a megoldást alkalmazom hogy megnyit és elment xlsx-ként és úgy megmarad a cellafelosztás így már azt nyittatom meg vele. Valami ötlet?

  [ Szerkesztve ]

• #18310 Mutt aktív tag nimmy001 #18299

  Új Válasz 2013-06-19 23:19:27 #18310

  Ú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

  

  Mutt

  aktív tag

  válasz nimmy001 #18299 üzenetére

  Hello,

  ...ami a csv-ben egy cella volt, az az xlsx-ben is egy cella legyen...

  A 17823-es postban található megoldást próbáld ki.

  Szöveg fájlként olvastatom be a fájlt és utána a TAB-al elválasztott mezőket cellákba dobom be.
  Ha CSV-ben más mezőhatároló van, akkor a

  Const chrDelimiter = vbTab

  sort kell javítanod, pl. vbTab helyett ";"

  üdv.

  A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

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