Excel + VBA Frage/Problem

[chris1308]

Hallo,

ich will automatisch eine unterschiedliche Anzahl von Dateien in Excel Importieren
Die erste Datei heißt immer Messung.lvm, die nächste dann Messung1.lvm, die nächste dann Messung2.lvm usw.
Alle Werte sollen in jeweils ein Tabellenblatt mit der passenden Bezeichnung importiert werden.
Das geht bestimmt irgendwie in Excel, nur habe ich keine Ahnung wie.
Könnt ihr mir helfen?
In den MessungX.lvm steht immer eine Titelzeile und dann eine unterschiedlich große Anzahl von Zeilen an Messwerten.

Gruß
Christopher

 

[chris1308]

Hallo,

meine Anforderung hat sich ein wenig geändert:
Es gibt nun bereits für jeden Messpunkt ein Tabellenblatt, dass auch schon den jeweiligen Namen hat. Also Messung, Messung1, Messung2, Messung3 usw.
Und da soll es einfach einkopiert werden, jeweils passend.

 

[mythink2009]

Hi,
ein paar Zeilen:
Ordner auswählen, alle Dateien einzeln öffnen, Kopieren in Excel-Datei, Datei schließen, Text in Spalten wandeln
Vielleicht hilft's
Tschüß
Martin


Option Explicit

Sub Dateien_in_Blätter()
Dim namemeinedatei As String
namemeinedatei = ThisWorkbook.Name
Dim fd As FileDialog
Dim strFolder As String
Dim strName As String

Set fd = Application.FileDialog(msoFileDialogFolderPicker)
If fd.Show <> -1 Then Exit Sub

strFolder = fd.SelectedItems(1) & "\"
strName = Dir(strFolder & "*.*")
While Len(strName) > 0

Workbooks.OpenText Filename:=strFolder & strName, Local:=True
Workbooks(strName).Sheets(1).Copy before:=Workbooks(namemeinedatei).Worksheets(1)

Workbooks(strName).Close
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True

strName = Dir
Wend
End Sub

 

[chris1308]

Tut. vielen Dank. Rest per pn