Hallo zusammen,
ich bin leider noch blutiger Anfänger und brauche deshalb bitte eure Hilfe.
Ich habe ein Skript gefunden, um mehrere csv Dateien in Excel zu importieren. Jede Datei wird in ein eigenes Tabellenblatt eingefügt.
Nun mein "Problem":
Der Dateiname wird auch als Name des Tabellenblattes herangezogen. Dabei wird auch der Dateityp angegeben. Es steht dann z.B. dort "Tabelle.csv".
Ich möchte die Dateiendung ".csv" aber nicht im Namen haben. Es soll nur der reine Dateiname, also z.B. "Tabelle" dort stehen.
Wie könnte ich das Skript ändern um das zu erreichen.
Vielen Dank schon im Voraus
*Beitrag verschoben und CodeTags eingefügt* ~NoFear23m
ich bin leider noch blutiger Anfänger und brauche deshalb bitte eure Hilfe.
Ich habe ein Skript gefunden, um mehrere csv Dateien in Excel zu importieren. Jede Datei wird in ein eigenes Tabellenblatt eingefügt.
VB.NET-Quellcode
- Sub CSV_Import()
- Dim dateien, i
- Dim owkb As Workbook
- dateien = Application.GetOpenFilename _
- ("csv-Dateien (*.csv), *.csv", MultiSelect:=True)
- If IsArray(dateien) Then
- For i = 1 To UBound(dateien)
- Workbooks.Open dateien(i), local:=True
- Set owkb = ActiveWorkbook
- With ThisWorkbook
- ActiveSheet.UsedRange.Copy
- .Sheets.Add after:=.Sheets(.Sheets.Count)
- .Sheets(.Sheets.Count).Name = owkb.Name
- .Sheets(owkb.Name).Range("A1").PasteSpecial
- End With
- Application.CutCopyMode = False
- owkb.Close False
- Next i
- End If
- End Sub
Nun mein "Problem":
Der Dateiname wird auch als Name des Tabellenblattes herangezogen. Dabei wird auch der Dateityp angegeben. Es steht dann z.B. dort "Tabelle.csv".
Ich möchte die Dateiendung ".csv" aber nicht im Namen haben. Es soll nur der reine Dateiname, also z.B. "Tabelle" dort stehen.
Wie könnte ich das Skript ändern um das zu erreichen.
Vielen Dank schon im Voraus
*Beitrag verschoben und CodeTags eingefügt* ~NoFear23m
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Nofear23m“ ()