Uno dei primi passi per imparare la programmazione informatica è imparare a leggere da un file e aggiungere il contenuto di un altro , ad esempio un documento di Word . VBA è un linguaggio di programmazione che può essere utilizzato nelle applicazioni di Microsoft Office per automatizzare processi come la copia dei dati tra i file . In VBA , è possibile utilizzare gli oggetti di Office per aprire i documenti di Word o altre applicazioni di Office , che consente di accedere a programmi esterni e modificare ulteriormente i dati . Cose che ti serviranno
Microsoft Office
Mostra più istruzioni
1

lancio di Microsoft Office Word , fare clic sulla scheda "Sviluppatore " sulla barra multifunzione e fare clic su " Visual Basic " per lanciare la finestra di editor VBA . Fai clic sul menu "Inserisci" e fare clic su "Modulo" per inserire un nuovo modulo di codice . Creare una nuova procedura di sub :

copyFileContents Private Sub ( ) economici 2

Aggiungere il seguente codice per creare gli oggetti applicativi Word e altre variabili :

Dim wrdApp come Word.Application

Dim wrdDoc Come Word.Document

Dim i , r As Integer Dim

lCntr As Integer
3

aggiungere il codice per aprire il file di testo e copiare tutto il contenuto di un array di stringhe :

Dim Stringa ( 10) As String

Apri ". C \\ txt " per l'ingresso come # 1

Do While Not EOF ( 1 ) per

Input # 1 , Stringa ( lCntr ) per

lCntr = lCntr + 1

loop < br >

Chiudere # 1
4

Copia e incolla il seguente codice per aggiungere il contenuto della matrice al documento di Word corrente :

For i = 0 To lCntr - 1 < br >

Selection.TypeParagraph

Selection.TypeText Text : = Stringa (i ) per

MyString (I - 0 ) = " "

Next i

5

aggiungere il seguente codice per aggiungere alcuni dati al documento di Word corrente :

Selection.TypeParagraph

Selection.TypeText Text : = "Questi dati sono in Word " < br >

Selection.Expand wdLine
6

Digitare il seguente codice per aprire il file di testo e aggiungere al testo aggiunto nel passaggio precedente :

MyFile = " C : \\ < , . nome del file > txt "

fn = FreeFile ( ) per

aperto MyFile per uscita come fn

Scrivi # fn , Selection.Text

Chiudi # fn
7

Aggiungere il seguente codice per sbloccare gli oggetti di Word dalla memoria e terminare la procedura sub :

wrdApp.Quit

wrdDoc = Nothing

wrdApp = Nothing End Sub

8

Premere " F5 " per eseguire il codice VBA .