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

• #52286 föccer nagyúr föccer #52285

  Új Válasz 2024-03-07 12:17:45 #52286

  Ú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

  

  föccer

  nagyúr

  válasz föccer #52285 üzenetére

  Private Sub Workbook_Open()
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim i As Integer
Dim Fileok_szama As Integer
Dim Fnev As String
Dim Kell_e_menteni As Boolean
Dim SFnev As String
i = 0
Filok_szama = 0
Fnev = ""
Kell_e_menteni = True
SFnev = ""
Sheets("Save_log").Range("T:U").ClearContents
Set oFSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
  If Sheets("Save_log").Range("B7").Value <> "" Then
    Set oFolder = oFSO.GetFolder(Sheets("Save_log").Range("B7").Value)
  Else
    Set oFolder = oFSO.GetFolder(Sheets("Save_log").Range("B8").Value)
  End If
If Err = 0 Then
 
For Each oFile In oFolder.Files
    If oFile.Name = Sheets("Save_log").Range("B5").Value Then
      Kell_e_menteni = False
    End If
    Sheets("Save_log").Cells(i + 1, 20) = oFile.Name
    Sheets("Save_log").Cells(i + 1, 21).Formula = "=IFERROR(MATCH(T" & i + 1 & ",M:M,0),0)"
    i = i + 1
Next oFile
Filok_szama = i
For i = 1 To Filok_szama
  If Sheets("Save_log").Cells(i, 21).Value = 0 Then
    Fnev = oFolder & "\" & Sheets("Save_log").Cells(i, 20).Value
    Kill Fnev
  End If
Next
If Kell_e_menteni = True Then
  
  SFnev = Sheets("Save_log").Range("B7").Value & Sheets("Save_log").Range("B5").Value
  ActiveWorkbook.SaveAs Filename:=SFnev
End If
Else
  If Sheets("Save_log").Range("B7").Value <> "" Then
    MkDir Sheets("Save_log").Range("B7").Value
  Else
    MsgBox "Nem találom a biztonsági mentés helyét. Kérlek add meg a biztonsági mentés helyét."
    Call XBUP_mentesi_hely_Valasztas
    MkDir Sheets("Save_log").Range("B7").Value
  End If
End If
On Error GoTo 0
End Sub

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