Ett av de första stegen för att lära datorprogrammering är att lära sig att läsa från en fil och lägg till innehållet till en annan , till exempel ett Word- dokument . VBA är ett programmeringsspråk som kan användas i Microsoft Office-program för att automatisera processer som kopierar data mellan filer . I VBA kan du använda Office- objekt för att öppna Word- dokument eller andra Office-program , så att du kan komma åt externa program och ytterligare manipulera data . Saker du behöver
Microsoft Office
Visa fler instruktioner
1
Launch Microsoft Office Word , klicka på " Utvecklare " fliken i menyfliksområdet och klicka på " Visual Basic " till starta VBA editorn fönstret . Klicka på " Infoga " -menyn och klicka på " modul " för att infoga en ny kod modul . Skapa ett nytt sub förfarande :
Private Sub copyFileContents ( )
2
Lägg till följande kod för att skapa objekten programmet Word och andra variabler :
Dim wrdApp Som Word.Application
Dim wrdDoc Som Word.Document
Dim i, r As Integer
Dim lCntr As Integer
3
Lägg koden för att öppna textfilen och kopiera allt innehåll till en sträng array :
Dim MyString ( 10 ) As String
Öppna " . C \\ txt " för Input som # 1
Do While Not EOF ( 1 ) katalog
Input # 1 , MyString ( lCntr ) katalog
lCntr = lCntr + 1
Loop
Stäng # 1
4
Kopiera och klistra in följande kod för att lägga till array innehållet till det aktuella Word-dokumentet :
för i = 0 Till lCntr - 1
Selection.TypeParagraph
Selection.TypeText Text : = MyString (i ) katalog
MyString (i - 0 ) = " "
Nästa jag
5
Lägg till följande kod för att lägga till vissa uppgifter i det aktuella Word- dokumentet :
Selection.TypeParagraph
Selection.TypeText Text : = " Dessa data är i Word "
Selection.Expand wdLine
6
Skriv in följande kod för att öppna textfilen och lägga till texten lagts till i föregående steg :
myFile = " C : \\ < ; . filnamn > txt "
fn = FreeFile ( ) katalog
Öppen myFile för utskrift som fn
Skriv # fn , Selection.Text
Stäng # fn
7
Lägg till följande kod för att frigöra Word objekt från minnet och avsluta sub förfarande :
wrdApp.Quit
Set wrdDoc = Nothing
Set wrdApp = Nothing
End Sub
8
Tryck " F5 " för att köra VBA-kod .
