Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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

Anzeige
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
Anzeige
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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige