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

• #45741 zsolti_20 senior tag

  Új Válasz 2021-01-10 18:55:56 #45741

  Ú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

  

  zsolti_20

  senior tag

  Sziasztok! Szeretnék egy txt filet megnyitni aminek mindig random neve lenne, így *.txt-vel szeretnék egyesével sorban behívni. Az alábbi kódot használom de valamiért a változó nem kapja meg a helyes értéket és azt írja hogy a file nem található. Pedig a még a file neve is bele kerül a változóba.

    Dim FilePath As String
    Dim fName As String
    Dim srcFldr As String
    Dim dstFldr As String
  Dim FileName As String
  
  
  srcFldr = ActiveWorkbook.Path & "\asd"

  FilePath = Dir(srcFldr & "\**102020.txt")
  
  MsgBox FilePath

  Open FilePath For Input As #1  <-- itt kapom a hibát

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