Cuesheet Datei öffnen per VBA

Sub ExportToText()

    Dim fso As Object, txtFile As Object, r as long, c as long

    ' Dim FILEPATH as String 

	' FILEPATH = Environ("USERPROFILE") & "\Desktop\cuesheet.cue"

	Const FILEPATH = "D:\Desktop\cuesheet.cue"     

    Set fso = CreateObject("Scripting.FileSystemObject")   

    Set txtFile = fso.OpenTextFile(FILEPATH, 2, True)



    ' export data to textfile (.cue) from second sheet (1)  

    With ThisComponent.Sheets(1)

            ' export Range E3:E80 of the sheet  

	    set exportRange = .getCellRangeByName("E3:E80").getRangeAddress()  

	    for c = exportRange.startColumn to exportRange.endColumn

	    	for r = exportRange.startRow to exportRange.endRow

	    	  	txtFile.WriteLine(.getCellByPosition(c,r).getString())

	        Next

	    Next

    End with

    ' close text file  

    txtFile.Close

    Set fso = Nothing

    Set txtFile = Nothing

    

    ' open Cuesheet-Datei in "mp3directcut"

    Dim Dateipfad As String

    Dim Dateiname As String

    Dateipfad = "D:\Desktop\"

    Dateiname = "cuesheet.cue"



    ' txtFile.Open

    ' Workbooks.Open (Dateipfad & Dateiname)

    ' ActiveWorkbook.FollowHyperlink (Dateipfad & Dateiname)

Dim FILEPATH as String 

	FILEPATH = Environ("USERPROFILE") & "\Desktop\cuesheet.cue"