2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Fototrend

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #18310 Mutt senior tag nimmy001 #18299
    Új Válasz #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

    senior 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.

  • #18300 Excelbarat tag nimmy001 #18299
    Új Válasz #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