|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Automatischer Datenimport von csv/txt |
19.04.2018 10:43:12 |
Maik |
|
|
|
19.04.2018 10:46:15 |
Maik |
|
|
|
19.04.2018 10:51:04 |
Gast47883 |
|
|
Von:
Maik |
Datum:
19.04.2018 10:43:12 |
Views:
811 |
Rating:
|
Antwort:
|
Thema:
Automatischer Datenimport von csv/txt |
|
Hallo Leute
Mein Protokoll soll sich eine Text-Datei und eine csv-Datei aus einem vorgebenen Ordner ziehen und die Inhalte an bestimmten Stellen importieren und einfügen (in verschiedenen Tabellen/Arbeitsmappen). Und im Idealfall nach dem Import die beiden Dateien löschen.
Ich bin leider totaler Anfänger in der VBA Programmierung
Meine Versuche bis jetzt
für den Import
Dim Dateiname_Ausw As String ' Dateiname der Auswertedatei
Dim Dateiname_MW As Variant ' Dateiname der Datei mit Messwerten
Dim Abbruch As Long
On Error GoTo Fehler
Dateiname_Ausw = ActiveWorkbook.Name
Application.ScreenUpdating = False
Call Datei_öffnen(Dateiname_Ausw, Dateiname_MW, Abbruch)
If Abbruch = 0 Then
'Datenimport wird durchgeführt, wenn der Dateiauswahldialog nicht abgebrochen wird
Call Datenimport(Dateiname_Ausw, Dateiname_MW)
Call Datei_schließen(Dateiname_MW)
ElseIf Abbruch = 1 Then
für das richtige einsortieren der csv
Dim i As Long
Windows(Dateiname_Ausw).Activate
ActiveSheet.Unprotect
Application.ScreenUpdating = False
'vorhandene Rohdaten werden gelöscht
For i = 2 To 1000
Range("A" & i & ":E" & i).Select
Selection.ClearContents
Next i
Windows(Dir(Dateiname_MW)).Activate
'Namen der Messpunkte werden in der .csv-Datei ausgewählt und kopiert
Workbooks(Dir(Dateiname_MW)).Sheets(1).Range("A2:A1000").Select
Selection.Copy
Windows(Dateiname_Ausw).Activate
'kopierte Zellen werden bei den Rohdaten eingefügt
Range("A2").Select
ActiveSheet.Paste
Windows(Dir(Dateiname_MW)).Activate
'Schichtdicken werden in der .csv-Datei ausgewählt und kopiert
Workbooks(Dir(Dateiname_MW)).Sheets(1).Range("B2:B1000").Select
Selection.Copy
Windows(Dateiname_Ausw).Activate
'kopierte Zellen werden bei den Rohdaten eingefügt
Range("B2").Select
ActiveSheet.Paste
Windows(Dir(Dateiname_MW)).Activate
'untere Toleranzen werden in der .csv-Datei ausgewählt und kopiert
Workbooks(Dir(Dateiname_MW)).Sheets(1).Range("C2:C1000").Select
Selection.Copy
Windows(Dateiname_Ausw).Activate
'kopierte Zellen werden bei den Rohdaten eingefügt
Range("C2").Select
ActiveSheet.Paste
Hilfe wäre großartig!
grüße
Maik |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Automatischer Datenimport von csv/txt |
19.04.2018 10:43:12 |
Maik |
|
|
|
19.04.2018 10:46:15 |
Maik |
|
|
|
19.04.2018 10:51:04 |
Gast47883 |
|
|