Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1816to1820
1816to1820
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CSV Datei per Macro Aktualisieren

Forumthread: CSV Datei per Macro Aktualisieren

CSV Datei per Macro Aktualisieren
08.03.2021 17:12:45
oraculix
Frage:
Wie kann ich eine CSV Datei per Macro Aktualisieren ohne das bestehnde formate gelöscht werden ?
mein größtes problem ist wenn ich den import manuelle mache, das mir excel eine tabelle formatiert mit pfeilen in der ersten zeile. und die aktualisierung in der spalte k beginnt und nicht in a1-j5000 mit überschrift
meine csv datei liegt im verzeichniss F:\!Software\OFFICE 2019\Office_2019_Pro_Plus_x64_DE
der name der csv datei: alle filme1.csv
hoffe ihr könnt mir helfen danke

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CSV Datei per Macro Aktualisieren
08.03.2021 18:00:59
Nepumuk
Hallo,
kannst du die CSV und die Mappe in einen ZIP-Ordner packen und hochladen?
Gruß
Nepumuk

AW: CSV Datei per Macro Aktualisieren
08.03.2021 18:38:21
oraculix
danke wollte die datei hochladen normales rar format und einträge gelöscht nur ein paar drinnen
aber leider kommt dann Kein Upload möglich
Grund: rar
folgende felder sind in der csv enthalten:
Originaltitel Titel Dateigröße Filmdatei Genre Hinzugefügt am IMDb-Bewertung Jahr Laufzeit Nr.
von a1 bis j5000

Anzeige
AW: CSV Datei per Macro Aktualisieren
08.03.2021 18:42:42
Nepumuk
Hallo,
in einen ZIP-Ordner packen!!! Das gibt es in Windows per Rechtsklick auf den Ordner-Senden an.
Gruß
Nepumuk

AW: CSV Datei per Macro Aktualisieren
09.03.2021 10:20:32
Nepumuk
Hallo,
teste mal:
Option Explicit

Public Sub ImportCSV()
    
    Dim objFileDialog As FileDialog
    Dim objWorkbook As Workbook
    Dim strFilePath As String
    
    Set objFileDialog = Application.FileDialog(fileDialogType:=msoFileDialogOpen)
    
    With objFileDialog
        
        .AllowMultiSelect = False
        .FilterIndex = 6
        .InitialFileName = "H:\210308\oraculix\" ' Anpassen !!!
        .Title = "Importdatei auswählen"
        
        If .Show Then strFilePath = .SelectedItems(1)
        
    End With
    
    Set objFileDialog = Nothing
    
    If strFilePath <> vbNullString Then
        
        Set objWorkbook = Workbooks.Open(Filename:=strFilePath)
        
        Call objWorkbook.Worksheets(1).Columns("A:J").Copy(Destination:=ThisWorkbook.ActiveSheet.Cells(1, 1))
        
        Call objWorkbook.Close(SaveChanges:=False)
        
        Set objWorkbook = Nothing
        
    End If
End Sub

Gruß
Nepumuk

Anzeige
AW: CSV Datei per Macro Aktualisieren
09.03.2021 11:06:22
oraculix
genial wie immer echt der hammer.
paar kleinichkeiten noch.
1. spaltenbreiten werden verschoben
2. farben von überschrift und unterhalb alle zellen hintergrundfarben werden gelöscht.
ansonst alles genial weltmeisterlich danke!!!!!

AW: CSV Datei per Macro Aktualisieren
09.03.2021 13:04:43
Nepumuk
Hallo,
so besser?
Option Explicit

Public Sub ImportCSV()
    
    Dim objFileDialog As FileDialog
    Dim objWorkbook As Workbook
    Dim strFilePath As String
    
    Set objFileDialog = Application.FileDialog(fileDialogType:=msoFileDialogOpen)
    
    With objFileDialog
        
        .AllowMultiSelect = False
        .FilterIndex = 6
        .InitialFileName = "H:\210308\oraculix\" ' Anpassen !!!
        .Title = "Importdatei auswählen"
        
        If .Show Then strFilePath = .SelectedItems(1)
        
    End With
    
    Set objFileDialog = Nothing
    
    If strFilePath <> vbNullString Then
        
        Set objWorkbook = Workbooks.Open(Filename:=strFilePath)
        
        Call objWorkbook.Worksheets(1).Columns("A:J").Copy( _
            Destination:=ThisWorkbook.ActiveSheet.Cells(1, 1))
        
        Call objWorkbook.Close(SaveChanges:=False)
        
        Set objWorkbook = Nothing
        
        If ActiveSheet.ListObjects.Count = 1 Then _
            Call ActiveSheet.ListObjects(1).Unlist
        
        With Columns
            .AutoFit
            .ClearFormats
        End With
        
        ActiveSheet.ListObjects.Add(SourceType:=xlSrcRange, _
            Source:=Range(Cells(1, 1), Cells(Rows.Count, 10).End(xlUp)), _
            XlListObjectHasHeaders:=xlYes, _
            TableStyleName:="TableStyleMedium15").Name = "Tabelle1"
        
    End If
End Sub

Gruß
Nepumuk

Anzeige
AW: CSV Datei per Macro Aktualisieren
09.03.2021 13:32:22
oraculix
du bist echt gut vielen dank passt alles.
;

Forumthreads zu verwandten Themen

"SAP"-Datei öffnen per Macro
Jakob

Hallo,
ich habe aus dem SAP einen Lieferreport heruntergeladen. Nun benutze ich folgenden Code um diese SAP-Datei aus einen betimmten Verzeichniss zu öffnen.
Dim varAntwort As Variant
' Bitte Laufwerk und Pfad anpassen
ChDrive ("C:")
ChDir ("C:\Documents and Settings\de0...
24.06.2009 11:16:29
Thread-ID: 1084051
2 Beiträge
csv-Datei erstellen mit Semikolon als Trennzeichen
Marika

Hallo zusammen,
ich muss aus Messwerten eine csv Datei erstellen, wo ein Semikolon das Spaltentrennzeichen und ein Komma als Dezimaltrennzeichen hinterlegt ist.
Das bekomme ich von Hand auch hin, indem ich Speichern Unter - Dateityp csv (MSDOS) verwende.
Ich möchte das ganze aber au...
18.08.2009 11:10:12
Thread-ID: 1096657
3 Beiträge
CSV Datei abspeichern ohne diese auch zu öffnen
Stefan

Hallo,
ich arbeite an einer xls Datei, benötige aber für die Anwendung eine CSV Datei.
Wie kann ich denn eine CSV Datei abspeichern, ohne dass ich die XLS danach wieder öffnen muss? Denn ich habe danach immer die CSV offen.
Grüße udn Danke
10.10.2009 11:48:31
Thread-ID: 1108714
5 Beiträge
Anzeige
csv Datei in bestimmten Pfad öffnen
Jürgen

Hallo Excel-Forum,
habe eine höchstwahrscheinlich (hoffentlich) einfache Frage. Bei der Recherche bicn ich irgendwie nicht zu einem Ergebnis gekommen.
Ich möchte per Makro eine csv.Datei öffnen. Diese liegt auf einem bestimmten Pfad (auf einem Server).
Das Excel mir im Öffnen-Dialog...
12.03.2010 12:26:48
Thread-ID: 1145363
10 Beiträge
csv - Datei öffnen / einlesen
Karen

Hallo Forum,
ich habe eine CSV Datei, die ich gerne einlesen möchte. Gibt es einen Trick, daß er die Werte nicht als Text darstellt?
Vielen Dank für die Unterstützung.
Grüße
Karen
12.10.2010 08:57:36
Thread-ID: 1181838
4 Beiträge
csv-Datei erstellen
Herbert

Hallo,
was mache ich hier falsch? Wenn ich eine Tabelle manuell als csv-Datei speichere, sind die Daten hinterher in Spalten aufgeteilt, so wie es sein soll. Wenn ich das gleiche dann per VBA mache, werden die Daten nicht in die Spalten aufgeteilt, sondern stehen alle in einer Spalte, mit k...
26.01.2011 16:01:29
Thread-ID: 1197460
3 Beiträge
viele *.csv Dateien nacheinander öffnen
Johannes

Hallo zusammen,
mein Problem sind extrem viele *.csv Dateien mit den Rohwerten einer jeden einzelnen Messung (Kraft - Weg Messwerte ~ 1500 je Messung).
Mein Code ist in der Lage die Messwerte aus der offenen Datei zu holen und in einer zusammenfassenden Exceldatei einzufügen. Das Proble...
01.01.1970 00:00:00
Thread-ID: 1205879
35 Beiträge
Macro zum automatischen erstellen einer Datei
Michael

Hallo zusammen,
ich habe folgende Herausforderung: Ich möchte gerne aus einer Excel-Datei mit mehreren Arbeitsblättern jeweils "auf Knopfdruck" die einzelnen Arbeitsblätter in separate Dateien exportieren. Zusätzlich sollen in den neuen Dateien lediglich Werte und keine Formeln mehr enthalt...
06.07.2011 09:34:18
Thread-ID: 1221040
3 Beiträge
CSV Datei erstellen
Chris

Hallo zusammen,
folgendes Makro exportiert das Sheet Masterliste als CSV Datei auf dem Desktop. Das tut es auch.
Zusätzlich wird aber das Register "MASTERLISTE" in der Originaldatei in "KalenderCSV" umbenannt.
Weiss einer wieso?
Das Makro soll nur die Masterliste als CSV mit Ko...
03.11.2011 09:13:29
Thread-ID: 1236382
2 Beiträge
csv Datei erstellen
Chris

Hallo zusammen,
das Makro speichert mir das sheet Masterliste als csv-datei auf dem Desktop. Zusätzlich ändert mir es das Sheet "Masterliste" in der Originaldatei in "KalenderCSV" um. Wie kann ich letzteres umgehen?
Sheets("Masterliste").SaveAs Filename:=Environ("UserProfile") & "\D...
03.11.2011 09:14:54
Thread-ID: 1236383
5 Beiträge
Anzeige
.csv datei öffnen
stefan

Hallo liebe VBA Profis,
brauche eure Hilfe habe eine .csv Datei die ich öffnen möchte und den Inhalt
in eine Registerkarte einfügen immer dran hängen
brauche eure Hilfe bitte SOS
VELEN DANK im VORAUS !!!!!!!!!!!!!!
Die .csv Datei hat zwölf spalten
per Button click<...
01.05.2012 13:53:34
Thread-ID: 1261723
7 Beiträge
Anzeige
Mehrere CSV Dateien öffnen
Michael

Hallo,
ich habe folgenden Code um mehrere CSV Dateien zu öffnen. Leider verstehe ich nicht wie ich die semikolon trennzeichen einfügen kann. Des Weiteren möchte ich gerne die erste Zeile im folgenden format DMY.
Der Code sieht wie folgt aus:
Dim dateien, i
Dim owkb As Workbook<...
23.05.2012 19:37:41
Thread-ID: 1264577
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige