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