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

• martonx veterán

  #2185

  #2184 kanyolajos

  2013-08-27 08:08:06

  Új Válasz

  Ú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

  

  martonx

  veterán

  #2184 kanyolajos

  #2184 kanyolajos

  Sziasztok

  Egy excelben írt maro-hoz kérnék némi segítséget.
  Egy másik excel file-ból olvasok ki egy sheetet.
  Két problémám lenne:
  A kiolvasás működik,de csak az értékeket szeretném átmásolni, a fügvényeket nem,
  valamint két jelszóval védett az excel: első az Encrypt a második a normál olvasás írás védelem.
  Ugye hivatkozáskor megnyitás előtt be kell írni a két jelszót manuálisan.
  Milyen utasítással lehetne ezt megoldani , hogy a futó macro maga nyissa meg ?
  Segítséget előre is köszönöm

  Ime a kiolvasó macro:

  ' .......................................................................................................................................
  'Hivatkozás az adat sheetre
  Sheets("Datum").Visible = True
  'Hivatkozás hova történjen a beírás
  Sheets("01").Visible = True
  'Hivatkozás aktuális idő lehívása
  Sheets("Datum").Select
  'Hivatkozás aaktuális idő lehívása
  Range("H3").Select
  sajatnev = ActiveCell
  'Hivatkozás aaktuális idő lehívása
  Range("D6").Select
  fajlnev = ActiveCell

  'Hivatkozás honnan olvassa be a stop adatokat
  fajlnevY0 = "C:\teszt\" + fajlnev
  ChDir "C:\teszt"
  'Hivatkozás melyik sheetből olvasson
  Workbooks.Open Filename:=fajlnevY0
  Sheets("1 data").Select
  Columns("A:AZ").Select
  Selection.Copy
  Windows(sajatnev).Activate
  'Hivatkozás melyik sheetbe írja ki
  Sheets("01").Select
  Columns("A").Select
  ActiveSheet.Paste
  Windows(fajlnev).Activate
  Columns("L").Select
  Selection.Copy
  Windows(sajatnev).Activate
  Columns("J").Select
  ActiveSheet.Paste

  ActiveWindow.SelectedSheets.Visible = False
  Windows(fajlnev).Activate
  Range("A1").Select
  Selection.Copy
  ActiveWindow.Close (False)

  Sheets("Datum").Select
  ActiveWindow.SelectedSheets.Visible = False
  Sheets("Mon").Select
  ActiveWorkbook.Save

  thx
  Luí

  Csak értékek kimásolása:

  Selection.Copy
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

  A jelszó beírást meg tudod oldani sendkey paranccsal.

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