Ú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?

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