Daten in geschlossene Datei exportieren
21.12.2015 16:39:41
Uwe
gerade eben zerbreche ich mir den Kopf darüber, wie es gelingen kann, via VBA Daten aus einem Tabellenblatt in eine geschlossene Datei zu exportieren. Gewöhnlich lässt sich das ja schon mit dem nachfolgenden Code bewerkstelligen:
Public Sub Schreiben()
Dim sPfad As String ' der Ordner-Pfad der Excel-Mappen
Dim sDatei As String ' die zu beschreibende Datei
Dim WkSh_Q As Worksheet ' das Quell-Tabellenblatt - die Herkunft
Dim WkSh_Z As Worksheet ' das Ziel-Tabellenblatt - das Ergebnis
sPfad = "D:\Anwendungsdaten\Exceldaten\Excel-Dateien\"
sDatei = "Dialogdaten.xlsm"
Application.ScreenUpdating = False
If Dir(sPfad & sDatei) "" Then
Workbooks.Open (sPfad & sDatei)
ThisWorkbook.Activate
'Application.ActiveWindow.Visible = False
Else
MsgBox "Den angegebenen Ordner """ & sPfad & """" & Chr(10) & _
"und/oder die gesuchte Datei """ & sDatei & """ gibt es nicht!", _
16, " Hinweis für " & Application.UserName
Exit Sub
End If
Set WkSh_Q = ThisWorkbook.Worksheets("Vorgabedaten")
Set WkSh_Z = Workbooks(sDatei).Worksheets("Vorgabedaten")
WkSh_Q.Cells.Range("B1:B27").Copy Destination:=WkSh_Z.Range("B1:B27")
Workbooks(sDatei).Close SaveChanges:=True
Application.ScreenUpdating = True
MsgBox "Die Daten wurden erfolgreich übergeben.", _
64, " Information für " & Application.UserName
End Sub
Vielen Dank für Eure Hilfe
Uwe
Anzeige