June 29
Uno dei primi passi per imparare la programmazione informatica è imparare a 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 in applicazioni di Microsoft Office per automatizzare processi come copiare dati tra file. In VBA, è possibile utilizzare gli oggetti di Office per aprire i documenti di Word o altre applicazioni di Office, che consente di accedere ai programmi esterni e manipolare ulteriormente i dati.
1 Avviare Microsoft Office Word, fare clic sulla scheda "Sviluppatore" sulla barra multifunzione e fare clic su "Visual Basic" per avviare la finestra editor VBA. Fare clic sul menu "Inserisci" e fare clic su "Modulo" per inserire un nuovo modulo di codice. Creare una nuova routine Sub:
copyFileContents Private Sub ()
2 Aggiungere il seguente codice per creare gli oggetti applicativi Word e altre variabili:
Dim wrdApp Come Word.Application
wrdDoc fioco come Word.Document
Dim i, R come Integer
Dim lCntr As Integer
3 Aggiungere codice per aprire il file di testo e copiare tutto il suo contenuto ad un array di stringhe:
Dim Stringa (10) As String
Apri "C \ <text filename> .txt" per l'ingresso come 1 #
Do While Not EOF (1)
Input #1, MyString(lCntr)
lCntr = lCntr + 1
Ciclo continuo
Close # 1
4 Copia e incolla il seguente codice per aggiungere il contenuto di matrice al documento Word corrente:
Per i = 0 Per lCntr - 1
Selection.TypeParagraph
Selection.TypeText Testo: = MyString (i)
MyString (I - 0) = ""
Next i
5 Aggiungere il seguente codice per aggiungere alcuni dati al documento Word corrente:
Selection.TypeParagraph
Selection.TypeText Testo: = "Questi dati sono in una parola"
Selection.Expand wdLine
6 Digitare il seguente codice per aprire il file di testo e aggiungere il testo aggiunto nel passaggio precedente:
MyFile = "C: <nome file> \ .txt"
fn = FreeFile ()
Aprire MyFile per l'output come fn
Scrivi #fn, Selection.Text
Chiudi #fn
7 Aggiungere il seguente codice per rilasciare gli oggetti di Word dalla memoria e terminare la procedura sotto:
wrdApp.Quit
Set wrdDoc = Nothing
Set wrdApp = Nothing
End Sub
8 Premere il tasto "F5" per eseguire il codice VBA.