Tabellenblätter als E-Mail versenden

01/05/2008 - 13:45 von Manzenreiter Gerhard | Report spam
Hallo
Hàtte wieder Hilfe gebraucht.

Beim Aufruf der Userform wird eine Listbox mit den Namen der Tabellen
gefüllt.
Jetzt wàhle ich eine Tabelle aus und versende diese per Mail.
Hàtte jetzt aber gerne daß ich 3 oder 4 Tabellen in der listbox auswàhlen
und diese gemeinsam in einer Mappe versenden kann.

Das ist jetzt mein Code für eine Tabelle
ThisWorkbook.Sheets(liste.Value).Activate
ActiveSheet.Copy
ActiveWorkbook.SaveAs "C:\Daten.xls"
Application.Dialogs(xlDialogSendMail).Show
ActiveWorkbook.Close savechanges:=False
Kill ("C:\Daten.xls")

Habe in meinen Büchern so ein Beispiel nicht gefunden

Dank im Voraus
Manzenreiter Gerhard
 

Lesen sie die antworten

#1 Claus Busch
01/05/2008 - 15:04 | Warnen spam
Hallo Gerhard,

Am Thu, 1 May 2008 13:45:27 +0200 schrieb Manzenreiter Gerhard:

Beim Aufruf der Userform wird eine Listbox mit den Namen der Tabellen
gefüllt.
Jetzt wàhle ich eine Tabelle aus und versende diese per Mail.
Hàtte jetzt aber gerne daß ich 3 oder 4 Tabellen in der listbox auswàhlen
und diese gemeinsam in einer Mappe versenden kann.



du musst zuerst einmal die Listbox auf Multiselect umstellen, damit du
mehrere Tabellen anwàhlen kannst. Und dann test mal so (Die Pfade noch
anpssen bitte):
Dim i As Integer
Dim n As Integer
Dim k As Integer
Dim arrSh() As String

For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ReDim Preserve arrSh(n)
arrSh(k) = ListBox1.List(i)
n = n + 1
k = k + 1
End If
Next

Sheets(arrSh()).Copy
ActiveWorkbook.SaveAs "C:\Test\Daten.xls"
Application.Dialogs(xlDialogSendMail).Show
ActiveWorkbook.Close savechanges:=False
Kill ("C:\Test\Daten.xls")


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen