VBA è utilizzato in Excel per creare macro che automatizzano i compiti che normalmente sarebbe fatto manualmente. La realizzazione di tali compiti manualmente può richiedere molto tempo e ingombrante . Molte volte gli utenti hanno bisogno di copiare e incollare i dati in Excel da file di testo . Semplicemente copiando e incollando i dati da un file di testo in Excel non si tradurrà in dati formattati correttamente . Il metodo OpenText è utilizzato per caricare un file di testo e analizzarlo . Un foglio di calcolo viene creato con i dati analizzati . Questo metodo elimina la necessità per l'utente di importare manualmente il file di testo e passare attraverso l '" Importazione guidata testo " . Istruzioni
1

Aprire una nuova cartella di lavoro . Premere Alt e F11 sulla tastiera per aprire l'editor VBA . Fare clic sul menu File e selezionare " Nuovo" . Doppio click sul foglio ( Foglio1 ) con Microsoft Excel Oggetti in vetro di finestra del Progetto - VBAProject .
2

Sub-tipo , seguito dal nome della macro in prima linea , come ad esempio Sub Open ( ) . È possibile assegnare la macro ogni nome che si desidera
3

Aggiungi il metodo OpenText , specificando le seguenti informazioni : .

1 . Directory del file si trova in.2 . Numero di riga che si desidera iniziare a importare i dati dentro L'origine del file è 437 : OEM Stati Uniti per impostazione predefinita se si è nel Regno States.3 . Scegliere se si desidera analizzare il file in un delimitato rispetto a larghezza fissa. Con delimitato , è necessario specificare che cosa il delimitatore è quello di analizzare il file , come ad esempio scheda , punto e virgola , virgola , uno spazio o un delimitatore personalizzato. Impostare il delimitatore che si desidera utilizzare per TRUE , e il resto dei delimitatori su FALSE .

Per esempio , se vogliamo analizzare un file di testo che si trova sul desktop di John Smith , separati da tabulazioni , useremmo il seguente codice :

Workbooks.OpenText Filename : = _ " C: \\ Documents and Settings \\ Jsmith \\ Desktop \\ info.txt " , Origine : = 437 , StartRow _ : = 1 , Tipo dati: = xlDelimited , TextQualifier : = xlDoubleQuote , _ConsecutiveDelimiter : = False , Tab : = True , Punto e virgola : = False , Comma : = False _ , Spazio : = False , Other : = False , FieldInfo : = array ( 1 , 1 ) , _TrailingMinusNumbers : = True
4

Fine della macro digitando "End Sub " . Salvare la macro facendo clic sul pulsante Salva nella barra degli strumenti . Chiudere la finestra di Visual Basic .
5

Eseguire la macro facendo clic sulla scheda Visualizza della barra degli strumenti . Fare clic su Macro e selezionare la macro . Fare clic sul pulsante " Esegui" .