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

• #50137 eszgé100 őstag

  Új Válasz 2022-12-16 13:37:45 #50137

  Ú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

  

  eszgé100

  őstag

  Sub saveweeklycopy()
Dim name As String
Dim sharepoint As String
Dim weekcom As Date
Dim weeknum As Integer

weekcom = Sheets("Sheet1").Range("B2")
weeknum = Sheets("Sheet1").Range("B3")

name = Format(weekcom, "YYYYMMDD") & ("_WK" & weeknum) & ".xlsm"
sharepoint = "https://companyname.sharepoint.com/sites/projectname/Shared%20Documents/ourfolders/myfolders/Trial/"

MsgBox sharepoint & name
ThisWorkbook.SaveCopyAs filename:=sharepoint & name

End Sub

  Sziasztok!

  az alabbi kod remekul mukodik, ha SaveAs-t hasznalok, viszont annyi a gond vele, hogy nekem egy biztonsagi mentest kellene keszitenem az eredeti fajlon viszont szeretnek tovabb dolgozni. SaveCopyAs Runtime 1004-el elszall...
  Sorry we couldn't find xy file. Is it possible it was moved, renamed or deleted?
  SaveAs siman letrehozza az uj fajlt, nem ertem, hogy mi lehet a ketto kozt a kulonbseg?
  Mi a pontos modja, hogy biztonsagi mentest csinaljak, majd folytathassam a munkat az eredetin?

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