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

• #6106 Pulsar veterán ulrik19 #6104

  Új Válasz 2010-01-25 19:58:30 #6106

  Ú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 #6104 üzenetére

  DateLastModified és DateLastAccessed
  ezekkel az a baj, hogy az utolsó megnyitás dátumát írja ki, nem pedig az utolsó modosításét!

  aham, a kód most így néz ki:

  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("R:\Dell\Reporting\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
  
  Sheets("Data").Range("A47") = adatfile.DateLastModified
  
  Application.CutCopyMode = False
  
  Windows(filename2).Activate
  ActiveWindow.Close
  
  End Sub

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