habe mehrere Probleme mit meinem Übernahmemakro:
Sub CreateXlsFile()
Dim XlsFile As Variant
Dim TptFile As Variant
Dim XlsName As String
'Öffnen der Messdatei und Speichern als Exceldatei
TptFile = Application.GetOpenFilename("Messdateien (*.s01),*.s01,")
XlsName = Left(TptFile, Len(TptFile) - 4) + ".xls"
Application.Workbooks.OpenText FileName:=TptFile, Origin:= _
xlWindows, StartRow:=6, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 2),
Array(2, 1))
Columns("B:B").Select
Selection.NumberFormat = "0.00E+00"
Selection.NumberFormat = "0.00"
Range("C1").Select
XlsFile = Application.GetSaveAsFilename(XlsName, "Exceldateien
(*.xls),*.xls,")
ActiveWorkbook.SaveAs XlsFile, xlWorkbookNormal
End Sub
Dummerweise bennennt er meine Arbeitsmappe genau gleich, wie die Datei. Wie kann ich denn den Code verändern, dass er die Arbeitsmappe unabhängig von der Dateibenennung "Rohdaten" nennt.
Ein nächstes Problem hängt damit zusammen. Die Daten der obigen Messdatei schreibt er in die Spalten A + B. Nun will ich die Messdaten einer neuen Messdatei in die Spalten C und D einfügen lassen. Meine Idee war, dies über ein Dialogfeld zu machen:
'Dialogfeld einfügen"
Dim i As Integer
i = MsgBox _
("Wollen Sie die Messwerte der 2.Messung ebenfalls einfügen?", vbOKCancel)
If i = 1 Then (...) Else MsgBox "Sie haben die Aktion abgebrochen!"
End Sub
Für das (...) würde ich einfach den Befehl aus dem obigen Code verwenden:
'Öffnen der Messdatei und Speichern als Exceldatei
TptFile = Application.GetOpenFilename("Messdateien (*.s01),*.s01,")
XlsName = Left(TptFile, Len(TptFile) - 4) + ".xls"
Application.Workbooks.OpenText FileName:=TptFile, Origin:= _
xlWindows, StartRow:=6, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 2),
Array(2, 1))
Das Problem ist jetzt nur, das er mir da eine ganz neue Arbeitsmappe aufmacht, bzw. ich nicht weiß, wie ich ihm begreiflich machen soll, dass er die Daten in derselben Arbeitsmappe in den Spalten C + D einfügen soll.
Weiß jemand Rat, dürfte nicht ganz einfach sein das Problem, oder ???
Gruß aus Reutlingen
Dari