< návrat zpět

MS Excel


Téma: odkaz na zadanu cestu vba rss

Zaslal/a 28.1.2023 19:44

zdravim potrebujem poradit mam vo vzorci zadanu cestu
C:\Users\ASUS PC\Documents\MEGA\import\Report

kedze to mam ulozene na cloude a pouzivam 3 pc tak mam problem s najdenym cesty co sa tyka nazov pc. Da sa to nejak upravit aby nezalezalo na nazve pc

Zaslat odpověď >

Strana:  « předchozí  1 2 3   další »
#054307
elninoslov
@Jano5 : V Lugr-ovom kóde je ale stále meno PC
...
PCN = objNetwork.ComputerName
...
citovat
#054308
avatar
Ospravedlnujem sa teraz som si vsimol ze mi neskopirovalo original povodny kod od lugra ten prvy ko co som poslal som sa snazil spojit odkaz s povodnym kodom.

ak este raz posielam spravny

Sub Import()

Dim CESTA As String
Dim SOUBOR As String
Dim ZDROJ As String
Dim CIL As String
Dim RADEK As Long
Dim POCET As Long
Dim wsDATA As Worksheet
Set wsDATA = Worksheets("List1")

POCET = wsDATA.Cells(Rows.Count, "A").End(xlUp).Row

If POCET > 0 Then wsDATA.Range("A2").Resize(POCET, 3).ClearContents

MESIC = wsDATA.Range("E1")
CILMESIC = Sheets("Report").Range("B1")

CESTA = "C:\Users\ASUSPC\Documents\MEGA\import\Report\"
ZDROJ = "Report " & MESIC & ".xlsx"
CIL = "Vyučtovanie " & CILMESIC & ".xlsm"

SOUBOR = CESTA & ZDROJ

If Dir(SOUBOR) = "" Then MsgBox "Soubor " & SOUBOR & " neexistuje!", vbCritical: Exit Sub

Application.ScreenUpdating = False
Workbooks.Open Filename:=SOUBOR
POCET = Workbooks(ZDROJ).Sheets("Položky dokladu").Cells(Rows.Count, "A").End(xlUp).Row - 2
Workbooks(CIL).Sheets("List1").Range("A2").Resize(POCET, 3).Value = Workbooks(ZDROJ).Sheets("Položky dokladu").Range("B3").Resize(POCET, 3).Value
Workbooks(ZDROJ).Close SaveChanges:=False
Application.ScreenUpdating = True

ActiveWorkbook.RefreshAll

End Subcitovat
#054309
avatar

Lugr napsal/a:

A nešla by využít cesta k souboru?

CESTA = ThisWorkbook.Path


skusil som zmenit teraz zadava inu cestu suboru zosit mam v inej zlozke a data s importom v inej zlozke a tento kod mi robi import dat do povodneho zositacitovat
#054320
avatar
Ahojte tak toto by zaujimalo aj mna ako na viacerych PC pouzit rovnaku cestu na roznych uzivatelov v C: users. V praci mame server kde mame ulozene excel zosity lebo zakazdym musime upravovat cestu suboru odkial kopirujeme data ako C:\Users\ucto7\data\import\prijem\citovat
#054325
elninoslov
Celé sa to musí pojať úplne odznovu, postupne, jasne.

1. Ako to môžete mať na cloude, keď sa hrabete v C:\Users? Na cloude to môžete mať napr. na OneDrive, DropBox, GoogleDrive, firemný cloud, ... Ak je to zdieľaná zložka na inom PC vo Vašej sieti, tak to nie je cloud, ale len zdieľaná zložka/disk. A tiež nie je v C:\Users. Vysvetlite.

2. Vy ste užívateľ "Fero" na PC menom "KOMP1" a chcete súbor zo zdieľaného adresára užívateľa "Mišo" na PC menom "KOMP2"? Ak áno, viete alebo neviete že sa užívateľ volá "Mišo", a viete alebo neviete že sa PC volá "KOMP2"?

3. Alebo Vy ste užívateľ "Fero" na PC menom "KOMP1" a chcete súbor zo zdieľaného adresára užívateľa "Mišo" na tom istom PC menom "KOMP1"?

Ja Vám nikomu proste nerozumiem. Keď je niečo na serveri/cloude, tak to má nejakú adresu/cestu/link. Tá je predsa PEVNÁ. Nepotrebujete riešiť Vaše konto, jeho konto, názov PC a pod. Cesta je pevne daná, mení sa max názov súboru ktorý chcete. Skúste vysvetliť inak to čo potrebujete. Nech to pojmeme aj my nechápaví 5citovat
#054332
avatar
Zdravim co sa tyka mojho problemu tak na 3 pc mam nainstalovanu MEGU a vsetky subory vtomto priecinku sa synchronizuju s cloudom. Ja potrebujem upravit vyssie uvedene makro pre roznych uzivatelov aby som nemusel na kazdom pc upravovat makro s cestou. Prikladam povodne cesty:

PC1: C:\Users\Administrator\Documents\MEGA\Import\Report\
PC2: C:\Users\ASUS PC\Documents\MEGA\Import\Report\
PC3: C:\Users\Lenovo\Documents\MEGA\Import\Report\

a tu potrebujem vytvorit jednu cestu pre 3 pouzivatelov . Lebo nazvy PC su odlisne od pouzivatelacitovat
#054333
elninoslov
Takže my máme vedieť, čo je to MEGA? Teda ja som o tom doteraz nepočul. A to som z IT.
Každopádne zase pletiete názov PC a názov užívateľského účtu. V daných cestách sa NIKDE názov PC NENACHŹDZA !!!
PC1: C:\Users\Administrator\Documents\MEGA\Import\Report\
PC2: C:\Users\ASUS PC\Documents\MEGA\Import\Report\
PC3: C:\Users\Lenovo\Documents\MEGA\Import\Report\

To všetko sú názvy užívateľských kont. A na to sme tu už dali niekoľko riešení. Proste komp nemusíte vôbec riešiť. Riešite iba užívateľa, pretože každý ma tú cloudovú zložku synchronizovanú (tak to chápem, že má každý prístup do tej istej zložky v cloude).citovat
#054334
avatar
Mega je to iste ako OneDrive, DropBox len v zakladnom baliku pouziva 20GB a ma zatial neobmedzene zariadenia predtym som pouzival DropBox len ho obmedzili na 3 pc.
PC1: uzivatelsky ucet Administrator nazov PC je PCJano
PC2: uzivatelsky ucet AsusPC nazov PC je Asus
PC3: uzivatelsky ucet Lenovo nazov PC je Lenovo NTB

trosku sa to myly aj mne chcel som zmenit nazvy uctov len je to dost komplikovane. Priklady ktore ste mi uz poskytli tak mi v ceste zadava tieto nazvy? PCJano, Asus a Lenovo NTB a ja potrebujem aby mi zadavalo v ceste Administrator, AsusPC alebo Lenovocitovat
#054344
avatar
ja zaktiez vyuzivam tuto sluzbu MEGA je celkom super a lepsia oproti dropboxu.

Elninoslov alebo Lugr ak by sa dalo nieco vymysliet na tuto temu tiez by ma to zaujimalo ako ziskat cestu s uzivatelskym uctom na 2 pc a spojit ju na jednu cestu v makre mam tiez podobny problem. s pozdravomcitovat
#054422
avatar
Je tu este daka sanca na pomoc? Dakujemcitovat

Strana:  « předchozí  1 2 3   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Současné rozplánování více projektů v Excelu.

exceleda • 3.3. 17:46

Současné rozplánování více projektů v Excelu.

eLCHa • 2.3. 22:03

Oddělovač polí

Milan-158 • 1.3. 16:01

Oddělovač polí

Whooocak • 1.3. 15:14

Vkládání dat z formuláře na zamknutém listu.

Milan-158 • 1.3. 15:12

Vlastne planovanie zmien

Anonym • 1.3. 7:56

Vkládání dat z formuláře na zamknutém listu.

Začátečník • 28.2. 19:34