Dateinameabfrage beim Speichern
07.01.2017 12:18:41
Jürgen
ja es gibt genung Beispiele leider bekomme ich das so nicht hin.
Ich habe eine kleine Anwendung welche mein aktives Arbeitsblatt beim Abspeichern in utf-8 umwandelt das klappt auch ganz hervorragend.
Leider ist bei dem Code der Speicherort und Dateiname fest vorgegeben was aber für mich so nicht funktioniert da ich gerne beim speichern den Dateinamen (nicht der Speicherort und die Endung csv diese sollen fest defeniert sein) abfrägt.
Hier mein Code - leider schaffe ich es nicht ihn so abzuändern das es klappt - kann mir jemand helfen - Dankeschön!
Option Explicit
Private Declare Function WideCharToMultiByte Lib "kernel32.dll" ( _
ByVal CodePage As Long, _
ByVal dwFlags As Long, _
ByVal lpWideCharStr As Long, _
ByVal cchWideChar As Long, _
ByVal lpMultiByteStr As Long, _
ByVal cbMultiByte As Long, _
ByVal lpDefaultChar As Long, _
ByVal lpUsedDefaultChar As Long) As Long
Private Const CP_UTF8 As Long = 65001
Private Const FILE_NAME = "c:\arbeit\test.csv"
Public Sub UTF8_Main()
Dim strText As String
Dim objRange As Range
If Get_Range(objRange) Then
If Build_Output_String(objRange, strText) Then
If Create_UTF8_File(FILE_NAME, strText) Then
MsgBox "Erstellen der Datei erfolgreich beendet.", _
vbInformation, "Information"
End If
End If
End If
End Sub
Anzeige