VBA bruges i Excel til at oprette makroer , der automatiserer opgaver , der normalt ville ske manuelt. Gennemførelsen af disse opgaver manuelt, kan være tidskrævende og besværligt. Mange gange brugere har behov for at kopiere og indsætte data ind i Excel fra tekstfiler. Blot kopiere og indsætte data fra en tekstfil til Excel vil ikke resultere i korrekt formaterede data. Den OpenText metode bruges til at indlæse en tekstfil og parse den. Et regneark er skabt med de parsede data. Denne metode eliminerer behovet for brugeren manuelt at importere tekstfilen og gå gennem "Text Import Wizard" . Instruktioner
1
Åbn en ny projektmappe. Tryk på Alt og F11 på tastaturet for at åbne VBA editoren . Klik på menuen Filer og vælge "Ny" . Dobbeltklik på Sheet ( Ark1 ) under Microsoft Excel Objects i Project - VBAProject ruden .
2
Type Sub , efterfulgt af makronavnet i første linje , såsom Sub Open ( ) . Du kan give den makro som helst navn du gerne vil
3
Tilsæt OpenText metoden , med angivelse af følgende oplysninger: .
1. . Register filen ligger in.2 . Række nummer, du vil begynde at importere data i. Filen oprindelse er 437 : OEM USA som standard, hvis du er i USA States.3 . Vælg, om du ønsker at parse filen i et afgrænset versus fast bredde . Med afgrænset , skal du angive , hvad den afgrænser er at parse filen, f.eks fanen semikolon , komma , mellemrum eller en tilpasset afgrænser. Indstil delimiter du gerne vil bruge til SAND , og resten af de afgrænsere som FALSK .
For eksempel, hvis vi ønsker at parse en tekstfil placeret på John Smiths skrivebordet, adskilt af faneblade , ville vi bruge følgende kode : Hej
Workbooks.OpenText Filnavn: = _ " C: \\ Documents and Settings \\ jsmith \\ Desktop \\ info.txt " Origin : = 437, StartRow _ : = 1, DataType : = xlDelimited , TextQualifier : = xlDoubleQuote , _ConsecutiveDelimiter : = False , Tab : = Sand , Semikolon : = False , Comma : = False _ , Space : = False , Andet : = False , FieldInfo : = Array ( 1 , 1), _TrailingMinusNumbers : = Sand
4
End makroen ved at skrive " End Sub " . Gem makroen ved at klikke på knappen Gem på værktøjslinjen. Luk Visual Basic vindue .
5.
Kør makroen ved at klikke på fanen Vis i værktøjslinjen. Klik på Makroer , og vælg makroen. Klik på " Kør" knappen.
