Makrowarnung kommt immer noch...
03.07.2004 14:19:36
Russi
kann mir jemand verraten, warum die Makrowarnung nach Anwendung dieses Codes beim Öffnen der CSV-Datei immer noch kommt? Es befinden sich weder ein Modul in der Datei, noch Code im Tabellenblatt...
Application.DisplayAlerts = False
ActiveSheet.Copy
ActiveSheet.OLEObjects.Delete
With ActiveSheet.UsedRange
.Value = .Value
End With
With ActiveWorkbook.VBProject _
.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\SFirmImport.csv"
ActiveSheet.Cells(1, 1).Select
Application.DisplayAlerts = True