Openastextstream opções binárias

OpenAsTextStream um arquivo. doc no VBA (Excel) Última modificação: 2007-12-19 O que eu preciso fazer é abrir um arquivo. doc, percorrer cada linha, extrair informações específicas e salvar isso em um arquivo. txt. Eu tenho cerca de 5.000-6.000 pastas que eu preciso para percorrer, cada um contendo em qualquer lugar de 5 a 200 arquivos que eu preciso deste sub para executar. O que significa que este não é um processo que pode ser gerenciado manualmente. Abaixo está o código que eu tenho. Ele funciona perfeitamente ao tentar abrir arquivos. txt. No entanto, minha necessidade atual é ter esse trabalho em arquivos. doc também. Eu tentei. OpenAsTextStream (1, -1) e (1, 0), no entanto nem um desses trabalho. Eu tentei abrir o objItem para entrada como 1, mas isso não funciona. Qualquer outra opção aqui Qualquer eclética soluções lá fora Sub BIDSUMMARYCREATION () Dim FSO1, FSO2, FSO3, FSO4 Dim objItem como objeto Dim parFolder Dim objFolder Dim WLine como Cadeia Dim VNUM como Long Dim EndUser como String Dim Dumpfile, RF, A1, A2 Dim Padrão1 Como Inteiro Dim BID como Cadeia Dim ZDrive como Cadeia Dim WriteTrue As String Dim ExtID Como Cadeia ZDrive quotZ: quot Definir FSO2 CreateObject (quotscripting. fi lesystemob jectquot) Definir FSO3 CreateObject (quotscripting. fi lesystemob jectquot) Definir FSO4 CreateObject (quotscripting. fi Lesystemob jectquot) Para Default1 2 Para 5698 BID Worksheets (quotsheet1quot).Cells (Padrão1, 1).Value Debug. Print quotBID: quot amp BID objFolder Dir (amplificador ZDrive amp BOT quotquot, vbDirectory) Debug. Print quotobjFolder: quot amp objFolder If (ObjFolder) gt 4 Em seguida, defina parFolder FSO2.getfolder (ZDrive amp objFolder) Defina FSO1 CreateObject (quotscripting. fi lesystemob jectquot) Definir A1 FSO1.createtextfile (parFol der amp quotBid Summary. txtquot, True) Para cada objItem Em parFolder. Files Debug. Print quotparFolder: quot amp parFolder Debug. Print quotobjItem: quot amp objItem Definir Dumpfile FSO3.getfile (objItem) Definir RF Dumpfile. openastextstream (1, -2) Embora não RF. atendofstream WLine RF. readline Debug. Print quotWLine: quot Amp WLine If Left (WLine, 7) quotVersionquot Then VNUM Trim (Direita (WLine, 4)) Debug. Print quotVNUM: quot amp VNUM End If Se Esquerda (WLine, 8) quotCustomerquot Then EndUser Trim (Direita (WLine, WLine) - 9))) Debug. Print quotEndUser: quot amp EndUser End If Se Trim (WLine) quotTransaction Sumário Tablequot Then WriteTrue quotTruequot ElseIf Trim (WLine) quotEnd Transação Sumário Tablequot Then WriteTrue quotFalsequot End If Se WriteTrue quotTruequot Then If Left (WLine , 4) ltgt quot then Se Trim (WLine) ltgt quotquot Então A1.writeline WLine amp quot V quot amp VNUM Debug. Print quotWrote Linha para file. quot End If End Se ElseIf Trim (WLine) quotEnd Transaction Summary Tablequot Then A1. Writeline WLine amp quot V quot amp VNUM Debug. Print quotWrote Line para file. quot End If Wend RF. Close Próxima objItem Else Worksheets (quotsheet1quot).Cells (Default1, 2).Value quotNo Folder Foundquot End If VNUM Vazio EndUser quotquot BID quotquot WriteTrue quotquot A1.Close Next End Sub Obrigado antecipadamente por olhar para este Zihif Em vez de abrir como um TextStream, você precisa abrir como um objeto do Word, então você pode usar a função nativa do Word para analisar os dados. Portanto, em vez disso: Set Dumpfile FSO3.getfile (objItem) Definir RF Dumpfile. openastextstream (1, -2) Você precisa de algo mais parecido com este: Dim WordApp Como Word. Application necessidade de definir uma referência para o Word se em VB. Não é necessário se no Word VBA Abra o documento no Word Call WordApp. Documents. Open (quotquot) Selecionar toda a primeira linha Chamar WordApp. Selection. EndKey (w dLine, wdExtend) Salvar a linha de texto em um arquivo de texto A1.writeline WordApp. Selection. Text Ir para a próxima linha Chamar WordApp. Selection. GoTo (wdG oToLine, wdGoToNext) Algo para loop que eu havent descobri ainda Fechar o documento atual WordApp. Documents. Close (False)