VBA wordt gebruikt in Excel om macro's die taken die normaal handmatig gedaan zou worden automatiseren . Handmatig uitvoeren van deze taken kan tijdrovend en omslachtig . Vele malen gebruikers nodig hebben om gegevens te kopiëren en te plakken in Excel uit tekstbestanden . Gewoon kopiëren en plakken van de gegevens uit een tekstbestand in Excel zal niet resulteren in een goed geformatteerde gegevens . De OpenText methode wordt gebruikt om een tekst bestand te laden en ontleden . Een spreadsheet is gemaakt met de ontleed gegevens . Deze methode elimineert de noodzaak voor de gebruiker om het tekstbestand handmatig importeren en ga door de " wizard Tekst importeren " . Instructies
1 Open een nieuwe werkmap . Druk op Alt en F11 op uw toetsenbord om de VBA- editor te openen . Klik op het menu Bestand en selecteer " Nieuw " . Dubbelklik op Sheet ( Sheet1 ) onder Microsoft Excel objecten in het deelvenster Project - VBAProject venster . Kopen van 2 Type Sub , gevolgd door de macro naam in de eerste lijn , zoals Sub Open ( ) . U kunt de macro elke naam geven die u wilt
3 In de OpenText -methode , onder vermelding van de volgende gegevens : .
1 . Directory het bestand zich bevindt in.2 . Rijnummer u wilt beginnen importeren van de gegevens in het bestand oorsprong is 437 : OEM Verenigde Staten door standaard als je in de Verenigde States.3 . Kies of u het bestand wilt ontleden in een afgebakend versus vaste breedte . Met afgebakend , moet u aangeven wat het scheidingsteken is om het bestand te ontleden , zoals tab , puntkomma , komma, spatie , of een aangepaste scheidingsteken . Stel het scheidingsteken u wilt gebruiken op TRUE , en de rest van de scheidingstekens aan .
FALSE Bijvoorbeeld , als we willen een tekst bestand op John Smith 's desktop , gescheiden door tabs ontleden , zouden we gebruiken de volgende code : Workbooks.OpenText Bestandsnaam
: = _ " C : \\ Documents and Settings \\ jsmith \\ Desktop \\ info.txt " , Herkomst : = 437 , StartRow _ : = 1 , DataType : = xlDelimited , TextQualifier : = xlDoubleQuote , _ConsecutiveDelimiter : = False , Tab : = True , Puntkomma : = False , Comma : = False _ , Space : = False , Andere : = False , FieldInfo : = Array ( 1 , 1 ) , _TrailingMinusNumbers : = True
End 4 de macro door het intikken van " End Sub " . Sla de macro door te klikken op de knop Opslaan in de werkbalk . Sluit de Visual Basic -venster .
5 De macro uitvoeren door te klikken op het tabblad Weergave in de werkbalk . Klik op Macro's en selecteer de macro . Klik op de " Run" knop .
|
