Gegevens userform naar gesloten werkblad

[Excel01]

Ik heb twee werkbladen in een bepaalde map staan.
Ik wil via Userform (werkblad) gegevens wegschrijven naar Data.xlsx (gesloten).
Alleen werkblad is geopend.
Bekijk bijlage Data.xlsxBekijk bijlage Werkblad.xlsm

 

[VenA]

Dan zal je het bestand eerst moeten openen.

Private Sub voegtoe_Click()
  c00 = "E:\VenA\Data.xlsx"
  With GetObject(c00).Sheets(soort.Text)
    .Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 3) = Array(T_00.Text, naam.Text, adres.Text)
    .Parent.Close -1
  End With
End Sub