Frage Entwicklung Batch & Shell
gelöst MSGBox und .txt

29.07.2011 um 21:31 Uhr, 4178 Aufrufe, 28 Kommentare

Hallo ihr

ich hätte gerne den inhalt einer txt Datei in eine .bat und zwar sollte der Inhalt der txt datei über eine MSGBox widergegeben werden

mein ansatz würde so lauten

@echo off & setlocal

echo "msgbox type "D:\Eigene Dateien Daten\Desktop\info.txt"|more" ,vbExclamation , "Test"> msg.vbs

msg.vbs

erase msg.vbs

endlocal & exit

aber leider geht das nicht könnte mir jemand bitte helfen

28 Antworten

LÖSUNG Berrnd schreibt am 29.07.2011 um 21:51:27 Uhr
- LÖSUNG charmeur schreibt am 29.07.2011 um 22:10:54 Uhr
  - LÖSUNG Berrnd schreibt am 29.07.2011 um 22:21:15 Uhr
    - LÖSUNG charmeur schreibt am 30.07.2011 um 09:33:07 Uhr
      - LÖSUNG Berrnd schreibt am 30.07.2011 um 15:06:24 Uhr
        
        LÖSUNG charmeur schreibt am 30.07.2011 um 16:16:37 Uhr
        
        LÖSUNG Berrnd schreibt am 30.07.2011 um 16:29:35 Uhr
LÖSUNG Skyemugen schreibt am 29.07.2011 um 21:52:07 Uhr
- LÖSUNG charmeur schreibt am 29.07.2011 um 22:03:00 Uhr
  - LÖSUNG Skyemugen schreibt am 29.07.2011 um 22:09:15 Uhr
    - LÖSUNG bastla schreibt am 29.07.2011 um 22:30:31 Uhr
      - LÖSUNG Skyemugen schreibt am 29.07.2011 um 22:33:47 Uhr
        
        LÖSUNG bastla schreibt am 29.07.2011 um 22:35:37 Uhr
        
        LÖSUNG Skyemugen schreibt am 29.07.2011 um 22:49:55 Uhr
        
        LÖSUNG bastla schreibt am 29.07.2011 um 22:51:35 Uhr
        
        LÖSUNG Skyemugen schreibt am 29.07.2011 um 23:14:59 Uhr
LÖSUNG bastla schreibt am 29.07.2011 um 22:15:55 Uhr
- LÖSUNG charmeur schreibt am 31.07.2011 um 15:40:14 Uhr
  - LÖSUNG Berrnd schreibt am 31.07.2011 um 15:53:30 Uhr
    - LÖSUNG charmeur schreibt am 31.07.2011 um 16:28:42 Uhr
      - LÖSUNG Berrnd schreibt am 31.07.2011 um 16:50:37 Uhr
  - LÖSUNG bastla schreibt am 31.07.2011 um 18:33:18 Uhr
    - LÖSUNG charmeur schreibt am 31.07.2011 um 22:12:05 Uhr
      - LÖSUNG bastla schreibt am 31.07.2011 um 22:21:57 Uhr
        
        LÖSUNG charmeur schreibt am 31.07.2011 um 22:41:46 Uhr
        
        LÖSUNG bastla schreibt am 31.07.2011 um 22:44:10 Uhr
        
        LÖSUNG charmeur schreibt am 31.07.2011 um 22:53:57 Uhr
        
        LÖSUNG bastla schreibt am 31.07.2011 um 22:57:22 Uhr

Berrnd (Level 1) - Jetzt verbinden

LÖSUNG 29.07.2011 um 21:51 Uhr

Hi,

warum nicht alles mittels VBScript? Beispiel:

MsgBox ReadTxtFileIntoString("D:\Eigene Dateien Daten\Desktop\info.txt")

Public Function ReadTxtFileIntoString(ByVal TxtFilePath) 'As String
	Dim FSO 'As Scripting.FileSystemObject
	Dim TxtFile 'As File
	
	Set FSO = CreateObject("Scripting.FileSystemObject")
	Set TxtFile = FSO.OpenTextFile(TxtFilePath, 1)
	
	ReadTxtFileIntoString = TxtFile.ReadAll
	
	TxtFile.Close
End Function01.
MsgBox ReadTxtFileIntoString("D:\Eigene Dateien Daten\Desktop\info.txt")
02.

03.
Public Function ReadTxtFileIntoString(ByVal TxtFilePath) 'As String
04.
	Dim FSO 'As Scripting.FileSystemObject
05.
	Dim TxtFile 'As File
06.
	
07.
	Set FSO = CreateObject("Scripting.FileSystemObject")
08.
	Set TxtFile = FSO.OpenTextFile(TxtFilePath, 1)
09.
	
10.
	ReadTxtFileIntoString = TxtFile.ReadAll
11.
	
12.
	TxtFile.Close
13.
End Function

Gruß - Bernd

Skyemugen (Level 2) - Jetzt verbinden

LÖSUNG 29.07.2011 um 21:52 Uhr

Aloha,

@echo off
>msg.vbs echo MsgBox "type " ^& Chr(34) ^& "D:\Eigene Dateien Daten\Desktop\info.txt" ^& Chr(34) ^& " |more",vbexclamation,"Test"
msg.vbs
del msg.vbs
goto :eof01.
@echo off
02.
>msg.vbs echo MsgBox "type " ^& Chr(34) ^& "D:\Eigene Dateien Daten\Desktop\info.txt" ^& Chr(34) ^& " |more",vbexclamation,"Test"
03.
msg.vbs
04.
del msg.vbs
05.
goto :eof

greetz André

charmeur (Level 1) - Jetzt verbinden

LÖSUNG 29.07.2011 um 22:03 Uhr

danke für deine antwort
aber leider kommt bei mir nicht der inhalt der txt datei sondern
D:\Eigene Dateien Daten\Desktop\info.txt

habe ich was falsch gemacht ?

Skyemugen (Level 2) - Jetzt verbinden

LÖSUNG 29.07.2011 um 22:09 Uhr

Aloha,

nö, ich habe dein EP falsch interpretiert und mich schon gewundert Freitagabend eben, da überliest man gerne mal den ersten Satz im EP *lach*

edit: Da bastla bereits die mehrzeilige Sache angesprochen hat, hier einfach noch einmal zur möglichen Info für eine einzeilige Textdatei

@echo off
for /f "usebackq delims=" %%s in ("D:\Eigene Dateien Daten\Desktop\info.txt") do (
>msg.vbs echo MsgBox "%%s",vbexclamation,"test"
)
msg.vbs
del msg.vbs
goto :eof01.
@echo off
02.
for /f "usebackq delims=" %%s in ("D:\Eigene Dateien Daten\Desktop\info.txt") do (
03.
>msg.vbs echo MsgBox "%%s",vbexclamation,"test"
04.
)
05.
msg.vbs
06.
del msg.vbs
07.
goto :eof

Das Problem hierbei ist: Das Verwenden von type und more hätte keinen Effekt (darum auch direkte Verwendung durch usebackq), da man nicht einfach so mit dieser Methode Mehrzeiler afaik in die MsgBox übernehmen kann (ohne vbcrlf), korrigiert mich, wenn ich falsch liege.

greetz André

charmeur (Level 1) - Jetzt verbinden

LÖSUNG 29.07.2011 um 22:10 Uhr

nur intersse halber würde das ganze auch über eine txt Datei funktionieren die auf einem Web server liegt

bastla (Level 5) - Jetzt verbinden

LÖSUNG 29.07.2011 um 22:15 Uhr

Hallo @All!

Ausgehend von der Annahme, dass die Textdatei mehr als eine Zeile enthält (enthalten kann) und außerdem auch noch Parameter für die "MsgBox" benötigt werden, würde ich ebenfalls für eine VBS-Lösung plädieren - was aber nicht heißt, dass diese nicht per Batch erstellt werden kann:

@echo off & setlocal
set "Info=D:\Eigene Dateien Daten\Desktop\info.txt"

set M=%temp%\MsgBox.vbs
>%M% echo MsgBox CreateObject("Scripting.FileSystemObject").OpenTextFile("%Info%").ReadAll, vbExclamation, "Test"
%M%
del %M%01.
@echo off & setlocal
02.
set "Info=D:\Eigene Dateien Daten\Desktop\info.txt"
03.

04.
set M=%temp%\MsgBox.vbs
05.
>%M% echo MsgBox CreateObject("Scripting.FileSystemObject").OpenTextFile("%Info%").ReadAll, vbExclamation, "Test"
06.
%M%
07.
del %M%

Grüße
bastla

P.S.: "endlocal" wird am Ende eines Batches automatisch ausgeführt, und ein "exit" ohne "/b" ist in den meisten Fällen sinnfrei ...

Berrnd (Level 1) - Jetzt verbinden

LÖSUNG 29.07.2011 um 22:21 Uhr

Zitat von charmeur:

nur intersse halber würde das ganze auch über eine txt Datei funktionieren die auf einem Web server liegt

Hi,

aber klar doch ;). Beispiel:

MsgBox DownloadString("http://www.google.com/robots.txt")

Public Function DownloadString(ByVal URL) 'As String
	Dim WebReq 'As MsXml2.XmlHttp
	Dim FSO 'As Scripting.FileSystemObject
	
	Set WebReq = CreateObject("MsXml2.XmlHttp.3.0")
	Set FSO = CreateObject("Scripting.FileSystemObject")
	
	WebReq.Open "get", URL, False
	WebReq.Send
	
	DownloadString = WebReq.ResponseText
End Function01.
MsgBox DownloadString("http://www.google.com/robots.txt")
02.

03.
Public Function DownloadString(ByVal URL) 'As String
04.
	Dim WebReq 'As MsXml2.XmlHttp
05.
	Dim FSO 'As Scripting.FileSystemObject
06.
	
07.
	Set WebReq = CreateObject("MsXml2.XmlHttp.3.0")
08.
	Set FSO = CreateObject("Scripting.FileSystemObject")
09.
	
10.
	WebReq.Open "get", URL, False
11.
	WebReq.Send
12.
	
13.
	DownloadString = WebReq.ResponseText
14.
End Function

Viele Grüße - Bernd

bastla (Level 5) - Jetzt verbinden

LÖSUNG 29.07.2011 um 22:30 Uhr

@Skyemugen
Da das Endergebnis etwa so aussehen sollte:

MsgBox "Zeile1" & vbCrLf & "Zeile2" & vbCrLf & "Zeile3", vbExclamation, "Test"MsgBox "Zeile1" & vbCrLf & "Zeile2" & vbCrLf & "Zeile3", vbExclamation, "Test"

ist das per Batch only etwas mühsam - und wenn ja ohnehin ein VB-Script verwendet werden soll ...

Grüße
bastla

Skyemugen (Level 2) - Jetzt verbinden

LÖSUNG 29.07.2011 um 22:33 Uhr

Aloha bastla,

darum schrieb ich ja

da man nicht einfach so mit dieser Methode

*gg* dass das möglich ist, war mir klar aber die Umsetzung dazu wollte ich mir zu dieser Stunde auch nicht mehr ausmalen

greetz André

bastla (Level 5) - Jetzt verbinden

LÖSUNG 29.07.2011 um 22:35 Uhr

Hallo Skyemugen!

Einfacher wäre vielleicht folgendes Ergebnis zu erreichen:

MsgBox _
"Zeile1" _
& vbCrLf _
& "Zeile2" _
& vbCrLf _
& "Zeile3" _
, vbExclamation, "Test"01.
MsgBox _
02.
"Zeile1" _
03.
& vbCrLf _
04.
& "Zeile2" _
05.
& vbCrLf _
06.
& "Zeile3" _
07.
, vbExclamation, "Test"

nämlich etwa so:

@echo off & setlocal
set "Info=D:\Eigene Dateien Daten\Desktop\info.txt"

set M=%temp%\MsgBox.vbs
>%M% echo MsgBox _

set /p Zeile1=<"%Info%"
>>%M% echo "%Zeile1%" _

for /f "delims=" %%i in ('more +1 "%Info%"') do (
    echo ^& vbCrLf _
    echo ^& "%%i" _
)>>%M%

>>%M% echo , vbExlamation, "Test"

%M%
del %M%01.
@echo off & setlocal
02.
set "Info=D:\Eigene Dateien Daten\Desktop\info.txt"
03.

04.
set M=%temp%\MsgBox.vbs
05.
>%M% echo MsgBox _
06.

07.
set /p Zeile1=<"%Info%"
08.
>>%M% echo "%Zeile1%" _
09.

10.
for /f "delims=" %%i in ('more +1 "%Info%"') do (
11.
    echo ^& vbCrLf _
12.
    echo ^& "%%i" _
13.
)>>%M%
14.

15.
>>%M% echo , vbExlamation, "Test"
16.

17.
%M%
18.
del %M%

Sinn hat das aber nicht wirklich ...

Grüße
bastla

Skyemugen (Level 2) - Jetzt verbinden

LÖSUNG 29.07.2011 um 22:49 Uhr

Aloha bastla,

och ... jetzt gibst du mir schon 'nen guten Hinweis, wie es einfach umzusetzen wäre, dann drückt man kurz darauf F5 und braucht auch nicht mehr posten, weil der Herr auch gleich die Arbeit abgenommen hat *grml*

Jetzt hatte ich mich extra doch noch einmal rangesetzt ^_^ auch wenn ich es etwas einfacher lösen wollte, was erst in einem Kompilierungsfehler endete, hahaha

greetz André

bastla (Level 5) - Jetzt verbinden

LÖSUNG 29.07.2011 um 22:51 Uhr

Hallo Skyemugen!

Sorry - aber Du könntest ja noch die Berücksichtigung von Leerzeilen einbauen (auch wenn das Ganze unter "L’art pour l’art" fällt) ...

Grüße
bastla

Skyemugen (Level 2) - Jetzt verbinden

LÖSUNG 29.07.2011 um 23:14 Uhr

Aloha bastla,

na,wir wollen die ja schließlich nicht unterschlagen

@echo off & setlocal
set "Info=D:\Eigene Dateien Daten\Desktop\info.txt"

set "M=%temp%\MsgBox.vbs"
>%M% echo MsgBox _

set /p Zeile1=<"%Info%"
>>%M% echo "%Zeile1%" _

for /f "delims=: tokens=1,2*" %%h in ('more +1 "%Info%" ^|findstr /n "^"') do (
	echo ^& vbCrLf _
	if "%%i" equ "" (echo ^& " " _) else (echo ^& "%%i" _)
)>>%M%

>>%M% echo , vbExlamation, "Test"

%M%
del %M%
goto :eof01.
@echo off & setlocal
02.
set "Info=D:\Eigene Dateien Daten\Desktop\info.txt"
03.

04.
set "M=%temp%\MsgBox.vbs"
05.
>%M% echo MsgBox _
06.

07.
set /p Zeile1=<"%Info%"
08.
>>%M% echo "%Zeile1%" _
09.

10.
for /f "delims=: tokens=1,2*" %%h in ('more +1 "%Info%" ^|findstr /n "^"') do (
11.
	echo ^& vbCrLf _
12.
	if "%%i" equ "" (echo ^& " " _) else (echo ^& "%%i" _)
13.
)>>%M%
14.

15.
>>%M% echo , vbExlamation, "Test"
16.

17.
%M%
18.
del %M%
19.
goto :eof

greetz André

charmeur (Level 1) - Jetzt verbinden

LÖSUNG 30.07.2011 um 09:33 Uhr

Zitat von Berrnd:

> Zitat von charmeur:
> ----
> nur intersse halber würde das ganze auch über eine txt Datei funktionieren die auf einem Web server liegt
Hi,

aber klar doch ;). Beispiel:

MsgBox DownloadString("http://www.google.com/robots.txt")
> 
> Public Function DownloadString(ByVal URL) 'As String
> 	Dim WebReq 'As MsXml2.XmlHttp
> 	Dim FSO 'As Scripting.FileSystemObject
> 	
> 	Set WebReq = CreateObject("MsXml2.XmlHttp.3.0")
> 	Set FSO = CreateObject("Scripting.FileSystemObject")
> 	
> 	WebReq.Open "get", URL, False
> 	WebReq.Send
> 	
> 	DownloadString = WebReq.ResponseText
> End Function01.
MsgBox DownloadString("http://www.google.com/robots.txt")
02.
> 
03.
> Public Function DownloadString(ByVal URL) 'As String
04.
> 	Dim WebReq 'As MsXml2.XmlHttp
05.
> 	Dim FSO 'As Scripting.FileSystemObject
06.
> 	
07.
> 	Set WebReq = CreateObject("MsXml2.XmlHttp.3.0")
08.
> 	Set FSO = CreateObject("Scripting.FileSystemObject")
09.
> 	
10.
> 	WebReq.Open "get", URL, False
11.
> 	WebReq.Send
12.
> 	
13.
> 	DownloadString = WebReq.ResponseText
14.
> End Function

Viele Grüße - Bernd

hallo danke für die Antwort, da ja die meisten ein VBScript machen würden würde ich in dem fall das so machen wollen.
nur mein problem ist das ich mit dem nicht wirklich auskenne, das script passt ja genau so wie ich das haben möchte
nur noch eine letze bitte ich würde in diesem script noch gerne ein Programm starten und ausserdem würde ich noch wollen das falls die txt leer ist das keine MSGBox aufgerufen wird wäre das auch machbar?

Berrnd (Level 1) - Jetzt verbinden

LÖSUNG 30.07.2011 um 15:06 Uhr

Hi,

...aber selbstverständlich ist auch das machbar. ;) Beispiel Programm starten:

StartApp "C:\windows\system32\notepad.exe"

Public Sub StartApp(ByVal Path)
	Dim Shell 'As WScript.Shell
	
	Set Shell = CreateObject("WScript.Shell")
	
	Shell.Run Path
End Sub01.
StartApp "C:\windows\system32\notepad.exe"
02.

03.
Public Sub StartApp(ByVal Path)
04.
	Dim Shell 'As WScript.Shell
05.
	
06.
	Set Shell = CreateObject("WScript.Shell")
07.
	
08.
	Shell.Run Path
09.
End Sub

Beispiel keine MsgBox wenn Textdatei leer:

Dim txt 'As String

txt = ReadTxtFileIntoString("C:\Windows\system.ini")

If Not txt = "" Then
	MsgBox txt
End If01.
Dim txt 'As String
02.

03.
txt = ReadTxtFileIntoString("C:\Windows\system.ini")
04.

05.
If Not txt = "" Then
06.
	MsgBox txt
07.
End If

Viele Grüße - Bernd

charmeur (Level 1) - Jetzt verbinden

LÖSUNG 30.07.2011 um 16:16 Uhr

Super es geht natürlich aber leide rbin ich nicht in der lage das script zusammen zu fassen

also die txt datei soll auf dem web server überprüft werden ob sie leer ist oder nicht, wenn nicht dann sollte das MSGBox mit dem Inhalt aus der txt datei auf dem Server geöffnet werden übrigens wäre es toll das die datei jedes mal erneut abgefagt wird ob die txt datei leer ist oder nicht

Berrnd (Level 1) - Jetzt verbinden

LÖSUNG 30.07.2011 um 16:29 Uhr

Hi,

...bitteschön:

Dim txt 'As String
txt = DownloadString("http://www.google.com/robots.txt")
If Not txt = "" Then
	MsgBox txt
End If

Public Function DownloadString(ByVal URL) 'As String
	Dim WebReq 'As MsXml2.XmlHttp
	Dim FSO 'As Scripting.FileSystemObject
	
	Set WebReq = CreateObject("MsXml2.XmlHttp.3.0")
	Set FSO = CreateObject("Scripting.FileSystemObject")
	
	WebReq.Open "get", URL, False
	WebReq.Send
	
	DownloadString = WebReq.ResponseText
End Function01.
Dim txt 'As String
02.
txt = DownloadString("http://www.google.com/robots.txt")
03.
If Not txt = "" Then
04.
	MsgBox txt
05.
End If
06.

07.
Public Function DownloadString(ByVal URL) 'As String
08.
	Dim WebReq 'As MsXml2.XmlHttp
09.
	Dim FSO 'As Scripting.FileSystemObject
10.
	
11.
	Set WebReq = CreateObject("MsXml2.XmlHttp.3.0")
12.
	Set FSO = CreateObject("Scripting.FileSystemObject")
13.
	
14.
	WebReq.Open "get", URL, False
15.
	WebReq.Send
16.
	
17.
	DownloadString = WebReq.ResponseText
18.
End Function

Der Richtigkeit halber: Die Textdatei wird nicht vom Server überprüft sondern natürlich heruntergeladen, egal ob leer oder nicht, und dann geprüft. Dies geschieht selbstverständlich bei jedem Aufruf des Scripts erneut.

Viele Grüße - Bernd

charmeur (Level 1) - Jetzt verbinden

LÖSUNG 31.07.2011 um 15:40 Uhr

ok nun habe ich das so weit hier mal mein ansatz

Dim txt 'As String 
txt = DownloadString("http://dyndns.or/medid/web/Script/info.txt") 

If Not txt = "" Then 
MsgBox txt 

End If 
Public Function DownloadString(ByVal URL) 'As String 
Dim WebReq 'As MsXml2.XmlHttp 
Dim FSO 'As Scripting.FileSystemObject 
Set WebReq = CreateObject("MsXml2.XmlHttp.3.0") 
Set FSO = CreateObject("Scripting.FileSystemObject") 
WebReq.Open "get", URL, False 
WebReq.Send 
DownloadString = WebReq.ResponseText 
End Function

Dim txt1'As String 

txt1 = DownloadString("http://dyndns.or/medid/web/Script/Prme.txt") 
If Not txt1 = "" Then 
StartApp txt1
End If

Public Sub StartApp(ByVal Path) 
Dim Shell 'As WScript.Shell 
Set Shell = CreateObject("WScript.Shell") 
Shell.Run Path 

End Sub


Dim txt2'As String 
txt2 = DownloadString("http://dyndns.or/medid/web/Script/er.txt") 
If txt = "" Then 
If txt1 = "" Then 
MsgBox txt2
End If 
End If 
01.
Dim txt 'As String 
02.
txt = DownloadString("http://dyndns.or/medid/web/Script/info.txt") 
03.

04.
If Not txt = "" Then 
05.
MsgBox txt 
06.

07.
End If 
08.
Public Function DownloadString(ByVal URL) 'As String 
09.
Dim WebReq 'As MsXml2.XmlHttp 
10.
Dim FSO 'As Scripting.FileSystemObject 
11.
Set WebReq = CreateObject("MsXml2.XmlHttp.3.0") 
12.
Set FSO = CreateObject("Scripting.FileSystemObject") 
13.
WebReq.Open "get", URL, False 
14.
WebReq.Send 
15.
DownloadString = WebReq.ResponseText 
16.
End Function
17.

18.
Dim txt1'As String 
19.

20.
txt1 = DownloadString("http://dyndns.or/medid/web/Script/Prme.txt") 
21.
If Not txt1 = "" Then 
22.
StartApp txt1
23.
End If
24.

25.
Public Sub StartApp(ByVal Path) 
26.
Dim Shell 'As WScript.Shell 
27.
Set Shell = CreateObject("WScript.Shell") 
28.
Shell.Run Path 
29.

30.
End Sub
31.

32.

33.
Dim txt2'As String 
34.
txt2 = DownloadString("http://dyndns.or/medid/web/Script/er.txt") 
35.
If txt = "" Then 
36.
If txt1 = "" Then 
37.
MsgBox txt2
38.
End If 
39.
End If 
40.

frage wie schaffe ich es nun, das noch eine txt datei aufgerufen wird , in dem dann noch ein script steht das ausgeführt wird?

und ncih eine frage kann ich aus einer excel datei eine bestimmte zeile in eine txt datei expotieren?

Berrnd (Level 1) - Jetzt verbinden

LÖSUNG 31.07.2011 um 15:53 Uhr

Hi,

zu deiner ersten Frage: Was meinst du damit genau? Steht in einer txt-Datei ein weiteres VBScript oder eine Batch? Z. B. im Fall von Batch: Bennene die .txt-Datei einfach in eine .bat-Datei um und starte diese dann aus dem ersten VBScript über

StartApp "C:\deinebatch.bat"01.
StartApp "C:\deinebatch.bat"

Zu deiner zweiten Frage: Da habe ich leider keine Ahnung, ob/wie das mit VBScript geht...

Viele Grüße - Bernd

charmeur (Level 1) - Jetzt verbinden

LÖSUNG 31.07.2011 um 16:28 Uhr

danke für deine hilfe in der datei sollte falls nötig ein weiteres VBScript sein das dann eben ausgeführt wird

Berrnd (Level 1) - Jetzt verbinden

LÖSUNG 31.07.2011 um 16:50 Uhr

Hi,

na dann entsprechend so: ;)

 StartApp "C:\deinvbs.vbs"01.
 StartApp "C:\deinvbs.vbs"

Gruß - Bernd

bastla (Level 5) - Jetzt verbinden

LÖSUNG 31.07.2011 um 18:33 Uhr

Hallo charmeur!

und ncih eine frage kann ich aus einer excel datei eine bestimmte zeile in eine txt datei expotieren?

Für das Lesen einer Zelle, im Beispiel A2 der ersten Tabelle, (ungetestet) etwa so:

Set oXL = WScript.CreateObject("EXCEL.application")
With oXL
    .Visible = False
    .Workbooks.Open "D:\Eigene Dateien Daten\Desktop\Excel-Datei.xlsx"
    txt = .Worksheets(1).Cells(2, "A").Value
    .ActiveWorkbook.Close False
    .Application.Quit
End With01.
Set oXL = WScript.CreateObject("EXCEL.application")
02.
With oXL
03.
    .Visible = False
04.
    .Workbooks.Open "D:\Eigene Dateien Daten\Desktop\Excel-Datei.xlsx"
05.
    txt = .Worksheets(1).Cells(2, "A").Value
06.
    .ActiveWorkbook.Close False
07.
    .Application.Quit
08.
End With

Wenn es tatsächlich eine ganze Zeile sein soll, Zeile 5 in eine passende Schleife packen und in der Variablen "txt" die Werte (passend - wie, weißt ja bisher nur Du) zusammenfassen - danach in die Textdatei schreiben ...

Grüße
bastla

P.S.: Vom eigentlichen Thema des Threads sind wir aber jetzt schon einigermaßen weit entfernt ...

charmeur (Level 1) - Jetzt verbinden

LÖSUNG 31.07.2011 um 22:12 Uhr

hallo erst noch einmal danke für die hilfe ich hätte da noch eine kleine frage danach werde ich das ganze hier dann auch zu ende bringen und zwar

habe ich folgendes

Dim txt 'As String 


Set oXL = WScript.CreateObject("EXCEL.application") 
With oXL 
    .Visible = False 
    .Workbooks.Open "D:\Eigene Dateien Daten\Desktop\1.xlsx" 
  txt = .Worksheets(1).Range("A2", Selection.End(xlToRight)).Select
    .ActiveWorkbook.Close False 
    .Application.Quit 
End With
MsgBox txt 01.
Dim txt 'As String 
02.

03.

04.
Set oXL = WScript.CreateObject("EXCEL.application") 
05.
With oXL 
06.
    .Visible = False 
07.
    .Workbooks.Open "D:\Eigene Dateien Daten\Desktop\1.xlsx" 
08.
  txt = .Worksheets(1).Range("A2", Selection.End(xlToRight)).Select
09.
    .ActiveWorkbook.Close False 
10.
    .Application.Quit 
11.
End With
12.
MsgBox txt 

ich würde gerne haben wollen das die letzte beschriebene zelle angezeigt wird aber leider geht das wie so oft nicht
txt = .Worksheets(1).Range("A2", Selection.End(xlToRight)).Select

bastla (Level 5) - Jetzt verbinden

LÖSUNG 31.07.2011 um 22:21 Uhr

Hallo charmeur!

Darf ich Dich einladen, so wie alle anderen hier, Code-Formatierung zu benutzen (kann auch problemlos im Nachhinein hinzugefügt werden)?

Was Du vermutlich haben möchtest, wäre

txt = .Worksheets(1).Range("A2").End(xlToRight).Valuetxt = .Worksheets(1).Range("A2").End(xlToRight).Value

BTW: Wenn Du schon Variablen (mit "Dim") deklarierst, dann aber konsequent für alle (also auch für "oXL") - und dazu wäre auch noch ein "Option Explicit" vorweg sinnvoll ...

Grüße
bastla

charmeur (Level 1) - Jetzt verbinden

LÖSUNG 31.07.2011 um 22:41 Uhr

danke .. und sorry wegen dem code

leider bekomme ich bei deinem code einen laufzeitfehler

bastla (Level 5) - Jetzt verbinden

LÖSUNG 31.07.2011 um 22:44 Uhr

Hallo charmeur!

leider bekomme ich bei deinem code einen laufzeitfehler

Einen bestimmten?

Eigentlich sollte aber sogar bei einer gänzlich leeren Zeile einfach nur ein Leerstring als Ergebnis geliefert werden ...

Grüße
bastla

P.S.: Danke für die Formatierung

charmeur (Level 1) - Jetzt verbinden

LÖSUNG 31.07.2011 um 22:53 Uhr

ich habe das hier nn im script

Dim txt 'As String


Set oXL = WScript.CreateObject("EXCEL.application")
With oXL
.Visible = False
.Workbooks.Open "D:\Eigene Dateien Daten\Desktop\1.xlsx"

txt = .Worksheets(1).Range("A2").End(xlToRight).Value
.ActiveWorkbook.Close False
.Application.Quit
End With
MsgBox txt 01.
Dim txt 'As String
02.

03.

04.
Set oXL = WScript.CreateObject("EXCEL.application")
05.
With oXL
06.
.Visible = False
07.
.Workbooks.Open "D:\Eigene Dateien Daten\Desktop\1.xlsx"
08.

09.
txt = .Worksheets(1).Range("A2").End(xlToRight).Value
10.
.ActiveWorkbook.Close False
11.
.Application.Quit
12.
End With
13.
MsgBox txt 

und der fehler lautet
800A03EC

bastla (Level 5) - Jetzt verbinden

LÖSUNG 31.07.2011 um 22:57 Uhr

Hallo charmeur!

Sorry - kann ja natürlich nicht funktionieren, da VBS keine Excel-Konstanten kennt - daher

Const xlToRight = -416101.
Const xlToRight = -4161

vorweg hinzufügen ...

Grüße
bastla

Frage Entwicklung Batch & Shell

Ähnliche Inhalte

MsgBox Druckeinrichtung mit VBA abschalten

gelöst Frage von Gimli3311VB for Applications8 Kommentare

Guten Tag Zusammen, durfte gestern ein altes Programm wieder rausholen und testen. Dabei habe ich jetzt folgendes Problem: Das ...

Visual basic msgbox "Wegklickbar" machen

gelöst Frage von Zerou24Visual Studio4 Kommentare

Hallo! Ich habe ein programm geschrieben, das eine progressbar durchlaufen lässt und bei 100% die msgbox "hallo" ausgibt. Problem ...

Access 2010 Insert Into bei Fehler Msgbox

gelöst Frage von Dr.CornwallisDatenbanken2 Kommentare

Liebe Gemeinde, ich bräuchte (wieder mal) euren Rat: ich möchte bei einer INSERT INTO Anweisung eine Fehlermeldung einbauen, falls ...

Text mit Msgbox Ausgeben bei verarbeitung

gelöst Frage von VBSnoob123VB for Applications1 Kommentar

Hallo, hat sich erledigt. hab mich entschlossen das Script in Html darzustellen und die anzeige direkt mit in die ...

Neue Wissensbeiträge

Windows 10 V1809: Rollout ist gestartet - kommt per Windows Update

Information von kgborn vor 5 StundenWindows 10

Eine kurze Information für die Admins, die Windows 10 im Programm haben. Microsoft hat die letzte Baustelle (die Inkompatibilität ...

Heise Beitrag Passwort-Sammlung mit 773 Millionen Online-Konten im Netz aufgetaucht

Information von Penny.Cilin vor 8 StundenSicherheit1 Kommentar

Auf Heise Online ist folgender Beitrag veröffentlicht worden: Heise Beitrag passwörter geleakt Ich bin mir jetzt nicht ganz sicher, ...

TEAMS - Skype for business

Tipp von Nebellicht vor 8 StundenMicrosoft Office

Hallo, ms ersetzt Skype for business durch TEAMS. Also, nicht wundern wenn mit der OFFICE365 Umgebung kein Skype for ...

Windows 10: Cortana und die Suche gehen bald wieder eigene Wege

Information von Frank vor 12 StundenWindows 102 Kommentare

Microsoft hat einen neuen Insider Build von Windows 10 veröffentlicht (Fast Ring, Version 18317), wo die digitale Assistentin "Cortana" ...

Heiß diskutierte Inhalte

Uhren gehen immer wieder falsch

Frage von killtecWindows Server23 Kommentare

Hallo, ich habe folgende Konstellation: 1. Physischer DC Div. Virtuelle DC's auf Hyper-V Servern Die Hyper-V-Server, der Physische DC ...

Medienkonverter mit 12 oder 24 Ports gesucht

Frage von wmuellerSwitche und Hubs20 Kommentare

Guten Morgen, ich bin auf der Suche nach einem größeren Medienkonverter, der "stumpf" 1:1 die Ports auf über ein ...

Client in die Domäne einbinden - Allgemeine Frage dazu

gelöst Frage von RalphTWindows Server18 Kommentare

Moin, ich habe 2 DCs in einer Hauptstelle und 2 DCs in einer Nebenstelle. Ich bringe in der Hauptstelle ...

VM wächst schnell von 14 auf 35 GB an - warum?

Frage von degudejungWindows 1018 Kommentare

Hallo, ich bin ein Freund schlanker VMs und setze daher gerne mit dem Erscheinen einer neuen Win10 Version - ...

Frage Entwicklung Batch & Shell gelöst MSGBox und .txt

29.07.2011 um 21:31 Uhr, 4178 Aufrufe, 28 Kommentare

Hallo ihr

MsgBox Druckeinrichtung mit VBA abschalten

Visual basic msgbox "Wegklickbar" machen

Access 2010 Insert Into bei Fehler Msgbox

Text mit Msgbox Ausgeben bei verarbeitung

Windows 10 V1809: Rollout ist gestartet - kommt per Windows Update

Heise Beitrag Passwort-Sammlung mit 773 Millionen Online-Konten im Netz aufgetaucht

Windows 10: Cortana und die Suche gehen bald wieder eigene Wege

Frage Entwicklung Batch & Shell
gelöst MSGBox und .txt