Erstellung einer CMD Datei aus Excel
Hallo Experten!
ich habe eine kurze Frage:
Wie kann ich mit Hilfe von VBA aus Excel 2000 eine CMD-Datei erstellen?
Meine Excel-Tabelle hat folgende Form:
spalte A spalte B spalte C spalte D
PCW004 srvprt01 VS_T430 /cd
die CMD-Datei sollte wie die bezeichnung in spalte A heißen, also PCW004.bat
Der Inhalt der CMD Datei sollte wie folgt aussehen
%logonserver%\netlogon\tools\con2prt.exe SpalteD \\SpalteB\SpalteC
also wie folgt:
kann mir vielleicht jemand helfen dies mit VBA zu realisieren?
danke....
ich habe eine kurze Frage:
Wie kann ich mit Hilfe von VBA aus Excel 2000 eine CMD-Datei erstellen?
Meine Excel-Tabelle hat folgende Form:
spalte A spalte B spalte C spalte D
PCW004 srvprt01 VS_T430 /cd
die CMD-Datei sollte wie die bezeichnung in spalte A heißen, also PCW004.bat
Der Inhalt der CMD Datei sollte wie folgt aussehen
%logonserver%\netlogon\tools\con2prt.exe SpalteD \\SpalteB\SpalteC
also wie folgt:
%logonserver%\netlogon\tools\con2prt.exe /cd \\srvprt02\VS_T430:Endeexit
kann mir vielleicht jemand helfen dies mit VBA zu realisieren?
danke....
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 36745
Url: https://administrator.de/contentid/36745
Ausgedruckt am: 05.11.2024 um 02:11 Uhr
9 Kommentare
Neuester Kommentar
Sub makebat()
Dim datnr%, strtemp$, i%
i = 1
Do Until ActiveSheet.Range("A" & i).Value = ""
datnr = FreeFile
Open "c:\" & ActiveSheet.Range("A" & i) & ".bat" For Output As #datnr {{comment_single_line_double_slash:0}}
strtemp = "%logonserver%\netlogon\tools\con2prt.exe " & ActiveSheet.Range("D" & i) & " \\" & ActiveSheet.Range("B" & i) & " \\" & ActiveSheet.Range("C" & i)
Print #datnr, strtemp
Close #datnr
i = i + 1
Loop
End Sub
MfG
Moin Forencamper,
sinngemäß so:
Aber meinen Einwand oben hast Du auch zur Kenntnis genommen?
Gruß
Biber
sinngemäß so:
Sub makebat()
Dim datnr%, strtemp$, i%
i = 1
Do Until ActiveSheet.Range("A" & i).Value = ""
datnr = FreeFile
Open "c:\" & ActiveSheet.Range("A" & i) & ".bat" For Output As #datnr {{comment_single_line_double_slash:0}}
strtemp = "%logonserver%\netlogon\tools\con2prt.exe " & ActiveSheet.Range("D" & i) & " \\" & ActiveSheet.Range("B" & i) & " \\" & ActiveSheet.Range("C" & i)
if (ActiveSheet.Range("A" & i).Value = ActiveSheet.Range("A" & i+1).Value ) then
i = i +1
strtemp = "%logonserver%\netlogon\tools\con2prt.exe " & ActiveSheet.Range("D" & i) & " \\" & ActiveSheet.Range("B" & i) & " \\" & ActiveSheet.Range("C" & i)
end if
Print #datnr, strtemp
Close #datnr
i = i + 1
Loop
End Sub
Aber meinen Einwand oben hast Du auch zur Kenntnis genommen?
Gruß
Biber