MS Excel

Dakujem Lugr funguje len este sa mi to nedadari dostat do povodneho makra vies mi s tym este pomoct .Dakujem

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\ASUS PC\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

Akurat som vsimol ze ntb kde som to testoval mam rovnaky nazov ntb aj uzivatela ale na druhych 2 pc to je ine a tam som akurat narazil na problem ze mi to bralo ako nazov pc a nie nazov uzivatelacitovat

dava mi to chybu neviem ci mam zle uvede zatvorky

CESTA = "C:\Users\" & CreateObject("Environ").WindowsActive & "\Documents\MEGA\Import\Report\"citovat

Skúste najskôr tie najjednoduchšie možnosti:
CESTA = "C:\Users\" & Environ("username") & "\Documents\MEGA\import\Report\"
alebo
CESTA = "C:\Users\" & CreateObject("WScript.Network").UserName & "\Documents\MEGA\import\Report\"
Ale to problém môže nastať aj inde. Uživateľské adresáre ako napr. "Dokumenty" nemusia byť len v "Users\meno\Documents\", ale napr. ja ich mám na "D:\Dokumenty\"citovat

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

CESTA = ThisWorkbook.Pathcitovat