VBA è utilizzato in Excel per creare macro che consentono di automatizzare i compiti che normalmente essere fatto manualmente. La realizzazione di tali compiti manualmente può richiedere molto tempo e ingombrante. Molti utenti volte hanno bisogno di copiare e incollare i dati in Excel da file di testo. Basta copiare e incollare i dati da un file di testo in Excel, non si tradurrà in dati formattata correttamente. Il metodo OpenText viene 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 il \ "Importazione guidata testo \".

istruzione

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 \". Fare doppio clic sul foglio (Foglio1) in Microsoft Excel oggetti nel riquadro finestra Project-VBAProject.

2 Sub-tipo, seguito dal nome della macro in prima linea, come Sub Open (). È possibile dare il macro qualsiasi nome che si desidera.

3 Aggiungere il metodo OpenText, specificando le seguenti informazioni:

Directory il file si trova in.Row numero che si desidera iniziare l'importazione dei dati in L'origine del file è 437:. OEM Stati Uniti di default, se siete negli Stati States.Choose se si desidera analizzare il file in un delimitato rispetto al fisso larghezza. Con delimitato, è necessario specificare che cosa il delimitatore è quello di analizzare il file, come ad esempio scheda, punto e virgola, virgola, spazio, o un delimitatore personalizzato. Impostare il delimitatore che si desidera utilizzare su TRUE, e il resto dei delimitatori FALSE.

Ad esempio, se vogliamo analizzare un file testo che si trova sul desktop di John Smith, separato da tabulazioni, vorremmo utilizzare il seguente codice:

Workbooks.OpenText Filename:= _
\"C:\\Documents and Settings\\Jsmith\\Desktop\\info.txt\", Origin:=437, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True

4 Terminare la 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 nella barra degli strumenti. Fare clic su macro e selezionare la macro. Fare clic sul pulsante \ "Run \".