Update oder andere Excelfragen umgehen
27.10.2016 16:50:08
Fabian
ich bekomme leider immer wieder eine Frage, die mein Makro anhalten lässt.
Immer wenn die Datei geöffnet wird, bekomme ich die Anfrage ob ich etwas updaten will... wie kann ich das umgehen?
Sub abs()
Dim sh As Worksheet
Workbooks.Open Filename:="P:\bla\\bla P" & Worksheets("Setting").Range("D3").Value & " " & _
Worksheets("Setting").Range("D4").Value & ".xlsx."
For Each sh In ActiveWorkbook.Worksheets
With sh.UsedRange
.Cells.Copy
.Cells.PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False
Next sh
ActiveWorkbook.Close savechanges:=True
End Sub
Danke!
Fabian