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

• #19656 morgusz csendes tag

  Új Válasz 2013-11-26 23:16:50 #19656

  Ú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

  

  morgusz

  csendes tag

  Sziasztok!

  Segítsetek!
  (Kaptam korábban útbaigazítást, de képzetlenségem miatt nem sikerült megcsinálni.)

  1.A másként mentett fájl nevében a "napi" szó helyére kellene berakni az aktuális dátumot (hh.nn.).

  "Workbooks.Open Filename:="D:\előkészítés+\AVO\Avo napi PM.xls"
  ChDir "\\imrst\IMR_ST\IMRElorejelzesFiles"
  ActiveWorkbook.SaveAs Filename:= _
  "\\imrst\IMR_ST\IMRElorejelzesFiles\Avo napi. PM.xls", FileFormat:= _ <-------
  xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
  , CreateBackup:=False"

  2. Másolásra nem a teljes oszlopokat kellene kijelölnöm, hanem csak az adatokat tartalmazó területet

  Sheets("Eredmény CH").Select
  Columns("A:H").Select <-------------------------
  Selection.Copy
  ChDir "D:\előkészítés+"
  Workbooks.Open Filename:="D:\előkészítés+\Avo\Avo napi CH.xls"
  Sheets("Munka1").Select
  Range("A1").Select
  ActiveSheet.Paste

  Segítsetek abban, hogy a fenti részeket hogy kell átírnom!

  Köszi!

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