Come copiare il contenuto di un file di testo a un foglio di calcolo che utilizza VBA

January 19

Come copiare il contenuto di un file di testo a un foglio di calcolo che utilizza VBA


macro di Microsoft Excel è possibile automatizzare quasi ogni tipo di attività, aumentando la produttività e migliorare la vostra efficienza. Scritto in VBA, le macro possono creare, manipolare e rimuovere i dati all'interno di qualsiasi foglio di calcolo. Inoltre, è possibile utilizzare le macro per catturare le informazioni da un database esterno o un file. Per importare dati da un file di testo manualmente, si dovrebbe aprire il file in un elaboratore di testi, copiare il suo contenuto e la incollarli in Excel. Se avete a che fare con molti file di testo, questo metodo può sembrare scoraggiante e noioso. Una funzione semplice VBA può aiutare ad automatizzare esso.

istruzione

1 Avviare Microsoft Excel. Premere il tasto "Ctrl + N" per creare una nuova cartella di lavoro. Per utilizzare una delle cartelle di lavoro, invece, premere "Ctrl + O", selezionare il file e fare clic su "Apri".

2 Premere il tasto "Alt + F8" per aprire la finestra di dialogo Macro. Tipo "GetFromTextFile" nella casella Nome Macro e quindi cliccare su "Crea".

3 Immettere il seguente codice nell'editor di VBA. Sostituire "C: \ YOURTEXTFILE.txt" con la posizione esatta del file di testo che si desidera importare.

Sub GetFromTextFile ()

Dim sFile, WholeLine As String

Dim StartCell come gamma

Dim C As Integer

Settembre = Chr (13)

Application.ScreenUpdating = False

sFile = "C: \ YOURTEXTFILE.txt"

Aprire sFile For Access Input letto come 1 #

Mentre non EOF (1)

Line Input #1, WholeLine

Se a destra (WholeLine, 1) & lt;> Settembre Poi

WholeLine = WholeLine e settembre

Finisci se

ActiveCell.NumberFormat = "@"

ActiveCell.Value = WholeLine

ActiveCell.Offset (1, 0) .Select

Wend

Close # 1

End Sub

4 Premere il tasto "Alt + Q" per chiudere l'editor VBA e tornare alla cartella di lavoro.

5 Premere il tasto "Shift + F11" per creare un foglio bianco.

6 Premere il tasto "Alt + F8" per aprire di nuovo la finestra di dialogo Macro. Selezionare "Get FromTextFile" e quindi fare clic su "Esegui". Questa operazione copia il contenuto del file di testo al foglio bianco.

Consigli e avvertenze

  • Per ottenere l'esatta posizione di qualsiasi file sul vostro computer, tenere premuto il tasto "Shift" e quindi fare clic destro sulla sua icona del file. Scegliere "Copia come percorso" dal menu contestuale. Questa invia la posizione del file (racchiuso tra virgolette) negli appunti.
  • Per impostazione predefinita, non si può essere in grado di creare o eseguire le macro in Microsoft Excel. Per attivare le macro, fare clic sul pulsante Microsoft Office e poi andare a "Opzioni di Excel." In "popolare", fare in modo che "Mostra scheda Sviluppo" è selezionata. In seguito, andare a "Centro protezione" e quindi fare clic su "Impostazioni Centro." Clicca su "Impostazioni macro" e quindi selezionare "Attiva tutte le macro". Fai clic su "OK" su entrambe le finestre di dialogo per salvare le modifiche. In alcuni casi, potrebbe essere necessario riavviare Excel per le modifiche abbiano effetto.