Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

An CSV und VBA-Spezialisten

An CSV und VBA-Spezialisten
25.06.2005 21:14:31
Roli
hy csv-spezialisten
ich habe eine große Bitte! Es wurde eine Funktion eingebaut (unter Datei: In CSV speichern). Leider funktioniert die übersetzung von Excel in csv nicht ganz und ich weiß einfach nicht warum.
https://www.herber.de/bbs/user/24188.zip
Schaut euch die Datei mal an. Sie ist auf ein Add-In angewiesen. Ich freue mich über jede Rückmeldung
Liebe Grüße
Roli

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: An CSV und VBA-Spezialisten
25.06.2005 22:02:21
MichaV
Hallo
Mach Dir doch bitte die Mühe, den relevanten Teil Deines Codes zu posten. Das kann man bei Deinem Level wohl erwarten.
Deine beiden Mappen sind Kennwortgeschützt und es wird eine Webabfrage durchgeführt. Welcher halbwegs vernünftige Mensch läd sich sowas auf den Rechner?
Gruß- Micha
AW: An CSV und VBA-Spezialisten
25.06.2005 23:30:31
Roli
Tut mir furchtbar leid. Mein Fehler. Ich habe gestern die Datei mit Kennwort getestet und ich habe vergeßen sie zu entfernen. Anbei nochmal die Dateien
https://www.herber.de/bbs/user/24189.zip
Der CSV Code befindet sich in der Datei auftragsformular_ultraneu_preise.xls
Im VBA unter Modul moAddin:

Sub Speichern_csv()
Dim sFile As Variant, msgAntwort As Variant
Dim Daten As Range, Zeile As Object, Zelle As Object
Dim strTemp As String
On Error GoTo errorhandler
With ActiveSheet
sFile = Application.GetSaveAsFilename(InitialFilename:=Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & ".csv", _
FileFilter:="CSV-Datei (*.csv), *.csv")
'sFile = Application.GetSaveAsFilename(InitialFilename:="DeineVorgabe" & ".csv", _
FileFilter:="CSV-Datei (*.csv), *.csv")
If sFile = False Then Exit Sub
If Dir(sFile) <> "" Then
msgAntwort = MsgBox("Die Datei '" & sFile & "' besteht bereits. Möchten Sie die bestehende Datei ersetzen?", _
vbQuestion + vbYesNo, "Warnung")
If msgAntwort = vbNo Then Exit Sub
End If
Set Daten = .UsedRange
Close
Open sFile For Output As #1
For Each Zeile In Daten.Rows
For Each Zelle In Zeile.Cells
If Zelle.Column = 1 Then
strTemp = Zelle
Else
strTemp = strTemp & ";" & Zelle
End If
Next Zelle
Print #1, strTemp
strTemp = ""
Next Zeile
Close #1
End With
MsgBox "Die Datei wurde erfolgreich exportiert.", vbInformation, "Export erfolgreich"
ActiveWorkbook.FollowHyperlink <a href="Address:="http://www.moliv.at",">Address:="http://www.moliv.at",</a> NewWindow:=True
Exit Sub
errorhandler:
MsgBox "Es ist ein Fehler aufgetreten. Die Datei konnte nicht vollständig exportiert werden.", vbCritical, "Fehlermeldung"
End Sub

Komischerweise geht dieser Code mit einer neuen Arbeitsmappge jedoch nicht mit diesem Formular.
Liebe Grüße
Roli
Anzeige
AW: An CSV und VBA-Spezialisten
26.06.2005 00:29:34
Roli
Tut mir furchtbar leid. Mein Fehler. Ich habe gestern die Datei mit Kennwort getestet und ich habe vergeßen sie zu entfernen. Anbei nochmal die Dateien
https://www.herber.de/bbs/user/24189.zip
Der CSV Code befindet sich in der Datei auftragsformular_ultraneu_preise.xls
Im VBA unter Modul moAddin:

Sub Speichern_csv()
Dim sFile As Variant, msgAntwort As Variant
Dim Daten As Range, Zeile As Object, Zelle As Object
Dim strTemp As String
On Error GoTo errorhandler
With ActiveSheet
sFile = Application.GetSaveAsFilename(InitialFilename:=Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & ".csv", _
FileFilter:="CSV-Datei (*.csv), *.csv")
'sFile = Application.GetSaveAsFilename(InitialFilename:="DeineVorgabe" & ".csv", _
FileFilter:="CSV-Datei (*.csv), *.csv")
If sFile = False Then Exit Sub
If Dir(sFile) <> "" Then
msgAntwort = MsgBox("Die Datei '" & sFile & "' besteht bereits. Möchten Sie die bestehende Datei ersetzen?", _
vbQuestion + vbYesNo, "Warnung")
If msgAntwort = vbNo Then Exit Sub
End If
Set Daten = .UsedRange
Close
Open sFile For Output As #1
For Each Zeile In Daten.Rows
For Each Zelle In Zeile.Cells
If Zelle.Column = 1 Then
strTemp = Zelle
Else
strTemp = strTemp & ";" & Zelle
End If
Next Zelle
Print #1, strTemp
strTemp = ""
Next Zeile
Close #1
End With
MsgBox "Die Datei wurde erfolgreich exportiert.", vbInformation, "Export erfolgreich"
ActiveWorkbook.FollowHyperlink <a href="Address:="http://www.moliv.at",">Address:="http://www.moliv.at",</a> NewWindow:=True
Exit Sub
errorhandler:
MsgBox "Es ist ein Fehler aufgetreten. Die Datei konnte nicht vollständig exportiert werden.", vbCritical, "Fehlermeldung"
End Sub

Komischerweise geht dieser Code mit einer neuen Arbeitsmappge jedoch nicht mit diesem Formular.
Liebe Grüße
Roli
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige