Hej. er der nogen der kan fortælle mig hvordan jeg eksporterer en række data (i dette tilfælde e-mail adresser) fra et access "dokument" til en word fil. Dvs. opstillet med semikolon i mellem, således de er nemme at kopiere direkte ind modtager feltet i en email. Det må gerne være ved hjælp af eks. vba kodning.
Jeg prøvede at gøre det på den måde at jeg lavede en krydstab. forespørgsel på tabellen, således at kolonnen med emailadresser bliver kolonneoverskriften. Derefter eksporterede jeg til excel, hvor jeg slettede de overflødige rækker og kolonner. Derefter gemte jeg filen som en CSV-fil (kommasepareret fil). Åbn derefter med programmet Notesblok (Notepad) og "Voila" har du adressene listet separeret med semikolon.
Hvis du er tilfreds med det, så er alt jo OK, men det er da noget af en omvej. Denne kode gør det samme- Liste1 indeholder alle e-mailadresser:
Private Sub Kommandoknap0_Click() Dim Itm As Variant Dim txt As String Dim VARa As Variant If Me!Liste1.ItemsSelected.Count > 0 Then For Each Itm In Me!Liste1.ItemsSelected txt = txt & Me!Liste1.ItemData(Itm) & "; " Next Itm txt = Left(txt, Len(txt) - 2) End If Me!FLDemail = txt VARa = txt End Sub
Det ser rigtigt fint ud Mugs. Jeg får bare en fejlbesked når jeg prøver at køre denne kode.
Compile Error: Invalid use of Me keyword
Hvad er Me? Jeg prøvede at definere Me (dim), men det kan jeg ikek få lov til. Har søgt på Microsoft's database efter en funktion der heeder Me, men kan ikke finde noget.
Me er et reserveret ord i Access. Me refererer til den altid aktuelle formular, og koden skal således indsætttes i den formular hvori du har din liste.
Me!Liste1 betyder således en liste med navnet Liste1 i den åbne formular.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.