Thema Datum  Von Nutzer Rating
Antwort
Rot CSV import to excel worksheet and apply formatting
 03.05.2017 10:57:47 BennyS
NotSolved
03.05.2017 17:18:10 gast
NotSolved

Ansicht des Beitrags:
Von:
BennyS		 Datum:
03.05.2017 10:57:47		 Views:
908		 Rating:
     
Antwort:
  Ja
Thema:
CSV import to excel worksheet and apply formatting
Hallo zusammen! Ich habe eine Aufgabe die ich gerne automatisiert lösen würde. Im Ordner sind N .csv dateien. Diese würde ich gerne per Knopfdruck in Excel in einzelne Worksheets einlesen, welche den Namen der entsprechenden csv Datei hat. Dazu habe ich bereits etwas im Internet gefunden, jedoch habe ich hier das Problem, dass das Makro nicht mehr ausführbar ist sobald ich die Datei gespeichert& geschlossen habe. In meinem Excel habe ich bereits den ordner als vertrauenswürdige Location eingestellt und immer alle Makros aktiviert. Trotzdem funktioniert das leider nicht. Den Code den ich hierfür gefunden habe ist folgender: Option Explicit Sub Load_CSVs() 'Author: Benjamin Spiess 'u-Number : u610130 'Date: 27/04/2007 'Summary: Import all CSV files from a folder into separate sheets ' named for the CSV filenames Dim fPath As String Dim fCSV As String Dim wbCSV As Workbook Dim wbMST As Workbook Set wbMST = ThisWorkbook fPath = "" 'path to CSV files, include the final \ Application.ScreenUpdating = False 'speed up macro Application.DisplayAlerts = False 'no error messages, take default answers fCSV = Dir(fPath & "*.csv") 'start the CSV file listing On Error Resume Next Do While Len(fCSV) > 0 Set wbCSV = Workbooks.Open(fPath & fCSV) 'open a CSV file wbMST.Sheets(ActiveSheet.Name).Delete 'delete sheet if it exists ActiveSheet.Move After:=wbMST.Sheets(wbMST.Sheets.Count) 'move new sheet into Mstr Columns.AutoFit 'clean up display fCSV = Dir 'ready next CSV Loop Application.ScreenUpdating = True Set wbCSV = Nothing End Sub Dazu würde ich gerne automatisiert "Conditional Formatting" auf alle Worksheets anwenden mit folgender Regel: Conditional Formating -> Color Scales -> Blue White Red Color Scale. Und das auf alle Felder mit Ausnahme der HeaderZeile (1) und der Indexspalte (A). Optimalerweise sollte das Skript auf Worksheets welche mit "_rel" enden auch die Spalte (B) für das Formatting nicht berücksichtigen. Könnt ihr mir hier bitte helfen? Ich wäre euch sehr dankbar!:) Grüße Benny

Ihre Antwort
  • 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: Name: Email:



  • 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
Rot CSV import to excel worksheet and apply formatting
 03.05.2017 10:57:47 BennyS
NotSolved
03.05.2017 17:18:10 gast
NotSolved