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

• #9907 bozsozso őstag

  Új Válasz 2011-04-01 18:35:01 #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