Et af de første skridt til at lære edb-programmering er at lære at læse fra en fil og tilføje indhold til en anden , som f.eks et Word-dokument . VBA er et programmeringssprog, der kan bruges i Microsoft Office-programmer til at automatisere processer såsom kopiering af data mellem filer. I VBA kan du bruge Office objekter til at åbne Word- dokumenter eller andre Office-programmer , så du kan få adgang til eksterne programmer, og yderligere manipulere data. Ting du skal
Microsoft Office
Vis Flere Instruktioner
1

Launch Microsoft Office Word , skal du klikke på "Udvikler "-fanen på båndet , og klik på " Visual Basic " for at starte VBA editoren vinduet. Klik på " Indsæt" menuen og klikke på " Modul " for at indsætte en ny kode modul. Opret en ny sub procedure :

Private Sub copyFileContents ( )
2

Føj følgende kode til at oprette Word programobjekter og andre variabler : Hej

Dim wrdApp Som Word.Application

Dim wrdDoc Som Word.Document

Dim i, r As Integer

Dim lCntr As Integer
3

Tilføj kode for at åbne tekstfilen og kopiere hele indholdet til en streng vifte : Hej

Dim myString (10) As String

Åbn " . C \\ txt " For Input som # 1

Do While Not EOF (1)

Input # 1, myString ( lCntr )

lCntr = lCntr + 1

Loop < br >

Luk # 1
4

Kopier og indsæt følgende kode til at tilføje array indhold til det aktuelle Word-dokument : Hej

for i = 0 Til lCntr - 1 < br >

Selection.TypeParagraph

Selection.TypeText Text: = myString ( i)

myString (i - 0) = " "

Næste jeg
< br > 5

Føj følgende kode til at tilføje nogle data til det aktuelle Word-dokument : Hej

Selection.TypeParagraph

Selection.TypeText Text: = " Disse data er i Word " < br >

Selection.Expand wdLine
6

Indtast følgende kode til at åbne tekstfilen og tilføje tekst tilføjet i det forrige trin : Hej

minfil = " C: \\ < ; . filnavn > txt "

fn = FreeFile ()

Open minfil For Output Da fn

Skriv # fn , Selection.Text

Luk # fn
7

Føj følgende kode til at frigive Word objekter fra hukommelsen og afslutte sub procedure : Hej

wrdApp.Quit

Set wrdDoc = Nothing

Set wrdApp = Nothing

End Sub
8

Tryk på " F5 " for at køre VBA-kode.