[szekelyelek]

Sziasztok!

Segítséget szeretnék kérni egy Vb makró elindításában. A készítője számítógépén hibátlanul fut, Nálam pedig nem találja a beolvasandó TXT fájlt.

Sub Osszevon()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Const utvonal = "D:\Letoltes\"
Dim FN As String, WS1 As Worksheet
Dim usor As Long, oszlop As Integer, fájlnév$
Dim sor As Long, sor1 As Long, név

Set WS1 = Workbooks("Beolvasott_adatok_1.xlsm").Sheets("Beolvasás")
usor = Cells(Rows.Count, "A").End(xlUp).Row
Range(Cells(5, 40), Cells(usor, 40)).FormulaR1C1 = "=RC[-38]&"" ""&RC[-37]"

ChDir utvonal
FN = Dir(utvonal & "*.txt", vbNormal)
Do
If FN <> "." And FN <> ".." Then
Workbooks.OpenText Filename:= _
FN, Origin:= _
28592, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=True, _
Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True
fájlnév$ = ActiveWorkbook.Name
...

Köszi minden segítséget!