2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés

Hirdetés

!! SZERVERLEÁLLÁS, ADATVESZTÉS INFORMÁCIÓK !!
Talpon vagyunk, köszönjük a sok biztatást! Ha segíteni szeretnél, boldogan ajánljuk Előfizetéseinket!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #6106 Pulsar veterán ulrik19 #6104
    Új Válasz #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