En av de første skritt for å lære programmering er å lære hvordan å lese fra en fil og legge til innholdet til en annen, for eksempel et Word-dokument . VBA er et programmeringsspråk som kan brukes i Microsoft Office-programmer til å automatisere prosesser som kopierer data mellom filene . I VBA , kan du bruke Office- objekter for å åpne Word-dokumenter eller andre Office- programmer , slik at du kan få tilgang til eksterne programmer og ytterligere manipulere data . Du trenger
Microsoft Office
Vis flere instruksjoner
en

Launch Microsoft Office Word , klikk på " Utvikler " fanen på båndet , og klikk " Visual Basic" til starte VBA editor vinduet . Klikk på " Insert"-menyen og klikk " Module" å sette inn en ny kode modul . Opprett en ny sub prosedyre :

Private Sub copyFileContents ( )
2

Legg til følgende kode for å opprette Word- programmet objekter og andre variabler : en

Dim wrdApp As Word.Application

Dim wrdDoc Som Word.Document

Dim i, r As Integer

Dim lCntr As Integer
3

Legg til kode for å åpne tekstfilen og kopiere alt innholdet til en streng rekke : en

Dim myString ( 10 ) As String

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

Mens Not EOF ( 1 )

Input # 1 , myString ( lCntr )

lCntr = lCntr + 1

Loop

Close # 1
4

Kopier og lim inn følgende kode for å legge matrisen til den aktuelle Word -dokument : en

for i = 0 For å lCntr - 1

Selection.TypeParagraph

Selection.TypeText Tekst: = myString ( i)

myString (i - 0 ) = ""

Neste i

5

Legg til følgende kode for å legge til noen data til gjeldende Word dokument : en

Selection.TypeParagraph

Selection.TypeText Tekst: = " Denne informasjonen er i Word "

Selection.Expand wdLine
6

Skriv inn følgende kode for å åpne tekstfilen og legge til tekst lagt i forrige trinn : en

myfile = "C : \\ < ; . filnavnet > txt "

fn = FreeFile ( )

Åpen myfile For Output As fn

Skriv # fn , Selection.Text

Lukk # fn
7

Legg til følgende kode for å frigjøre Word gjenstander fra minnet og avslutte delprosedyre : en

wrdApp.Quit

Sett wrdDoc = Ingenting

Set wrdApp = Ingenting

End Sub
8

Trykk " F5 " for å kjøre VBA-kode.