Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Xls to CSV mit makro

Mitglied: aiwa002

aiwa002 (Level 1) - Jetzt verbinden

29.09.2011, aktualisiert 22:14 Uhr, 10565 Aufrufe, 2 Kommentare

Hallo,

ich muss eine Excel Datei automatisch per Batch Job in eine CSV Datei umwandeln.
Natürlich das Ganze voll automatisch.
Das ganze soll über ein Makro in Excel umgesetz werden.

Hierzu habe ich bereits zwei Möglichkeiten mit Problemen

1. Möglichkeit

Problem:
Leider werden hier als Trennzeichne "," verwendet.
Es werden jedoch ";" als Trennzeichen benötigt!
01.
Private Sub Workbook_Open()
02.
    ChDir "c:\temp"
03.
    Workbooks.Open Filename:="c:\temp\test.xls"
04.
    ActiveWorkbook.SaveAs Filename:="c:\temp\test.csv", _
05.
    FileFormat:=xlCSV, CreateBackup:=False
06.
End Sub

2. Möglichkeit

Problem:
Hier wird beim speichern der "Speichern unter" Dialog angezeigt,
Es sollte jedoch an dieser Stelle automatisch abspeichern.
01.
Sub Sheet_Nach_CSVDatei()
02.
'hierbei bleibt die Formatierung der Zellen so wie sie angezeigt wird.
03.
'Es muss alles so formatiert sein wie es später In der CSV sein soll.
04.
Dim vntFileName As Variant
05.
Dim lngFn As Long
06.
Dim rngRow As Excel.Range
07.
Dim rngCell As Excel.Range
08.
Dim strDelimiter As String
09.
Dim strText As String
10.
Dim strTextCell As String
11.
Dim bolErsteSpalte As Boolean
12.
Dim rngColumn As Excel.Range
13.
Dim wksQuelle As Excel.Worksheet
14.

15.
strDelimiter = ";" 'deutsches CSV-Format: ";", Englishes CSV-Format: ","
16.

17.
vntFileName = Application.GetSaveAsFilename("Test.csv", _
18.
    FileFilter:="CSV-File (*.csv),*.csv")
19.
If vntFileName = False Then Exit Sub
20.

21.
Set wksQuelle = ActiveWorkbook.Worksheets("Tabelle1")  'Beispiel oder: = ActiveSheet
22.

23.
lngFn = FreeFile
24.
Open vntFileName For Output As lngFn
25.
 For Each rngRow In wksQuelle.UsedRange.Rows 
26.
  strText = ""
27.
  bolErsteSpalte = True
28.
  For Each rngCell In rngRow.Columns
29.
   strTextCell = rngCell.Text 'Text! inclusive dem NumberFormat der Zelle
30.
   If InStr(1, strTextCell, strDelimiter, 0) Then '## wenn alle Zellen mit " " eingeschlossen werden sollen zeile auskommentieren
31.
    'bewirkt das Werte die den Delimiter enthalten (was eigentlich nicht sein sollte) mit " " eingeschlossen werden
32.
    strTextCell = Chr(34) & strTextCell & Chr(34)
33.
   End If '##
34.
   If bolErsteSpalte Then
35.
    strText = strTextCell
36.
    bolErsteSpalte = False
37.
   Else
38.
    strText = strText & strDelimiter & strTextCell
39.
   End If
40.
  Next
41.
  Print #lngFn, strText
42.
 Next
43.
Close lngFn
44.
 
45.
End Sub
Ich hoffe ihr könnt mir hier weiterhelfen!

Gruß
aiwa002

[Edit Biber] Zeilennummer drancodeformatiert. [/Edit]
Mitglied: bastla
29.09.2011 um 11:43 Uhr
Hallo aiwa002!
Hier wird beim speichern der "Speichern unter" Dialog angezeigt,
Es sollte jedoch an dieser Stelle automatisch abspeichern.
Dann ersetze einfach die entsprechende Stelle im Code (ich hätte ja die Zeilennummer(n) angegeben, wenn Du eine passende Formatierung verwendet hättest) durch
vntFileName = "c:\temp\test.csv"
Grüße
bastla
Bitte warten ..
Mitglied: aiwa002
29.09.2011 um 11:55 Uhr
Hat super geklappt, Danke!

Kann manchmal so einfach sein
Bitte warten ..
Ähnliche Inhalte
Windows Server

Powershell Daten sortiert in CSV XLS exportieren

gelöst Frage von earthheroWindows Server2 Kommentare

Schönen guten Tag zusammen, ich habe mir aus dem Internet ein entsprechendes Skript zur Auswertung von WSUS Update zusammengebastelt, ...

Batch & Shell

Per Batch in Aufgabeplanung XLS in CSV umwandeln

Frage von dtbsysBatch & Shell21 Kommentare

Hallo und guten Morgen, leider habe ich in den zahlreichen Beiträgen zu dem Thema nichts passendes gefunden. Ich bekomme ...

XML

CSV bzw. XLS Dateien in ein XML Schema einbinden

gelöst Frage von fisi-floXML3 Kommentare

Hallo allerseits, bisher habe ich von Lieferanten immer unterschiedliche Preislisten der Lieferanten im CSV oder XLS Dateiformat bekommen. Selbst ...

VB for Applications

Excel Makro zur Konvertierung einer xls oder xlsx in das Frormat xlsm

gelöst Frage von Armin-KVB for Applications3 Kommentare

Liebes Forum, vielleicht könnt Ihr mir wieder bei einem Problem aus der Excel-VBA umgebung weiterhelfen. Folgender Hintergrund dazu: In ...

Neue Wissensbeiträge
Windows Server

Zähe Update-Installation auf Windows Server 2016

Information von kgborn vor 3 StundenWindows Server1 Kommentar

Mir sind in der Vergangenheit immer wieder Beschwerden von Admins unter die Augen gekommen, die sich über die doch ...

Humor (lol)
Turnschuhe per Firmware lahmlegen
Information von Henere vor 5 StundenHumor (lol)3 Kommentare

Und was kommt demnächst ? Bekomme ich kein Klopapier mehr, weil der Spender einem DDOS unterliegt ? :-) Ich ...

Sicherheit

Sicherheitsrisiko in WinRAR und Co. durch Schwachstelle in UNACEV2.DLL

Information von kgborn vor 9 StundenSicherheit

In der seit 2005 nicht mehr aktualisierten Bibliothek UNACEV2.DLL gibt es eine Path-Traversal-Schwachstelle. Diese ermöglicht es, bei ACE-Archiven Dateien ...

Internet

CDU Propaganda: Urheberschutz im Internet - Ende des digitalen Wild-West

Information von Frank vor 1 TagInternet4 Kommentare

Hallo Administratoren, aus einem Kommentar heraus habe ich folgenden Beiträge von Herr Sven Schulze und Axel Voss (beide CDU ...

Heiß diskutierte Inhalte
Hardware
Frage an Kenner von 5,25 Zoll Laufwerken
Frage von DerWoWussteHardware43 Kommentare

Moin Kollegen. Hier wird gerade im Archiv gewühlt und 5,25 Zoll Disketten ("2S/HD", 96TPI) sollen eingelesen werden. Ich habe ...

Datenbanken
PHP Fatal error: Uncaught Error: Call to undefined function oci connect
gelöst Frage von PlanitecXDatenbanken22 Kommentare

Hallo Zusammen, ich sitze seit Tagen am Problem das ich keine PHP Anwendung mit Anbindung zu Oracle zum laufen ...

Hardware
PC im Selbstbau, Workstation, mittelklasse Gaming
gelöst Frage von MrRobot1997Hardware21 Kommentare

Hallöchen Leute, ich bin seit einigen Jahren leider nicht mehr wirklich im Bild, wenn es um die Hardware und ...

Windows Server
User auf Server Install-Rechte geben
gelöst Frage von killtecWindows Server17 Kommentare

Hi, ich möchte auf mehreren W2016 Servern einem bestimmten User das Recht zum Installieren von Programmen geben. Er soll ...