Sziasztok!

Excel makrók terén szeretnék egy kis segítséget kérni egy kollégámnak. Van egy excele, amiben van egy hosszú makró, ami így kezdődik:

Sub atis()
 
    Dim MyPath          As String
    Dim MyFile          As String
    Dim fileName        As String
    Dim Wkb             As Workbook
    Dim Cnt             As Long
    Dim munkaszam       As Variant
    Dim MM_2022_        As Variant
     
        
    Application.ScreenUpdating = False
    
  MyPath = "q:\Megrendelések\Alapanyagigeny\Ütemezés"
     
    If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"
    
    munkaszam = Worksheets(1).Cells(1, 4)
    
    fileName = "MM_2022_" & munkaszam
     
    MyFile = (MyPath & fileName)
     
            
        FileCopy MyFile + ".csv", MyFile + ".txt"
        
        Workbooks.OpenText fileName:=MyFile + ".txt", Origin:=1250, StartRow:=1, DataType:=xlDelimited, Semicolon:=True

Ahogy ez a kód elér oda, hogy létrehozza a TXT fájlt, azonnal elszáll az excel, teljesen bezáródik. A MyPath részen megadott elérési út helyes, évek óta használja ezt az excelt, de most egyik napról a másikra behalt.

Ha az excelt átrakom helyi meghajtóra (pl.: C:\Megrendelések) és módosítom a makrót ennek megfelelően, akkor tökéletesen lefut.

Mi lehet vele a probléma?

Erre gondoltam:
Macros from the internet will be blocked by default in Office

De megnéztem az excelt a Readiness Toolkit for Office -al és nem jelez hibát.

Nem vagyok egy nagy excel guru, csak eszembe jutott ez a topic és próbálok neki segíteni, úgyhogy előre is köszönöm ha valaki tud tanácsot adni, merre induljak.

Üdv,
Levi

Start with a whisper, end with a scream!