Uno dei primi passi per imparare la programmazione del computer sta imparando come leggere da un file e aggiungere il contenuto a un altro, ad esempio un documento di Word. VBA è un linguaggio di programmazione che può essere utilizzato nelle applicazioni di Microsoft Office per automatizzare i processi quali la copia di dati tra i file. In VBA, è possibile utilizzare gli oggetti di Office per aprire documenti di Word o altre applicazioni di Office, consente di accedere a programmi esterni e modificare ulteriormente i dati.
Istruzioni
1
Avviare Microsoft Office Word, fare clic sulla scheda "Sviluppatore" sulla barra multifunzione e fare clic su "Visual Basic" per avviare la finestra di editor di VBA. Fare clic sul menu "Inserisci" e scegliere "Modulo" per inserire un nuovo modulo di codice. Creare una nuova routine sub:
Private Sub copyFileContents()
2
Aggiungere il codice seguente per creare gli oggetti dell'applicazione Word e altre variabili:
Dim wrdApp As Word. Application
Dim wrdDoc As Word. Document
I, r As Integer Dim
Dim lCntr As Integer
3
Aggiungere il codice per aprire il file di testo e copiare tutto il suo contenuto in una matrice di stringhe:
Dim MyString(10) As String
Aprire "C \ < nome di file di testo >. txt" For Input As #1
Mentre non EOF (1)
Input #1, MyString(lCntr)
lCntr = lCntr + 1
Loop
Close #1
4
Copiare e incollare il codice seguente per aggiungere il contenuto della matrice per il documento corrente:
Per i = 0 To lCntr - 1
Selection.TypeParagraph
Selection.TypeText Text:=MyString(i)
MyString(i - 0) = ""
Prossima ho
5
Aggiungere il codice seguente per aggiungere alcuni dati per il documento corrente:
Selection.TypeParagraph
Selection. TypeText Text: = "i dati sono in Word"
Selection.Expand wdLine
6
Digitare il codice seguente per aprire il file di testo e aggiungere il testo aggiunto nel passaggio precedente:
MyFile = "C:\ < nome file >. txt"
FN = FreeFile)
MyFile aperto per Output come fn
Scrivere #fn, Selection. Text
Chiudere #fn
7
Aggiungere il codice seguente per rilasciare gli oggetti di Word dalla memoria e terminare la routine sub:
wrdApp.Quit
Impostare wrdDoc = Nothing
Impostare wrdApp = Nothing
End Sub
8
Premere "F5" per eseguire il codice VBA.