Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1036to1040
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1036to1040
1036to1040
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten auslesen, ohne Datei zu öffnen

Daten auslesen, ohne Datei zu öffnen
14.01.2009 10:19:00
walter
Hallo,
ich habe trotz meiner bescheidenen Kenntnisse und dank des umfangreichen Archivs ein Makro zustandegebracht, welches im Grunde auch funktioniert.
Das Makro öffnet alle xls.-Dateien eines Verzeichnisses, liest aus einer Zelle die Email-Adresse aus und schickt die jeweils geöffnete Datei an diese ausgelesene Email-Adresse.
Es müsste auch möglich sein, dass das ganze funktioniert, ohne die Dateien zu öffnen. Das kriege ich aber nicht hin.
Vielleicht kann mir jemand helfen - herzlichen DANK!
Code liegt in dieser Arbeitsmappe:
https://www.herber.de/bbs/user/58364.xls
walter

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten auslesen, ohne Datei zu öffnen
14.01.2009 10:36:00
Tino
Hallo,
wen dir der Tabellenname bekannt ist, kannst Du dies ExecuteExcel4Macro lösen.
ungetestet

Dim sFormel As String
sFormel = "'" & Pfad1 & "[" & name1 & "]Tabelle1'!" & Range("B11").Address(, , xlR1C1)
Emad = ExecuteExcel4Macro(sFormel) 'ActiveSheet.Range("B11")


Gruß Tino

AW: Daten auslesen, ohne Datei zu öffnen
14.01.2009 12:15:20
walter
Hallo Tino,
funkioniert leider nicht:
Fehlermeldung:
Die Methode Range für das Objekt '_Global' ist fehlgeschlagen
Danke
mfg
walter
AW: Daten auslesen, ohne Datei zu öffnen
14.01.2009 13:00:31
Tino
Hallo,
habe mal Dein Code nach bzw. umgebaut so wie ich es verstanden habe.
Wie schon beschrieben, muss die Tabelle wo die Mailadresse steht bekannt sein.
Daher steht in dem Formelstring (Tabelle1)
sFormel = "'" & strPfad & "[" & strDatei & "]Tabelle1'!" & Range("B11").Address(, , xlR1C1)
getestet unter xl2003 und xl2007.
Dim strPfad As String, strDatei As String

Sub Sozialratgeber()

strPfad = "J:\1 Forum\MailDatei\" '"G:\5-0-Gesundheit-Jugend-Soziales\5-2-Soziales\Dokumente\Sozialratgeber\DblEx\" 
strDatei = Dir$(strPfad & "*.xls", vbDirectory)
Do While strDatei <> ""
    Call Email
    strDatei = Dir$
Loop

End Sub

Sub Email()
Dim OutApp As Object
Dim OutMail As Object
Dim sFormel As String
  sFormel = "'" & strPfad & "[" & strDatei & "]Tabelle1'!" & Range("B11").Address(, , xlR1C1)
  Emad = ExecuteExcel4Macro(sFormel) 'ActiveSheet.Range("B11") 
  
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)

 
  
    On Error Resume Next
    With OutMail
        .To = Emad
        .CC = ""
        .BCC = ""
        .Subject = "TEST"
        .Body = "Testmail"
        .Attachments.Add ActiveWorkbook.FullName
        'You can add other files also like this 
        '.Attachments.Add ("C:\test.txt") 
        .Send   'or use .Display 
    End With
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing
ActiveWorkbook.Close SaveChanges:=False

End Sub


Gruß Tino

Anzeige
AW: Daten auslesen, ohne Datei zu öffnen
14.01.2009 14:27:33
walter
Hallo Tino,
funktioniert nicht, Fehlermeldung ist dieselbe!
Ich bin mir nicht sicher, was du mit "Wie schon beschrieben, muss die Tabelle wo die Mailadresse steht bekannt sein." meinst.
In jeder Tabelle steht die Emailadresse im Arbeitsblatt "Tabelle1" in B11.
Die Variablen strDatei und strPfad habe ich als öffentliche Variablen deklariert (ist das richtig?)
mfg
Walter
kann es nicht nachvollziehen...
14.01.2009 15:14:00
Tino
Hallo,
habe dies unter der XP Version gestestet, hat super funktioniert.
Weis nicht was bei Dir nicht stimmt.
Gruß Tino
AW: kann es nicht nachvollziehen...
15.01.2009 07:55:00
walter
Hallo Tino,
ich krieg´s - warum auch immer nicht hin.
Ich werde einfach die Version einsetzen, in der jede Tabelle geöffnet wird, die funktioniert.
DANKE für deine Hilfe!
walter
Anzeige

303 Forumthreads zu ähnlichen Themen

Gültigkeitsprüfung in Bezug auf andere Zelle
Erwin

Geschätztes Forum!
Ich möchte in Zelle A1 eine Gültigkeitsprüfung einfügen.
Die Gültigkeit soll mir dort Eingaben bis zur Höchstzahl der in A2 vorhandenen Zahl erlauben.
zB. Wenn in A2 die Zahl 5 steht, soll die Eingabe in A1 bis höchstens bis zur Zahl 5 (also 1,2,3,4,5) erlaubt sei...
14.08.2008 14:06:00
Thread-ID: 1001854
5 Beiträge
Anzeige
Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
auf anderes sub zugreifen
Lars

Hallo,
ich möchte gerne eine Standardprozedur im sub "A" definieren, und es in anderen subs (z.B. "B") aufrufen, so dass es ausgeführt wird. Anschließend geht es in sub "B" weiter. Wie funktioniert das?
Danke
Gruß
Lars
03.09.2008 15:35:00
Thread-ID: 1007127
12 Beiträge
Anzeige
Laufende Nummer aus anderer Datei ziehen
mtremer

Hallo Excel-Freunde,
nun habe ich schon länger recherchiert, aber gefunden habe ich nichts :-(
Folgendes habe ich vor:
Ich befinde mich in einer Datei (Start.xls). Von dort aus möchte ich eine laufende Nummer aus einer anderen Datei (Sammlung.xls) ziehen. Diese Nummer befindet sich...
17.09.2008 11:55:00
Thread-ID: 1010315
4 Beiträge
Daten aus verschiedenen Dateien *HILFE*
Uwe

Guten Morgen
ich habe folgende Datei:
https://www.herber.de/bbs/user/55730.zip
ich umreiße kurz die Funktion, sowie den aktuellen Fehler:
Geschäftsablauf sieht folgendermaßen aus:
Kunde bestellt bei uns ein Produkt, welches der Vertrieb mit den vorliegenden Fahrzeugdaten -...
30.09.2008 08:16:45
Thread-ID: 1013242
7 Beiträge
Hyperlink soll je nach KW auf andere Datei verw.
Alex

Hallo,
gleich einmal vorweg, ich bin neu im Forum und hoffe, dass ihr mir bei meinem kleinen Hyperlink- Problem helfen könnt.
Folgende Aufgabe sollte gelöst werden.
Ich möchte einen Hyperlink einrichten, der automatisch je nach Kalenderwoche auf das entsprechende Bestellformular ve...
11.10.2008 12:37:00
Thread-ID: 1015732
3 Beiträge
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
Datenimport, Zahlen aus .txt Datei
Tom

Hallo zusammen,
benötige mal wieder Euer Fachwissen.
Es geht um eine .txt-Datei mit 100.000 Zahlen a 13 Stellen, diese möchte ich in Excel importieren.
Hierzu nutze ich in Excel Daten_ Externe Daten importieren, funktioniert auch gut, nur das nicht alle Zahlen in ein Tabelleblatt pa...
20.10.2008 19:30:14
Thread-ID: 1017788
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
7
11
6
3
6
2
4
1
5
3
1
2
1
7
4
8
10
4
3
3
17
2
3