Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Daten aus Excel Datei per VB Script versenden.

Frage Microsoft Microsoft Office

Mitglied: 103148

103148 (Level 1)

21.05.2014 um 07:50 Uhr, 1492 Aufrufe, 1 Kommentar

Hallo,

wir haben eine Excel Datei Office 2007 in der wird in Mappe1 Daten eingegeben, diese erzeugen eine Auswertung die in Mappe 2 steht.

Nun möchte ich mit einer "Funktion" die Mappe2 aus Excel versenden.

Kann mir einer bitte genau erklären wie ich diese Funktion anlege.

Drücke ich auf den Entwicklermodus und dann auf VB Script und würde ein Sricpt ( aus google gefunden ) dort einfügen, passiert noch lange nichts mit der Zelle.
Wie wir so eine Funktion aktiv, auf einer Zelle?

Ideal wäre ich könnte über Office Outlook auch eine Vorlage ansprechen.

Mitglied: colinardo
21.05.2014, aktualisiert 18.07.2014
Hatten wir schon diverse male...
Ideal wäre ich könnte über Office Outlook auch eine Vorlage ansprechen.

Fürs letzte mal noch ein Beispiel:
01.
Sub SendWorkbook() 
02.
    Dim wb2 As Workbook 
03.
    Set wb2 = Workbooks.Add 
04.
    wb2.SaveAs "C:\Test.xlsx" 
05.
    email "max@muster.de", "Testsubject", "Testbody", Array(wb2.FullName) 
06.
End Sub 
07.
 
08.
 
09.
Function email(sMailto, sSubject, sBodyText, arrAttachments) 
10.
    On Error Resume Next 
11.
    Set objOutlook = GetObject("","Outlook.Application") 
12.
    If objOutlook Is Nothing Then 
13.
	Set objOutlook = CreateObject("Outlook.Application") 
14.
    End If 
15.
    Set objMail = objOutlook.CreateItem(0) 
16.
    ' wenn gewünscht Mail stattdessen anhand eines *.oft Templates erstellen 
17.
    ' Set objMail = objOutlook.CreateItemFromTemplate("C:\PfadzumTemplate\Vorlage.oft") 
18.
    If Not objMail Is Nothing Then 
19.
        With objMail 
20.
            .To = sMailto 
21.
            .Subject = sSubject 
22.
            .Body = sBodyText 
23.
            If UBound(arrAttachments) <> -1 Then 
24.
                For i = 0 To UBound(arrAttachments) 
25.
                    .Attachments.Add arrAttachments(i) 
26.
                Next 
27.
            End If 
28.
            .Display 
29.
            '.Send 
30.
        End With 
31.
    End If 
32.
    Set objOutlook = Nothing 
33.
End Function

Grüße Uwe

p.s. und schließe mal deine alten Threads wenn sie nicht mehr aktuell sind. Merci.
Bitte warten ..
Ähnliche Inhalte
VB for Applications
gelöst VB Skript Excel Datei (3)

Frage von Frager zum Thema VB for Applications ...

VB for Applications
gelöst VB-Script per Aufgabenplanung (2)

Frage von S4kar97 zum Thema VB for Applications ...

Microsoft Office
gelöst Excel Datei bleibt unbearbeitet trotz täglichem Zugriff (61)

Frage von Edaseins zum Thema Microsoft Office ...

Neue Wissensbeiträge
Batch & Shell

Batch als Dienst bei Systemstart ohne Anmeldung ausführen

(2)

Tipp von tralveller zum Thema Batch & Shell ...

Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(9)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Heiß diskutierte Inhalte
Exchange Server
Exchange 2016 Standard Server 2012 R2 Hetzner Mail (36)

Frage von Datsspeed zum Thema Exchange Server ...

Windows 7
Lokales Adminprofil defekt (18)

Frage von Yannosch zum Thema Windows 7 ...

Verschlüsselung & Zertifikate
Mit Veracrypt eine zweite interne (non-system) Festplatte verschlüsseln (11)

Frage von Bernulf zum Thema Verschlüsselung & Zertifikate ...

Internet Domänen
Nameserver ein Geist? (9)

Frage von zelamedia zum Thema Internet Domänen ...