Auf Extern XL Dateien zugreifen! mit VBA

Forumthread: Auf Extern XL Dateien zugreifen! mit VBA

16.01.2006 12:54:52

Benjamin

Hallo Zusammen,
ich habe da ein meiner Meinung nach interessantes Problem.
Ich habe eine Fülle von Standtort Dateien. In diese Dateien muss ich
aus einem anderen ExcelDokument Werte einpflegen. Ich muss also ein Modul schreiben, mit dem ich in einem geschlossenen Dokument suchen kann.
Mein Problem ist halt, dass ich nichtmal wirklich einen Ansatz habe,
wie ich in externe Dokumente komme. Eine kleine HIlfe für den Anfang wäre schon sehr hilfreich, vielen Dank.
Benjamin

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Auf Extern XL Dateien zugreifen! mit VBA

16.01.2006 14:02:48

WernerB.
AW: Auf Extern XL Dateien zugreifen! mit VBA

16.01.2006 14:47:15

Benjamin

AW: Auf Extern XL Dateien zugreifen! mit VBA

16.01.2006 14:02:48

WernerB.

Hallo Benjamin,
es ist m.W. nur möglich, aus geschlossenen Mappen gezielt die Werte einzelner Zellen (oder auch eines Zellbereiches) auszulesen; dabei müssen dem Makro der komplette Pfad, der Name der Mappe, der Name des Tabellenblattes und die Zelladresse bekannt sein.
Aber "Suchen" (im herkömmlichen Sinn) kann man in geschlossenen Mappen wohl eher nicht.
Gruß
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !

AW: Auf Extern XL Dateien zugreifen! mit VBA

16.01.2006 14:47:15

Benjamin

Also ich habe mir das dann auch gedacht und das mit nem öffnen Befehl gemacht,
also ich habe zumindest erstmal gefunden wie ich ne Datei im VBA öffnen Kann
und dann einenn Wert übernehmen kann, suchen und übernehmen verhält sich dann
ja ähnlich, aber vielen Dank für das Feadback.
In der TBSteuerung liegen in den Cells der Pfad und der Dateiname.
--------------------------------------


Private Sub CmDopen_Click()
Dim WBGemeinde As Workbook, WBGeraete As Workbook
Dim TBSteuerung As Worksheet, TBGemeinde, TBGeraete As Worksheet
Dim loadpath As String, loadfile As String
Set WBGemeinde = Workbooks(ActiveWorkbook.Name)
Set TBSteuerung = WBGemeinde.Worksheets("Steuerung")
'Set TBGemeinde = WBGemeinde.Worksheets("Gemeinde")
Tabelle1.Cells(1, 1) = TBSteuerung.Cells(2, 1)
'Drive angabe und File
ChDrive TBSteuerung.Cells(3, 2)
loadpath = TBSteuerung.Cells(20, 3)
loadfile = TBSteuerung.Cells(20, 4)
ChDir loadpath
With Application.FileSearch
.NewSearch
.LookIn = loadpath
.SearchSubFolders = False
.Filename = loadfile
.MatchTextExactly = True
If .Execute = 1 Then
End If
End With
Workbooks.Open Filename:=loadpath & loadfile
Set TBGeraete = Workbooks(loadfile).Worksheets("Gemeinde")
Tabelle1.Cells(2, 1) = TBGeraete.Cells(1, 1)
Workbooks(loadfile).Close SaveChanges:=False
End Sub

Beliebteste Forumthreads (12 Monate)

Auf Extern XL Dateien zugreifen! mit VBA

Forumthread: Auf Extern XL Dateien zugreifen! mit VBA

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread