MsgBox beim öffnen von Datei automatisch schließen

Forumthread: MsgBox beim öffnen von Datei automatisch schließen

05.11.2003 08:15:40

Tobias

hi @all!

ich möchte per makro von einer datei aus eine zweite öffnen will, um daraus eine tabelle zu kopieren (was wunderbar klappt). nun mein problem: wenn ich jetzt die datei öffne, kommt immer eine dialogbox, da in der zu öffnenden datei links sind. jetzt fragt er mich, ob ich die updaten will. ich möchte aber, dass er automatisch auf "don't update" klickt. mein bisheriger quelltext sieht so aus:


Private Sub CommandButton1_Click()
ChDir ThisWorkbook.path
Workbooks.Open ("test1.xls")
Windows("test1.xls").Activate
Sheets("Sheet1").Select
Sheets("Sheet1").Copy After:=Workbooks("test2.xls").Sheets("sheet1")
End Sub

kann mir jemand helfen?

thx 4 ur answers!

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: MsgBox beim öffnen von Datei automatisch schließen

05.11.2003 08:37:11

Hajo_Zi
AW: MsgBox beim öffnen von Datei automatisch schließen

05.11.2003 08:44:41

Peter
Antworten

05.11.2003 09:30:55

Tobias
neue frage

05.11.2003 10:52:55

Tobias

AW: MsgBox beim öffnen von Datei automatisch schließen

05.11.2003 08:37:11

Hajo_Zi

Hallo Tobias

vielleicht hilf folgendes

vor öffnen
Application.DisplayAlerts = False Mitteilungen
nach öffnen
Application.DisplayAlerts = True Mitteilungen

Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro

AW: MsgBox beim öffnen von Datei automatisch schließen

05.11.2003 08:44:41

Peter

Hallo Tobias,

Ev. hilft es wen du nur die Werte drin hast.

Obwohl ich nicht weiss ob das in deinem Sinn ist!

Gruss Peter


Private Sub CommandButton1_Click()
ChDir ThisWorkbook.path
Workbooks.Open ("test1.xls")
Windows("test1.xls").Activate
Sheets("Sheet1").Select
Sheets("Sheet1").Copy After:=Workbooks("test2.xls").Sheets("sheet1")
'Kopieren und nur Werte einfügen.
Application.CutCopyMode = False
Cells.Copy
Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub

Antworten

05.11.2003 09:30:55

Tobias

hi @ all!

funktioniert leider beides nicht... trotzdem danke!

neue frage

05.11.2003 10:52:55

Tobias

hi @all!

so ähnlich solls gehen

Workbooks.Open ("201003 Leadexport-test.xls", UpdateLinks:=false)

leider ist die syntax falsch, denn er sagt immer "expected:=" am ende der zeile.
kann einer helfen?

thx 4 ur answers!

Beliebteste Forumthreads (12 Monate)

MsgBox beim öffnen von Datei automatisch schließen

Forumthread: MsgBox beim öffnen von Datei automatisch schließen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread