Fehlerhaftes WB - erstellt mit VBA
06.11.2012 09:06:03
Gerhard
ich bin mittlerweile schon am verzweifeln und finde auch nach reichlicher recherche in diversen Büchern und Foren keine Lösung.
ich bin dabei mir für eine arbeit auf der TU eine pocedure zu schreiben um versuche auszuwerten, dazu erstelle ich für jeden versuch eine eigene auswertungsdatei - jedoch bekomme ich beim erneuten öffnen der datei direkt nach dem erstellen dieser datei eine meldung das in der datei unleserliche inhalte vorhanden sind. ich hätte auch schon versucht das ganze über eine vorlage zu realisieren was aber zur selben meldung führte. Somit bin ich leider aufgrund meiner doch nur beschränkten kenntnisse dazu gezwungen euch um eure Hilfe zu bitten.
mein code lautet wie folgt:
Public Declare Function MakePath _
Lib "imagehlp.dll" Alias "MakeSureDirectoryPathExists" ( _
ByVal lpPath As String _
) As Long
Sub CreatePathAPI()
Dim Path As String
Path = "c:\Auswertungen\"
API_CreatePath (Path)
End Sub
Public Function API_CreatePath(Path As String) As Boolean
' Pfad anlegen
If MakePath(Path) 0 Then API_CreatePath = True
End Function
Sub Datei_neu()
Dim Datname As String
Datname = "Test"
Application.UseSystemSeparators = True
Call CreatePathAPI
Path = "C:\Auswertungen\"
Workbooks.Add
Application.SheetsInNewWorkbook = 6
ActiveWorkbook.Charts.Add After:=Worksheets(6), Count:=4
With ActiveWorkbook
.Worksheets(1).Name = "Protokoll"
.Worksheets(2).Name = "Rohdaten"
.Worksheets(3).Name = "Daten bereinigt"
.Worksheets(4).Name = "Daten geglaettet"
.Worksheets(5).Name = "Steifigkeiten"
.Worksheets(6).Name = "Ent- und Belastung"
.Charts(1).Name = "Dia - Rohdaten"
.Charts(2).Name = "Dia - Daten bereinigt"
.Charts(3).Name = "Dia - Daten geglaettet"
.Charts(4).Name = "Dia - Steifigkeit"
End With
ActiveWorkbook.SaveAs Path & Datname & ".xlsx"
ActiveWorkbook.Close
End Sub
danke im voraus für eure hilfeGerhard