excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: odkaz na zadanu cestu vba
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
MS Excel
Téma: odkaz na zadanu cestu vba 
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
(29.1.2023 19:29)#054308
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
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
(29.1.2023 19:41)#054309
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
(30.1.2023 20:51)#054320
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
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í
citovat
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í
citovat(31.1.2023 18:37)#054332
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
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
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
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
(31.1.2023 19:30)#054334
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
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
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
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
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články