da ich VBA-Neuling bin, würde ich mich über Hilfe freuen um ein paar Arbeitsschritte unter Excel2010 zu automatisieren.
Ich möchte über einen Auswahldialog eine Datei auswählen (*.hrn), Von dieser Datei soll eine Kopie als *.txt in einem anderen Ordner ("E:\neu\") gespeichert werden. Diese Datei besteht aus einen Header (mit 975 Zeichen) und unterschiedlich vielen Zeichensätzen a 325 Zeichen im Anschluss daran. Aus diesen Zeichensätzen möchte ich 4 Zeichenketten auslesen, die sich innerhalb des Zeichensatzes an immer den gleichen Stellen befinden und diese in eine Excel-Tabelle schreiben (jeweils eine Zeile pro Zeichensatz) und wieder unter dem gleichen Dateinamen als .xls in "E:\neu\"speichern.
Den Auswahldialog krieg ich schon hin, aber das Speichern unter dem gleichen Namen als .txt gelingt mir noch nicht. Einlesen von Zeichenketten geht über string=Mid(zeichenkette, startposition, anzahl einzulesender zeichen). Frei formuliert müsste das Auslesen in etwa so aussehen:
for i = 975 to dateiende step 325
str1 = mid(?, i+82,16)
str2 = mid(?, i+219,8)
str3 = mid(?, i+282,4)
str4 = mid(?, i+287,5)
aber wie speicher ich das jetzt in eine tabelle?