Visual Basic resultaten opslaan

Status
Niet open voor verdere reacties.
J

JelcoRC

Gebruiker
Lid geworden
31 mei 2012
Berichten
9
Hallo,

Ik ben hier nieuw,

Ik heb een vraag over visual basic, ik heb reeds een bestandje voor het zoeken van email adressen in een word document, als ik het programma laat lopen is er geen probleem, en krijg ik de mailadressen in zo'n tabeletje, dan kan ik enkel maar op OK klikken, ik zou gewoon die mailadressen willen opslaan in een ander word document, hoe moet ik dat doen ?

MVG
 
Bedoel je Visual Basic of Visual Basic for Applications? VBA is programmeren binnen Office applicaties.
 
Visual Basic op Microsoft Word 2007,
 
Laatst bewerkt door een moderator:
Ik zou zeggen: hou ons niet langer in spanning, en post de code die je nu gebruikt ;) Graag opmaken met de CODE knop om hem leesbaar te houden.
 
Dit is de code in een code bracket :D iets simpeler te lezen dan een .txt

Code: 
Sub EmailSplitsen()
Dim sTmp As String, sLijst() As String, i As Integer, x As Long, Teller As Integer

    sHuidigeTekst = "@"
    Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .Text = sHuidigeTekst
        .Forward = True
        Do While .Execute
            If .Found Then Teller = Teller + 1
        Loop
    End With
    Selection.HomeKey Unit:=wdStory
    MsgBox Teller

    ReDim Preserve sLijst(Teller)

    Selection.HomeKey Unit:=wdStory
    For i = 1 To Teller
        Selection.Find.Text = "@"
        Selection.Find.Execute
        Selection.MoveLeft Unit:=wdCharacter, Count:=1
        Selection.MoveLeft Unit:=wdWord, Count:=1
        Selection.MoveRight Unit:=wdWord, Count:=5, Extend:=wdExtend
        sLijst(i) = Selection.Range.Text
        sTmp = sTmp & sLijst(i) & vbCrLf
        Selection.MoveRight Unit:=wdCharacter, Count:=1
    Next

MsgBox sTmp

End Sub
 
Ik kan het lezen, maar ik wil gewoon dat die in een documentje komen


MVG
 
Laatst bewerkt door een moderator:
De simpele manier.
Bestaande code onder Msgbox sTmp aanvullen met:

Open "C:\emails_adressen.doc" For Output As #1
Print #1, stmp
Close #1
 
Laatst bewerkt:
Moet ik dan in mijn C schijf een nieuw bestand maken ?

want nu lukt het niet
 
@JelcoRC Onnodige quotes verwijderd. Wanneer je direct reageert op een reactie is het niet nodig om dat bericht te quoten. Onnodig quoten heet dat, hetgeen niet gewenst is.
 
"C:\emails_adressen.doc" is maar een voorbeeld.
Uiteraard kun je dat aanpassen naar eigen wens.
Het bestand hoeft niet te bestaan, deze wordt door die code aangemaakt.
 
Welke drie regels heb je nu dan aan je code toegevoegd?
 
Open "C:\emails_adressen.doc" For Output As #1
Print #1, stmp
Close #1
 
Laatst bewerkt door een moderator:
En krijg je daar een foutmelding op?
De kans is dat je niet mag schrijven op C:\
Vandaar dat ik zei dat het maar een voorbeeld is en je dit naar eigen wens kunt aanpassen.
 
@JelcoRC Nogmaals, voor de tweede keer het verzoek. Zou je willen stoppen met het onnodig quoten van berichten. Heb nu al diversen reacties van je aangepast.
 
Ik probeer het op mijn usb stick en heb dit erop gezet, en het lukt niet

Code: 
 Open "J:\test.txt\" For Output As #1
    Print #1, sTmp
    Close #1
 
Laatst bewerkt door een moderator:
Je hebt wel een pad opgegeven maar geen documentnaam.
Maak er dit van:

Code: 
Open "J:\test.txt" For Output As #1
Print #1, sTmp
Close #1
 
Laatst bewerkt door een moderator:
Hoe moet ik het dan doen ?

MVG
 
Laatst bewerkt door een moderator:
Uuuhh, zoals ik net zeg?
Er is een \ teken uit je eigen aanpassing verwijderd.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan