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

• #37790 Fferi50 Topikgazda lcdtv #37781

  Új Válasz 2018-04-13 15:24:57 #37790

  Ú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

  

  Fferi50

  Topikgazda

  válasz lcdtv #37781 üzenetére

  Szia!

  Ha kérdés nélküli felülírást szeretnél, akkor
  Application.DisplayAlerts = False a makró elejére és
Application.DisplayAlerts = True a makró végére.

  A kihagyáshoz:
  LocalFileName = "C:\temp\" & Evaluate("TRIM(RIGHT(SUBSTITUTE(""" & c & """,""/"",REPT("" "",1000)),1000))")
B=Dir(LocalFileName)=""
If B Then B = True ThenDownloadFile(UrlFileName:=URL, _
DestinationFileName:=LocalFileName, _
Overwrite:=PromptUser, _
ErrorText:=ErrorText)
End if

  Üdv.

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