Datei auslesen ohne zu öffnen

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

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)

Forumthread: Datei auslesen ohne zu öffnen

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread