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

• #49498 stigma addikt

  Új Válasz 2022-08-30 11:15:02 #49498

  Ú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

  

  stigma

  addikt

  Sziasztok.

  Ismerősömnek kellene segítenem a makrókját átírni, mert egy hálózati meghajtója költözött Sharepoint alá és a makró hibára fut, melyet nemsokára kifejtek.

  A makró maga, annyit csinál, hogy a központi meghajtóról bekeresi az összes Excel-t, majd a megadott cellákat a makrós Excel fájl munkaljaira behivatkozza.

  Eredeti makró elérési útja így néz ki kb:
  - Ha felcsatolt a gépére a hálózati meghajtót, akkor ilyesmi elérési utat ad meg => E:\Mappa
  - Ha nincs felcsatolva akkor a szokásosat => \\halozatimeghajto\Mappa
  Makróban 1 gomb van, paraméternek ezt az 1 elérési utat (stringet) kell megadni.

  Ez szépen futott mindaddig, amíg Sharepoint alá nem kerültek fel a fájlok.
  A makró kódja kb így működik: Link

  Set oFSO=Createobject("Scripting.FileSystemObject")
Set Folder=oFSO.GetFolder(sPath) => itt dob Error 76 vagy error 52-t , hogy rossz elérési út
  Sharepointban az alábbi elérési út lett most neki:
  https:\\valami.sharepoint.com\sites\Mappa1
  
  Utánnaolvasva pár átalakítást végeztem neki de nem jutottam sikerrel:

  sPath="https:\\valami.sharepoint.com\sites\Mappa1"
if mid(sPath,len(sPath),1) <>"\" then
  sPath=sPath & "\"  'Hozzáfűzök egy "\" jelet ha nincs megadva az elérési út végén
end if
sPath=replace(sPath,"\","/")
sPath=replace(sPath," ","%20") 'Ha lenne benne space akkor cserélni kell a karaktereket
sPath=replace(sPath,"https:","")
Set oFSO=Createobject("Scripting.FileSystemObject")
'Átalakítások után ez lenne az elérési út: //valami.sharepoint.com/sites/Mappa1/
Set Folder=oFSO.GetFolder(sPath) => itt ismét hiba van, szintúgy 52 vagy 76-oes error-al ami a rossz elérési útat jelenti.

  Próbálkoztam az alábbi elérési utakkal, de szintúgy 52 és 76os error-ra jutottam:
  1. fordított perjelekkel is: \\valami.sharepoint.com\sites\Mappa1\
  2. hozzáadtam @SSL vagy @SSL/DavWWWRoot-ot is : \\valami.sharepoint.com@SSL\sites\Mappa1\ vagy \\valami.sharepoint.com@SSL\DavWWWRoo\sites\Mappa1\
  3. próbáltam fordítva is: //valami.sharepoint.com@SSL/sites/Mappa1/ vagy //valami.sharepoint.com@SSL/DavWWWRoo/sites/Mappa1/

  Ötletem még a MapNetworkDrive használata lett volna, amit sosem használtam. Itt gond lenne szerintem ahogy a hivatalos oldalt és pár kódot láttam, mert a behivatkozott fájlok helyett a MapNetworkDrive-nak megadott akármilyen betüjelet használná, ami nem jó sajnos.

  Valakinek van valamilyen ötlete , hogy lehet egy Sharepoint mappában (amiben van almappa is) Excel fájlokat (*.xlsx) megkeresi az összeset?

  Segítséget előre is köszönöm.

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