Thema Datum  Von Nutzer Rating
Antwort
02.11.2015 20:48:54 User333
NotSolved
03.11.2015 13:36:28 Gast1651
NotSolved
03.11.2015 14:17:11 Gast61514
NotSolved
03.11.2015 17:24:48 Gast42477
NotSolved
03.11.2015 15:41:31 Gast88414
Solved
Blau Makro um Makro auf einen Ordner anzuwenden
 03.11.2015 18:45:04 Gast80517
NotSolved
03.11.2015 19:06:23 Gast49029
NotSolved

Ansicht des Beitrags:
Von:
Gast80517		 Datum:
03.11.2015 18:45:04		 Views:
1043		 Rating:
     
Antwort:
  Ja
Thema:
Makro um Makro auf einen Ordner anzuwenden

So das problem konnte ich auch lösen

mein letztes Problem bezieht sich auf das format. 

Mit nur "ActiveWorkbook.Save" klappt alles wunderbar, es wird aber als cvs exportiert. Für matlab benötige ich jedoch xlsx.

 

Daher der Code :

 

Dim strVerzeichnis As String
  Dim strDatei As String
  Dim strTyp As String
  Dim strDateiname As String
  strTyp = "*.csv"
  Application.ScreenUpdating = False
  strVerzeichnis = strOrdner
  strDateiname = Dir(strVerzeichnis & strTyp)
  Do While strDateiname <> ""
      Workbooks.Open Filename:=strVerzeichnis & strDateiname
      Call clean_File
      Application.DisplayAlerts = False
      ActiveWorkbook.SaveAs Filename:=(strDateiname), FileFormat:=xlOpenXMLWorkbook
      ActiveWorkbook.Close
      Application.DisplayAlerts = True
      strDateiname = Dir
  Loop
  Application.ScreenUpdating = True
End Sub

Das Problem ist, dass die Datei nicht im gleichen Ordner wie die ursprungsdatei gespeichert wird. Ich hätte gerne als Pfad strOrdner. Das bekomme ich aber nicht hin.

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
02.11.2015 20:48:54 User333
NotSolved
03.11.2015 13:36:28 Gast1651
NotSolved
03.11.2015 14:17:11 Gast61514
NotSolved
03.11.2015 17:24:48 Gast42477
NotSolved
03.11.2015 15:41:31 Gast88414
Solved
Blau Makro um Makro auf einen Ordner anzuwenden
 03.11.2015 18:45:04 Gast80517
NotSolved
03.11.2015 19:06:23 Gast49029
NotSolved