Thema Datum  Von Nutzer Rating
Antwort
27.09.2021 10:11:56 Testercsv
NotSolved
27.09.2021 12:22:31 Werner
NotSolved
Rot Dateiname Stelle entfernen
 28.09.2021 11:51:40 Testercsv
NotSolved
28.09.2021 15:10:32 Werner
NotSolved

Ansicht des Beitrags:
Von:
Testercsv		 Datum:
28.09.2021 11:51:40		 Views:
526		 Rating:
     
Antwort:
  Ja
Thema:
Dateiname Stelle entfernen

Hallo nochmals klapt alles ausgezeichnet aber folgedes Problem

 

wenn das Makro die Datei  von CSV in XLSX konvertiert gibt Sie immer den Dateinamen so aus Beispiel : UGRueckstellung8578.csv.xlsx  , ich möchte bitte das das .csv nicht im fertigen Dateinamen vorkommt. Kann mir hier jemand helfen ? Vielen Dank

 

Hier der Code :

Option Explicit
 
Sub Convert_CSV()
Dim strFile As String, wb As Workbook
   
Const strFolder = "C:\Users\s.sari.dksgmbh\Downloads\PDF-JOB3\"
 
Application.ScreenUpdating = False
 
strFile = Dir(strFolder & "*.csv")
Do While strFile <> ""
    Set wb = Workbooks.Open(strFolder & strFile, local:=True)
    wb.SaveAs strFolder & strFile & ".xlsx", Password:="test", FileFormat:=xlOpenXMLWorkbook
    wb.Close False
    strFile = Dir
  Loop
End Sub

 

 

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
27.09.2021 10:11:56 Testercsv
NotSolved
27.09.2021 12:22:31 Werner
NotSolved
Rot Dateiname Stelle entfernen
 28.09.2021 11:51:40 Testercsv
NotSolved
28.09.2021 15:10:32 Werner
NotSolved