VBA används i Excel för att skapa makron som automatiserar uppgifter som normalt skulle göras manuellt . Genomföra dessa uppgifter manuellt kan vara tidskrävande och besvärligt . Många gånger användare behöver för att kopiera och klistra in data till Excel från textfiler . Helt enkelt kopiera och klistra in data från en textfil till Excel kommer inte att resultera i korrekt formaterade data. Den OpenText metoden används för att läsa in en textfil och tolka den . Ett kalkylblad skapas med de analyserade data. Denna metod eliminerar behovet för användaren att manuellt importera textfilen och gå igenom " Textimportguiden " . Instruktioner
1
Öppna en ny arbetsbok . Tryck Alt och F11 på tangentbordet för att öppna VBA editorn . Klicka på Arkiv-menyn och välj " Nytt " . Dubbelklicka på Sheet ( Blad1 ) enligt Microsoft Excel Objekt i Project - VBAProject fönsterruta .
2
Typ Sub , följt av makrot namnet på den första raden , till exempel Sub Open ( ) . Du kan ge makrot ett namn som du vill
3
Tillsätt OpenText metoden , ange följande uppgifter : .
1 . Directory filen finns in.2 . Rad nummer du vill börja importera data i. Filen ursprung är 437 : OEM USA som standard om du är i USA States.3 . Välj om du vill tolka filen i en avgränsad kontra fast bredd . Med avgränsat , måste du ange vad avgränsare är att tolka filen , t.ex. flik , semikolon , kommatecken, mellanslag eller en anpassad avgränsare . Ange avgränsare du vill använda till TRUE , och resten av avgränsare till FALSE .
Till exempel, om vi vill tolka en textfil som ligger på John Smiths skrivbord , separerade med tabbar , skulle vi använda följande kod :
Workbooks.OpenText Filename : = _ " C: \\ Documents and Settings \\ Jsmith \\ Desktop \\ info.txt " , Ursprung : = 437 , StartRow _ : = 1 , Datatyp : = xlDelimited , TextQualifier : = xlDoubleQuote , _ConsecutiveDelimiter : = False , Tab : = Sant , Semikolon : = False , Comma : = False _ utrymme : = False , Övrigt : = False , FieldInfo : = Array ( 1 , 1 ) , _TrailingMinusNumbers : = Sant
4
Avsluta makrot genom att skriva " End Sub " . Spara makrot genom att klicka på knappen Spara i verktygsfältet . Stäng Visual Basic fönstret .
5
Kör makrot genom att klicka på fliken Visa i verktygsfältet . Klicka på Makron och välj makrot . Klicka på " Kör " knappen .
