Anzeige
Archiv - Navigation
908to912
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
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datei auslesen ohne zu öffnen

Datei auslesen ohne zu öffnen
26.09.2007 21:30:00
Jakobi
Hallo zusammen,
wer kann mir helfen mit VBA aus einer Textdatei und Excel Tabelle Daten zu lesen ohne diese zu öffnen?
Danke schon mal im voraus.

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei auslesen ohne zu öffnen
26.09.2007 21:33:00
Renee
Hi Jakobi,
Eventuell der hier ;-)
GreetZ Renee

AW: Datei auslesen ohne zu öffnen
26.09.2007 21:38:00
Josef
Hallo Jakobi,
das geht nur bedingt. Auch wenn eine Datei scheinbar geschlossen ist, wird sie Intern denoch geöffnet.
Beschreib doch was du genau erreichen willst und welche Daten/Dateien du auslesen willst.
Gruß Sepp

AW: Datei auslesen ohne zu öffnen
26.09.2007 21:55:00
Jakobi
Hallo Sepp,
ich möchte in eine Tabellenzelle oder Textdatei einen Pfad als Text hinterlegen, den ich dann in meinem Macro verarbeiten möchte.
Gruß Jakobi

Anzeige
OK, und wo ist das Problem? o.T.
26.09.2007 21:57:34
Josef
Gruß Sepp

AW: OK, und wo ist das Problem? o.T.
26.09.2007 22:05:47
Jakobi
Hallo Sepp,
mein Problem ist, das ich nicht weiß wie es geht.
Jakobi

AW: OK, und wo ist das Problem? o.T.
26.09.2007 22:09:35
Josef
Hallo Jakobi,
Beispiel:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

'Aus Textdatei
Sub Pfad_aus_TXT()
Dim strPath As String, strFile As String

strFile = "F:\Temp\pfad.txt" 'Pfad und Dateiname der Textdatei - anpassen!

Open strFile For Input As #1

Input #1, strPath

Close #1

MsgBox strPath

End Sub

'Aus Excelmappe
Sub Pfad_aus_XLS()
Dim strPath As String, strFile As String, strSheet As String, strRange As String, result As Variant
strPath = "F:\Temp" 'Pfad zur Datei
strFile = "test.xls" 'Dateiname
strSheet = "Tabelle1" 'Tabellenname
strRange = "A1" 'Zelladresse

result = GetValue(strPath, strFile, strSheet, strRange)

If result = "File Not Found" Then Exit Sub

MsgBox result

End Sub

Private Function GetValue(path As String, file As String, sheet As String, ref As String)
Dim arg As String

If Right(path, 1) <> "\" Then path = path & "\"

If Dir(path & file) = "" Then
    GetValue = "File Not Found"
    Exit Function
End If

arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
    Range(ref).Range("A1").Address(, , xlR1C1)

GetValue = ExecuteExcel4Macro(arg)
End Function

Gruß Sepp

Anzeige
AW: OK, und wo ist das Problem? o.T.
27.09.2007 20:47:07
Jakobi
Hallo Sepp,
danke für deine Hilefe.
Funktioniert wie ich's mir vorgestellt habe.
Gruß Jakobi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige