Hochkomma mit VBSCRPT aus Excel ausgeben
Hallo, eine Frage an die Experten.
Ich habe folgenden Code in einem Excel Makro.
Ich möchte aber, dass bei der Ausgabe “Zeile3=" & ActiveCell.Offset(0, 3).Text der Wert der Zelle in Anführungszeichen steht.
Das tut er nicht.
Momentan kommt:
Ausgabe
Wert="Test"
Zeile3=Hallo
Es soll aber sein:
Ausgabe
Wert="Test"
Zeile3="Hallo"
Mein Code lautet:
Option Explicit
Const expPfad = "C:\Temp\G\"
Const expFile = "1.txt"
Sub Create_txt()
Dim Qe As Long, myEdit As Variant
Open expPfad & expFile For Output As #1
Print #1, "Ausgabe" & vbNewLine & "Wert=" & """Test""" & vbNewLine & “Zeile3=" & ActiveCell.Offset(0, 3).Text
Close #1
End Sub
Wie kann ich das erreichen?
Gruß viking
Ich möchte aber, dass bei der Ausgabe “Zeile3=" & ActiveCell.Offset(0, 3).Text der Wert der Zelle in Anführungszeichen steht.
Das tut er nicht.
Momentan kommt:
Ausgabe
Wert="Test"
Zeile3=Hallo
Es soll aber sein:
Ausgabe
Wert="Test"
Zeile3="Hallo"
Mein Code lautet:
Option Explicit
Const expPfad = "C:\Temp\G\"
Const expFile = "1.txt"
Sub Create_txt()
Dim Qe As Long, myEdit As Variant
Open expPfad & expFile For Output As #1
Print #1, "Ausgabe" & vbNewLine & "Wert=" & """Test""" & vbNewLine & “Zeile3=" & ActiveCell.Offset(0, 3).Text
Close #1
End Sub
Wie kann ich das erreichen?
Gruß viking
Please also mark the comments that contributed to the solution of the article
Content-Key: 148560
Url: https://administrator.de/contentid/148560
Printed on: April 25, 2024 at 17:04 o'clock
4 Comments
Latest comment
Hallo Viking,
Wenn du deinen Quelltext richtig Formatierst sieht es deutlich besser und lesbarer aus. Siehe die Formatierungshilfe.
[Edit]
Code geändert
[Edit]
Sollte so gehen.
Peter
Wenn du deinen Quelltext richtig Formatierst sieht es deutlich besser und lesbarer aus. Siehe die Formatierungshilfe.
Option Explicit
Const expPfad = "C:\Temp\G\"
Const expFile = "1.txt"
Sub Create_txt()
Dim Qe As Long, myEdit As Variant
Open expPfad & expFile For Output As #1
Print #1, "Ausgabe" & vbNewLine & "Wert=" & """Test""" & vbNewLine & “Zeile3=" & ActiveCell.Offset(0, 3).Text
Close #1
End Sub
Wie kann ich das erreichen?
Nun es hängt davon ab was du in der Zelle ActiveCell.Offset(0,3) stehen hast. Steht dort ein Textwert, dann wird dieser ja auch korrekt in deine Textdatei übergeben. Du musst also noch deine gewünschten Hochkommata selber einfügen.[Edit]
Code geändert
Print #1, "Ausgabe" & vbNewLine & "Wert=" & """Test""" & vbNewLine & "Zeile3 = " & Chr$(34) & ActiveCell.Offset(0, 3).Text & Chr$(34);
Sollte so gehen.
Peter