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

    LOGOUT

    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

  • #9907 bozsozso őstag
    Új Válasz #9907
    Ú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

    bozsozso

    őstag

    Miért írja ki az xls megnyitásakor a következő üzenetet?

    A megnyitni kívánt fájl(fájlnév.xls) más formátumú, mint amilyet a fájlkiterjesztés jelez. A fájl megnyitása előtt ellenőrizze, hogy az nem sérült, valamint megbízható forrásból származik.Meg szeretné most nyitni?

    Igen-re kattintva mind rendben megnyitja. Ezek olyan táblázatok amit makróval mentettem el. Egy munkalapot egy fájlba.

    Amilyen kóddal mentettem:

    usorB = Range("B5000").End(xlUp).Row
    Set Wb1 = ActiveWorkbook
    For a = 4 To usorB

    Set Wb2 = Workbooks.Add
    Wb1.Sheets("Adatlap").Range("A2") = Wb1.Sheets("Összesen").Range("D" & a)
    Wb1.Sheets("Adatlap").Range("B5") = Wb1.Sheets("Összesen").Range("B" & a)
    Wb1.Sheets("Adatlap").Range("B6") = Wb1.Sheets("Összesen").Range("C" & a)
    Wb1.Sheets("Adatlap").Range("F6") = Wb1.Sheets("Összesen").Range("I" & a)
    Wb1.Sheets("Adatlap").Range("G6") = Wb1.Sheets("Összesen").Range("H" & a)
    vag = Left(Wb1.Sheets("Összesen").Range("D" & a), 15)
    fnev = Replace(vag, "*", "X")
    Wb1.Sheets("Adatlap").Copy Before:=Wb2.Sheets(1)

    Wb2.SaveAs Filename:="E:\PC\" & vas & "\" & fnev & ".xls"

    Wb2.Close False


    Next a

    Lehet vele valamit csinálni, hogy ne hozzon fel ilyen üzenetet?

    Office2010

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