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

• #49640 Agony aktív tag

  Új Válasz 2022-09-20 12:26:18 #49640

  Ú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

  

  Agony

  aktív tag

  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!

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