Header aus geschlossener Mappe auslesen

Martin · 2023-03-22T19:52:32+00:00

Hallo liebes Forum, ich verwende diesen VBA Code zum auslesen eines Bereichs aus einer anderen geschlossenen Arbeitsmappe. Es funktioniert auch einwandfrei. Leider wird der Header (Kopfzeile) nicht auch kopiert. Wie stelle ich das an das er auch Kopiert wird? Viele Dank für Eure Unterstützung Sub Bereich_auslesen() Dim pfad As String, datei As String, blatt As String, bereich As Range, zelle As Object '** Angaben zur auszulesenden Zelle pfad = "/Users/martin/Documents/Ordner" datei = "mappe.xlsm" blatt = "Tabelle1" Set bereich = Range("A1:Q52") '** Bereich auslesen For Each zelle In bereich '** Zellen umwandeln zelle.Offset(0, 0) = zelle.Address(False, False) '** Eintragen in Bereich ActiveSheet.Cells(zelle.Row, zelle.Column).Value = _ GetValue(pfad, datei, blatt, zelle.Offset) Next zelle End Sub

Hallo zusammen,

in der Tat ist es ratsam hier einen vollstänigen Code zu zeigen, sonst ist es Rätselraten.

Wahrscheinlich ist Getvalue basierend auf dem beliebten Excel4Macro, aber es gibt auch andere Varinaten...

Code:


Private Function GetValue3(ByVal sPath As String, ByVal sFile As String, _
                           ByVal sSheet As String, ByVal sTarget As String) As Variant
'Einen Wert aus einer Datei holen
  On Error GoTo ErrorHandler
  If Right$(sPath, 1) <> "\" Then sPath = sPath & "\"
  GetValue3 = ExecuteExcel4Macro("'" & sPath & "[" & sFile & "]" & sSheet & "'!" _
            & Range(sTarget).Range("A1").Address(, , xlR1C1))
  Exit Function
ErrorHandler:
  GetValue3 = CVErr(xlErrRef)
End Function

'### Ein Wert (langsamer)###
Private Function GetValue1(sPath As String, sFile As String, sSheet As String, sRange As String) As String
' Exceldatei im Hintergrund öffnen und Wert holen
  If Right$(" " & sPath, 1) <> "\" Then sPath = sPath & "\"
  With CreateObject("Excel.Application")
      With .Workbooks.Open(sPath & sFile)
          GetValue1 = .Sheets(sSheet).Range(sRange).Value
          .Close savechanges:=False
      End With
      .Quit
  End With
End Function

'### Ein Wert (schneller)###
Private Function GetValue(sPath As String, sFile As String, sSheet As String, sRange As String) As String
' Exceldatei im Hintergrund öffnen und Wert holen
  If Right$(" " & sPath, 1) <> "\" Then sPath = sPath & "\"
  With GetObject(PathName:=sPath & sFile)
      GetValue = .Sheets(sSheet).Range(sRange).Value
      .Close savechanges:=False
  End With
End Function

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Hi
schwer zu sagen.
es sollte klar sein, dass du auf diese Weise nur die Werte übernimmst und nichts anderes (Formatierungen usw)
prinzipiell beginnt der Code mit Zeile 1, also sollte die erste Zeile mit übernommen werden und die sollte dann der Header sein.
außerdem lässt die Schleife in eine Zeile zusammenfassen:

For Each zelle In Range("A1:Q52")
      Zelle.Value = GetValue(pfad, datei, blatt, zelle.address(0, 0))
next

aber wie gesagt, damit bekommst du nur die reinen Werte.

Öffne doch einfach die Datei, dann kannst du alles was du brauchst kopieren.
wenn man mit Schreibschutz öffnet, gibts auch keine Probleme, wenn andere Zeitgleich mit der Datei arbeiten.

Workbooks.Open Pfad & "\" & datei, ReadOnly:=True
Sheets(blatt).Range("A1:Q52").Copy Destination:=ThisWorkbook.sheets(...).Range("A1")
Workbooks(datei).Close False

Gruß Daniel

Header aus geschlossener Mappe auslesen

Forumthread: Header aus geschlossener Mappe auslesen

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Header aus geschlossener Mappe auslesen

Forumthread: Header aus geschlossener Mappe auslesen

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread