Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
716to720
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
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Auf Extern XL Dateien zugreifen! mit VBA

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

Anzeige

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige