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

• #6075 Pulsar veterán ulrik19 #6072

  Új Válasz 2010-01-20 01:32:23 #6075

  Ú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

  

  Pulsar

  veterán

  válasz ulrik19 #6072 üzenetére

  Szia!

  Látom pörögtök a témán, rendesek vagytok!
  Egyébként egyre jobban úgy gondolom, hogy valóban az lehet a gond, hogy amit a server lement annak nincsenek ilyen paraméterei, mert egy linux szerver generálja, és menti le. Én azt hittem, hogy a file atriputumából szerzi az időt, nem pedig egy tulajdonságok részből. Olyat nem lehet?

  Egyébként most így néz ki a kód. A semmi pedig azt jelenti, hogy lefut a macro és kész, de nem írod ki sehova az időpont.

  Sub masolas_adat()
  
  Dim excel_filename, filename2, kelt As String
  
  excel_filename = ThisWorkbook.Name
  
  Dim adatfile As Variant, FSO As Variant
  Set FSO = CreateObject("Scripting.FileSystemObject")
  Set adatfile = FSO.GetFile("c:\Production_Daily.xls")
  
  
  Workbooks.Open FileName:="R:\Dell\Reporting\Production_Daily.xls"
  
  filename2 = ActiveWorkbook.Name
  Columns("A:G").Select
  Selection.Copy
  
  Windows(excel_filename).Activate
  Sheets("IDE_MASOLD").Activate
  Range("A1").Select
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
  False, Transpose:=False
  
  Application.CutCopyMode = False
  
  Windows(filename2).Activate
  ActiveWindow.Close
  
  End Sub

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