Ansicht:   

#417586 VBA-Problem mit "Activate" (pc.sw.office)

verfaßt von manes zur Homepage von manes, Köln, 12.11.2017, 23:45:15

Hallo

Grundsätzlich muss für die Aufgabenstellung die Zieldatei geöffnet werden.
Hier die in Betracht kommenden beiden Varianten. Bei der ersten wird sicherheitshalber mit DIR geprüft, ob die Datei auch tatsächlich gefunden werden kann.

Option Explicit
Const cStr_Datei As String = "C:PfadZiel.xlsm"

Sub Version1()
Dim wb1 As Workbook
Dim wb2 As Workbook
If Dir(cStr_Datei, vbNormal) <> "" Then
Set wb2 = Workbooks.Open(cStr_Datei)
wb2.Worksheets("Sommer99").Cells(7, 10) = 444
wb2.Close savechanges:=True
Else
MsgBox "Datei " & cStr_Datei & "nicht gefunden"
End If
End Sub

Sub Version2()
Dim obj As Object
Set obj = GetObject(cStr_Datei)
obj.Worksheets("Sommer99").Cells(8, 10) = 444
obj.Close savechanges:=True
End Sub

Viel Erfolg
Manes

--
Also wenn ich ehrlich sein sollte, müsste ich lügen!

 

gesamter Thread:

Ansicht:   
Auf unserer Web-Seite werden Cookies eingesetzt, um diverse Funktionalitäten zu gewährleisten. Hier erfährst du alles zum Datenschutz