Lösningar För öppna Textfilfel 53
November 10, 2021
Rekommenderas: Fortect
Du kommer möjligen att ha stött på ett fel som indikerar Opentextfile-fel 53. Det finns flera sätt att lösa detta problem på, vilket de flesta kommer att göra inom kort.
Dim wb som arbetsbokDim ws som arbetsbladDim artikel objFSO, strTextFile, strData, arrLines, LineCountDim mottagen trans, Mis som heltalDim MyFolder, MyFile, MyFileName, MySheetName, ReportDate som strängDim FileType As StringDim i, j som ett effektivt heltalConst ForReading inkluderar 1i = betyder 1d 1ObjFSO-uppsättningen motsvarar så att du kan CreateObject ("Scripting.FileSystemObject")MyDossier = = "d: totalcompare"min filkatalog (MyFolder & " -. txt")Gör medan MyFile "" <> Om Left (MyFile, 21) = "ReverseFile_FOOD4514_" möjligen Right (MyFile, 12) är lika med att kunna ".xls_RES.txt", då Om Left (MyFile, 21) är lika med "ReverseFile_FOOD4514_", då strTextFile = MyFileStrData motsvarar objFSO.OpenTextFile (strTextFile, ForReading) .ReadAll arrLines är lika med VbCrLf) split (strdata, LineCount = UBound (arrLines) Installera objFSO = ingenting MySheetName = Ersätt (MyFile, "txt", "") ReportDate = Right (Ersätt (MySheetName, ".", ""), 8) MyFileName = Ersätt ((Ersätt (MySheetName, "_" & ReportDate & ".", "")), "ReverseFile_FOOD4514_", "") ReceivedTrans = LineCount Om det faktiskt är ett misstag, fortsätt strTextFile matchar MyFileName och ".txt" Ställ in objFSO till CreateObject ("Scripting.FileSystemObject") strData = objFSO.OpenTextFile (strTextFile, ForReading) .ReadAll arrLines matchar Split (strData, vbCrLf) LineCount = UBound (arrLines) Set betyder objFSO Ingenting Ingen = totalt antal rader Sluta om Sluta omMyFile = dir Slinga
Rekommenderas: Fortect
Är du trött på att din dator går långsamt? Är det full av virus och skadlig kod? Var inte rädd, min vän, för Fortect är här för att rädda dagen! Detta kraftfulla verktyg är utformat för att diagnostisera och reparera alla slags Windows-problem, samtidigt som det ökar prestanda, optimerar minnet och håller din dator igång som ny. Så vänta inte längre - ladda ner Fortect idag!
När jag kör följande Excel VBA i Excel, får jag fel 53 att inga filer hittades? Det antas dock att innehållet finns med exakt filtillväxt och ett annat namn.Det ska se ut som om textfilen såg ut att vara uppdelad i kolumner i Excel. Men jag får fel 53 vilket gör att de flesta filerna kanske inte kan hittas.
Sub HelperFile splittxt_01 ()const As String = "ABCD" '<<< temp. Namnhjälp textfilConst N As Long är lika med 500000 '<<< dagligen all text på N rader, EDITSudda ut min vägmyPath betyder '<<< "c: desktop " deklarera sökväg, ÄNDRA'Sudda ut min filmyFile betyder "2015226d.txt" '<<< Ditt företags textfil. CHANGE txt tillkännager namn efter behovDim WB As Workbook, myWB As MyWB Workbookset = Denna bokMinska storleken bakom myWS som ett kalkylbladSolen har blivit så lång, så långDim myStrApplication.ScreenUpdating innebär False"Att dela upp en textfil i uppdelningstext inkluderar filermyFile-katalogen (myPath sedan myFile)Öppna myPath och myFile till användarnamn som #1t betyder 1r innebär 1Göra utan EOF (1)Linje 1 nära, myStrOm r> N, dåt = p + 1r är 1Sluta omÖppna myPath & HelperFile & t & ".txt" som skulle lägga till som #2Stämpel nr 2, nr 2r maStrStäng = r + 1bandStäng #1'Kopiera txt-programvara till separata arkFör i = c vid 1 steg -1Workbooks.OpenText Filnamn: är lika med myPath & & helperfile that i & ".txt", Tab: = TrueDefiniera datatyp: = xldelimited, WB = ActiveWorkbookStäll in Rng = ActiveSheet.UsedRangeStäll in myWS = myWB.Sheets.AddmyWS.Name motsvarar HelperFile & iRng.Copy myWS.Cells (1, 1)WB. Stäng DåligtNästaminWB. att rädda'' Ta bort bli expert på filerDefiniera txt Fso = CreateObject ("Scripting.FileSystemObject")Set Fldr innebär Fso.GetFolder (myPath)För varje enskild fil på Fldr.FilesOm filnamnet ser riktigt njut & "*" HelperFile & "*", så filnamnet. RaderaNästaApplication.ScreenUpdating = SantSlut på subrutinen
Ladda ner den här programvaran och fixa din dator på några minuter.
Opentextfile Error 53
Opentekstbestand Fout 53
Blad Otwartego Pliku Tekstowego 53
Opentextfile Erro 53
오픈텍스트파일 오류 53
Opentextfile Fehler 53
Error 53 De Archivo De Texto Abierto
Erreur Opentextfile 53
Oshibka Opentextfile 53
Errore File Di Testo Aperto 53