Hallo,
ich bin Biologe und hatte mit vor einger Zeit ein kleines Excel-Makro gebastelt, dass .txt files öffnet, die Daten nach meinen Vorstellungen plottet und schließlich die Datei als .xls speichert. Klappt alles wunderbar, solange die .txt files manuell nummeriert werden. Inzwischen würden jedoch auch andere Arbeitsgruppen gerne damit arbeiten, doch haben die zum einen deutlich mehr .txt files und zudem noch weniger Ahnung von Makros als ich (sie verzweifeln augenblicklich, sobald sie den VBA-Code sehen!). Mein Wunsch wäre es daher, die Nummerierung überflüssig zu machen und das Makro dazu zu bewegen, dass es .txt files mit beliebigen Dateinamen erkennt, bearbeitet und als .xls speichert. In dem Ordner befinden sich auch noch andere Dateiformate (.avi, .tif), mit dem gleichen Dateinamen, die jedoch nicht bearbeitet werden sollen (und natürlich auch nicht können).
Ich habe mich schon in diesem und anderen
Foren umgeschaut, doch leider reichen meine Kentnisse nicht mal aus, um ähnliche Codes entsprechend zu adaptieren.
Ich arbeite mit Microsoft Excel 2004 for Mac (Version 11.5).
Hier der Teil des Codes, den ich gerne verbessern würde:
Sub Motility()
'
'plots raw data and performs statistics
For i = 10 To 87
Dim strName As String
strName = "_logfile_"
Workbooks.OpenText Filename:=("users:MacBookPro:Desktop:Master course:" + CStr(i) + strName + ".txt"), _
DataType:=xlDelimited, Space:=True
'my working procedure
ActiveWorkbook.SaveAs Filename:= _
"users:MacBookPro:Desktop:Master course:" + CStr(i) + strName + ".xls", FileFormat:= _
xlExcel9795, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
ActiveWorkbook.Close
Next i
End Sub
Ich würde mich über Hilfe sehr freuen.