Gruss Reto
Option Explicit
Dim arrFilenames As Variant
Sub Makro_von_Reto()
'erstellt von Reto Stüssi
Dim wkb As Workbook
Dim WB1$
'Dim WB2$
Dim i As Integer
Dim Konsttemp As String
Dim strVerzeichnis
Dim fileToOpen As String
Dim Plattenkoordinaten As String
WB1 = ActiveWorkbook.Name
'WB2 = fileToOpen
'###################################################################################
'D E F I N I T I O N D E R P F A D E
Plattenkoordinaten = "" & Worksheets("NC-Datei").Range("J8") & "" 'Plattenkoordinaten.xls
Konsttemp = "" & Worksheets("NC-Datei").Range("J14") & "" 'temp -k Datei.txt
'###################################################################################
' Die vom Makro vorgenommenen Tätigkeiten bleiben zur Geschwindigkeitssteigerung unsichtbar
Application.ScreenUpdating = False
Workbooks.Open FileName:=Plattenkoordinaten 'Die Datei ist über WB1 ansprechbar.
'abspeichern als -k-Datei
ActiveWorkbook.SaveAs FileName:=Konsttemp & ".txt", _
FileFormat:=xlText, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False ' alle Änderungen werden verworfen
Application.ScreenUpdating = True
'-------------------------------------------------------------------------------------------
Selection:
'Öffnen-Dialogfeld aufrufen
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt", 1, _
"Text Datei auswählen, aber schnell...", MultiSelect:=False) ' Ausgewählte Datei des Öffnen-Dialoges in Feld ablegen
If fileToOpen <> False Then
If MsgBox("Sie haben keine Datei ausgewählt,warum ? . Möchten sie das Makro beenden?", vbYesNo, "Frage") = vbNo Then
GoTo Selection
Else
Exit Sub
End If
End If