Avatar billede syncroniq Nybegynder
26. februar 2007 - 16:05 Der er 5 kommentarer

Excel vba, indhold til variabel videre til mail

Hej,

Jeg har et område ("A8:N20") som jeg gerne vil have indholdet over i en variabel og så sendt via mail. Området indeholder noget tekst og nogle dropdown lister.

Nogen der har et eksempel?

Jeg kan lave en select :
Range("A8:N20").Select

men ikke få indholdet over i en variabel.
Avatar billede kabbak Professor
26. februar 2007 - 16:49 #1
Data = Range("A8:N20")

Nu er alle celler i variablen Data
Avatar billede syncroniq Nybegynder
27. februar 2007 - 07:46 #2
Hey,

Super. Men hvordan bruger jeg den så? Og hvilke datatype bliver den? Skulle gerne have det over i en mail.
Avatar billede syncroniq Nybegynder
27. februar 2007 - 07:53 #3
Har følgende indtil nu

Dim sExcelData
Dim objOutlook
Dim objMailItem

Set objOutlook = CreateObject("Outlook.Application")
Set objMailItem = objOutlook.CreateItem(olMailItem)

sExcelData = Range("A8:N20")

With objMailItem
    .To = "hrh@formula.dk"
    .Subject = "Excel mail"
    .Body = Range("A8:N20")
    .Send
End With

Set objOutlook = Nothing
Set objMailItem = Nothing

Men det virker ikke. Den siger at .Body nedre grænse for matriksen skal være nul.... ?!?
Avatar billede syncroniq Nybegynder
27. februar 2007 - 07:54 #4
Jeg ville egenlig også hellere at den laver en mail klar, hvor jeg selv kan skrive til, emne osv og så trykke send.... hvis det kan lade sig gøre.
Avatar billede kabbak Professor
27. februar 2007 - 09:30 #5
Dim sExcelData
Dim objOutlook
Dim objMailItem
Dim C As Range
X = 0
Set objOutlook = CreateObject("Outlook.Application")
Set objMailItem = objOutlook.CreateItem(olMailItem)
For Each C In Range("A8:N20")
sExcelData = sExcelData & C & " "
Next

With objMailItem
    .To = "hrh@formula.dk"
    .Subject = "Excel mail"
    .body = sExcelData
    .Send
End With

Set objOutlook = Nothing
Set objMailItem = Nothing


Kan du bruge dette ??
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester