Excel File und Text-File in neuen Excel-File
02.08.2016 09:18:56
Tim
Ich habe schon viel in eurem Forum gelesen und auch schon einige Ideen gesammelt, aber so richtig vorwärts komme ich nicht, was auch an meinen mangelnden Kenntnissen liegen mag...ok wird.
Hier zu meinem Problem:
Ich bekomme an meinem Versuchsstand zwei Messdatenprotokolle, eine .xls-Datei und eine .txt-Datei, die aber zu einem Versuch gehören. Ich möchte jetzt die Beiden in einer Datei an einem neuen Ort speichern, benannt nach der .xls Datei.
Die Dateien sollen zusammen neu gespeichert werden und dazwischen von mir in Sachen Format angepasst werden, das klappt auch soweit alles schon ganz gut.
Das Problem an der Sache ist die Dateien heißen immer anders.
Jetzt zu meiner bisherigen "Leistung" :D
Sub Schaltfläche1_Klicken()
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="D:\Eigene Dateien\C"
ActiveWorkbook.Close
End Sub
Sub Schaltfläche2_Klicken()
Dim Wkbname As String
Workbooks.Open "D:\Eigene Dateien\A"
Cells.Select
Selection.Copy
Workbooks("A.xlsx").Close False
Workbooks.Open "D:\Eigene Dateien\C"
ActiveSheet.Paste
ActiveWorkbook.Save
Workbooks("C.xlsx").Close False
End Sub
Mein Plan war also eine Datei mit Makros zu haben mit der die beiden Dateien geöffnet und in einer neuen gespeichert werden. Die Buchstaben "C" und "A" stehen hier nur als Platzhalter um das System zu verstehen. Hier sollte sich dann ein Dialogfenster öffnen, indem die Datei ausgewählt werden kann.
Vermutlich gibt es sicher noch fragen, denn es ist nicht so leicht in Worte zu fassen wie gedacht! Danke an alle die es sich überhaupt durchlesen!
Gruß Tim