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, 1561 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 ...

Visual Studio
gelöst Email Versenden Mit VB (2)

Frage von UltraZz zum Thema Visual Studio ...

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

Frage von S4kar97 zum Thema VB for Applications ...

Microsoft Office
"Microsoft Excel kann die Daten nicht einfügen" (2)

Frage von arik12 zum Thema Microsoft Office ...

Neue Wissensbeiträge
Windows Tools

Zeit für Energiesparmodus, Bildschirmabschaltung etc. schnell anpassen

Anleitung von hannsgmaulwurf zum Thema Windows Tools ...

Linux Netzwerk

Ping und das einstellbare Bytepattern

(1)

Erfahrungsbericht von LordGurke zum Thema Linux Netzwerk ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(4)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Heiß diskutierte Inhalte
Microsoft Office
Office Druck fehler (18)

Frage von DaistwasimBusch zum Thema Microsoft Office ...

Windows Server
Zertifikat am DC erneuern funktioniert nicht (13)

Frage von takvorian zum Thema Windows Server ...