Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky

Domáce Hardware Siete Programovanie Softvér Otázka Systémy

Ako kopírovať obsah z textového súboru do tabuľkového procesora pomocou jazyka VBA

makrá Microsoft Excel vám pomôže automatizovať takmer akýkoľvek druh úlohy , zvýšiť svoju produktivitu a zlepšiť efektivitu . Napísané v jazyku VBA , makrá možno vytvoriť , manipulovať a odstrániť dáta v akomkoľvek tabuľkovom procesore . Okrem toho môžete použiť makrá chytiť informácií z externej databázy alebo súboru . Ak chcete importovať údaje z textového súboru ručne , mali by ste otvoriť súbor v textovom editore , skopírujte jeho obsah a vložiť ich v programe Excel . Ak máte čo do činenia s mnohými textových súborov , táto metóda môže zdať skľučujúca a zdĺhavé . Jednoduchá funkcia VBA vám môže pomôcť automatizovať . Pokyny dovolená 1

Spustite program Microsoft Excel . Stlačením tlačidla " Ctrl + N " vytvoriť nový zošit . Ak chcete použiť jeden z vašich zošitov miesto, stlačte " Ctrl + O " , vyberte súbor a potom kliknite na " Otvoriť " .
2

Stlačte tlačidlo " Alt + F8 " sa otvorí dialógové okno Makrá . Zadajte " GetFromTextFile " do poľa Názov makra a potom kliknite na " Vytvoriť " .
3

Zadajte nasledujúci kód do editora VBA . Nahradiť " C : \\ YOURTEXTFILE.txt " . Se presné umiestnenie textového súboru , ktorý chcete importovať

Sub GetFromTextFile ( )

Dim sFile , WholeLine As String

Dim startCell ako rozsah

Dim c As Integer

septembra = Chr ( 13 )

Application.ScreenUpdating = False

sFile = " c : \\ YOURTEXTFILE.txt "

Otvoriť sFile Pre vstup Access Prečítajte si ako # 1

keď nie EOF ( 1 )

Linkový vstup # 1 , WholeLine

pravá ( WholeLine , 1 ) < > septembra Potom

WholeLine = WholeLine a septembra

End If

ActiveCell.NumberFormat = " @ "

ActiveCell.Value = WholeLine

ActiveCell.Offset ( 1 , 0 ) . Vyberte

Wend

Close # 1

End Sub
< br
5

Stlačením tlačidla " Shift + F11 " > 4

Stlačte tlačidlo " Alt + Q " zatvorte editor VBA a vrátiť sa do svojho zošita . vytvoriť prázdny hárok .
6

Stlačte tlačidlo " Alt + F8 " sa otvorí dialógové okno Makrá znova . Vyberte " Získať FromTextFile " a potom kliknite na " Run " . Tento skopíruje obsah textového súboru do prázdneho listu .

Najnovšie články

Copyright © počítačové znalosti Všetky práva vyhradené