Thema Datum  Von Nutzer Rating
Antwort
Rot Excel Sheet öffnen und mit .csv Dateiendung speichern
25.04.2018 20:23:25 VBAistNeuland
NotSolved
25.04.2018 20:42:02 Gast80787
NotSolved
25.04.2018 23:08:44 VBAistNeuland
NotSolved

Ansicht des Beitrags:
Von:
VBAistNeuland
Datum:
25.04.2018 20:23:25
Views:
1061
Rating: Antwort:
  Ja
Thema:
Excel Sheet öffnen und mit .csv Dateiendung speichern

Hallo, 

was ich machen möchte:

Per Java (über JACOB, wen es interessiert) ein Excel-Sheet mit aktivierten VBA-Makros aufrufen, das dann ein Makro enthält, welches dann die bestehenden Autokorrektur-Einträge ausliest und tabellarisch auflistet - und am Ende dieses Sheet als .csv-Datei im selben Ordner abspeichert.

 

Die Autokorrektureinträge auszulesen klappt schonmal, auch dank der Hilfe genau dieses Forums:

 

Sub ACRL_Array()
    Dim ACRL
    ACRL = Application.AutoCorrect.ReplacementList
    Cells(1, 1).Resize(UBound(ACRL), 2) = ACRL
End Sub

 

Nun möchte ich entweder dieses Makro erweitern, oder ein zusätzliches Makro schreiben - auf Stackoverflow.com fand ich folgendes:

 

Sub test()

Application.DisplayAlerts = False

ThisWorkbook.Sheets(strSourceSheet).Copy
ActiveWorkbook.SaveAs Filename:=strFullname, FileFormat:=xlCSV, CreateBackup:=True
ActiveWorkbook.Close

Application.DisplayAlerts = True

End Sub

... leider funktioniert das nicht: die dritte Zeile wird nicht ausgeführt mit "Laufzeitfehler 9: Index außerhalb des gültigen Bereichs".

 

Meine Java-Kenntnisse sind ausreichend, aber in VBA kenne ich mich gar nicht aus - wie kriege ich das, was ich vorhabe, umgesetzt?

 

Vielen Dank im Voraus! 


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 Excel Sheet öffnen und mit .csv Dateiendung speichern
25.04.2018 20:23:25 VBAistNeuland
NotSolved
25.04.2018 20:42:02 Gast80787
NotSolved
25.04.2018 23:08:44 VBAistNeuland
NotSolved