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!
Oldal 1 / 1
adatbeolvasás TXT fájl excelbe olvasása
Téma megosztása:
Oldal 1 / 1