[Excel] Macro VBA Excel in txt (DezimalstellenFormat)

[FINserv]

Hallo Zusammen
ich habe folgendes Problem bei untenstehendem Macro.
Wenn ich diesen Macro durchlaufe wird für eine Schnittstellen ein TXT Datei erzeigt.
Dabei wird Die Dezimalstelle von . auf , abgeändert. Ich brauche
aber zwingen einen . (Punkt) für das Dezimalstellenformat.

Kann mir da jemand helfen?

Sub Makro1()
'
' Makro1 Makro
'

    Sheets("sap_data_export").Select
    Columns("A:CO").Select
        
'Declare a variable as a FileDialog object.
    Dim fd As FileDialog
    Dim cnt As Integer
    Dim filepath As String

    'Create a FileDialog object as a File Picker dialog box.
    Set fd = Application.FileDialog(msoFileDialogSaveAs)

    fd.AllowMultiSelect = False
    
   
    fd.InitialFileName = "sap_data_export.txt"
           
     
    fd.Title = "Speichere Tab-Stopp getrennte Datei"
    
    fd.FilterIndex = 10
    
    If fd.Show = -1 Then
        fd.Execute
    Else
    
    End If
        
    Set fd = Nothing
    
    Sheets("rating").Select
    
End Sub

 

[Yaslaw]

Versuchs mal mit dem Export von Excel.
Bei mir speichert es so mit Punkt.

Dim fd As FileDialogSet:    fd = Application.FileDialog(msoFileDialogSaveAs)
fd.AllowMultiSelect = False
fd.InitialFileName = "sap_data_export.txt"
fd.title = "Speichere Tab-Stopp getrennte Datei"
fd.show
Dim filepath As String:     filepath = fd.SelectedItems(1)
Call Sheets("sap_data_export").SaveAs(filepath, xlCSVMSDOS)

Link zu den Filetypen: http://msdn.microsoft.com/en-us/library/office/ff198017(v=office.15).aspx

 

[FINserv]

Muss ich das Coding VB 1:1 so übernehmen?
Bei mir kommt bei der 1 Zeile ein Kompilierungsfehler.
Danke für die erneute Hilfe

 

[Yaslaw]

Stimmt, dort fehlt ein SET.
Nein, du musst es nicht 1:1 übernehmen. Du solltest versuchen es zu verstehen und ggf für dich anwenden, wenn es was taugt

 

[FINserv]

Dim fd As FileDialogSet: fd = Application.FileDialog(msoFileDialogSaveAs)

wo fehlt ein SET.

Kannst du mir bitte nochmals das ganze Coding angeben. Ich bin da noch zu wenig
gut und möchte einfach diesen Makro, dass er das File abspeichert.
DAnke für deine HIlfe

 

[FINserv]

Sub Makro1()
'
' Makro1 Makro
'

    Sheets("sap_data_export").Select
    Columns("A:CO").Select
        
    
'Declare a variable as a FileDialog object.
    Dim fd As FileDialog
    Dim cnt As Integer
    Dim filepath As String
    
    Dim fd As FileDialogSet
    fd.AllowMultiSelect = False
    fd.InitialFileName = "sap_data_export.txt"
    fd.Title = "Speichere Tab-Stopp getrennte Datei"
    fd.Show
    Dim filepath As String:     filepath = fd.SelectedItems(1)
    Call Sheets("sap_data_export").SaveAs(filepath, xlCSVMSDOS)

    
    If fd.Show = -1 Then
        fd.Execute
    Else
    
    End If
        
    Set fd = Nothing
    
    Sheets("rating").Select
    
End Sub

 

[Yaslaw]

Ergo erledigt?

 

[FINserv]

Nein kommt immer noch ein Syntaxfehler. Laufzeitfehler 5
bei der Zeile filepath = fd.SelectedItems(1)

Sub Makro1()
'
' Makro1 Makro
'

    Sheets("sap_data_export").Select
    Columns("A:CO").Select
        

'Declare a variable as a FileDialog object.
    Dim fd As FileDialog
    Dim cnt As Integer
    Dim filepath As String

    'Create a FileDialog object as a File Picker dialog box.
    
    Set fd = Application.FileDialog(msoFileDialogSaveAs)
    
    fd.AllowMultiSelect = False
    
    fd.InitialFileName = "sap_data_export.txt"
    
    fd.Title = "Speichere Tab-Stopp getretnnte Datei"
    
    filepath = fd.SelectedItems(1)
    Call Sheets("sap_data_export").SaveAs(filepath, xlCSVMSDOS)
    
       
    If fd.Show = -1 Then
        fd.Execute
    Else
    
    End If
        
    Set fd = Nothing
    
    Sheets("rating").Select
    
End Sub

 

[Yaslaw]

Ist klar. Du liest die Auswahl aus, bevor du den Dialog geöffnet hat.
Leider kann der FileDialog nicht in die Zukunft schauen.

PS: Bitte dein Code in VB-Tags setzen, damit er lesbar wird

 

[FINserv]

Also ich schicke Dir nochmals das ganze Coding.
sorry, komme nicht weiter.

Sub Makro1()
Sheets("sap_data_export").Select
Dim fd As FileDialog
Dim cnt As Integer
Dim filepath As String
Set fd = Application.FileDialog(msoFileDialogSaveAs)
fd.AllowMultiSelect = False
fd.InitialFileName = "sap_data_export.txt"
fd.Title = "Speichere Tab-Stopp getrennte Datei"
Set filepath = fd.SelectedItems(1)
Call Sheets("sap_data_export").SaveAs(filepath, xlCSVMSDOS)
If fd.Show = -1 Then
fd.Execute
Else
End If
Set fd = Nothing
Sheets("rating").Select
End Sub