Ako používať OpenText metódu v programe Excel

VBA sa používa v programe Excel vytvoriť makrá, ktoré automatizujú úlohy , ktoré by za normálnych okolností urobiť ručne . Vykonávanie týchto úloh ručne , môže byť časovo náročné a ťažkopádne . Mnohokrát užívatelia potrebujú skopírovať a vložiť dáta do aplikácie Excel z textových súborov . Jednoducho kopírovanie a vkladanie dát z textového súboru do programu Excel nebude mať správne formátovaných dát . Metóda OpenText sa používa na načítanie textového súboru a analyzovať ju . Tabuľka je vytvorená pomocou analyzovaných dát . Táto metóda eliminuje potrebu užívateľa ručne importovať textový súbor a ísť cez " Sprievodcu importom textu " . Pokyny dovolená 1

Otvorte nový zošit . Stlačte kláves Alt a F11 na klávesnici otvorte editor VBA . Kliknite na ponuku Súbor a vyberte položku " Nový" . Dvojitým kliknutím na list ( Hárok1 ) pod objekty programu Microsoft Excel v table Project - VBAProject .
2

typu Sub , po ktorom nasleduje názov makra v prvom riadku , ako je Sub Otvorte ( ) . Môžete si dať makro ľubovoľný názov , ktorý chcete
3

Pridať metódu OpenText , určenie nasledujúce informácie : .

1. Adresár je súbor umiestnený v odseku .2 . Číslo riadku chcete začať importovať dáta dovnútra súboru pôvodu je 437 : OEM Spojené štáty v predvolenom nastavení , ak ste v Spojených States.3 . Vyberte , či chcete analyzovať súbor s oddeľovačmi proti pevnou šírkou . S oddelený , musíte určiť , čo oddeľovač je analyzovať súbor , napríklad kartu , bodkočiarka , čiarka , medzera , alebo prispôsobené oddeľovač . Nastaviť oddeľovač , ktorý chcete použiť na TRUE , a zvyšok oddeľovače na hodnotu false .

Napríklad , ak chceme analyzovať textový súbor umiestnený na Johna Smitha plochy , ktoré sú oddelené tabulátorom , budeme používať nasledujúci kód :

Workbooks.OpenText Meno súboru : = _ " C : \\ Documents and Settings \\ standa \\ Desktop \\ info.txt " , Pôvod : = 437 , StartRow _ : = 1 , Dátový typ : = xlDelimited , TextQualifier : = xlDoubleQuote , _ConsecutiveDelimiter : = False , Tab : = TRUE , bodkočiarku : = False , Comma : = False _ , Space : = False , Ostatné : = False , FieldInfoobjekty : = Array ( 1 , 1 ) , _TrailingMinusNumbers : = TRUE
4

Koniec makro zadaním " End Sub " . Uložte makro kliknutím na tlačidlo Uložiť na paneli nástrojov. Zatvorte Visual Basic okno .
5

Spustiť makro kliknutím na karte Zobraziť na paneli nástrojov. Kliknite na tlačidlo Makrá a vyberte makrá . Kliknite na tlačidlo " Spustiť " .

• Predchádzajúca strana: Ako začať s aplikáciou Excel VBA 
• Ďalšia strana: Ako sa zbaviť Lotus Notes panela nástrojov v aplikácii Microsoft Excel