BAT-Code über Excel ausführen ?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Selma,


Tabelle:
[Mappe1]!Tabelle1
│   A  │  B  │   C  │   D  │       E      │       F      │                                      G                                     │
──┼──────┼─────┼──────┼──────┼──────────────┼──────────────┼────────────────────────────────────────────────────────────────────────────┤
2 │ 2005 │     │ copy │ 2006 │ \def\export\ │ settings.cfg │ copy c:\projekte\2006\def\export\settings.cfg c:\projekte\2005\def\export\ │
──┴──────┴─────┴──────┴──────┴──────────────┴──────────────┴────────────────────────────────────────────────────────────────────────────┘
Benutzte Formeln:
G2:  =C2&" c:\projekte\"&D2&E2&F2&" c:\projekte\"&A2&E2
in Modul1:
Option Explicit
Sub tt()
Dim Zelle, Starte
Close
Open "c:\test\test.bat" For Output As #1
For Each Zelle In Selection
Print #1, Zelle.Value
Next Zelle
Close #1
Starte = Shell("c:\test\test.bat")
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..

Sub Selma() Dim Z, Sp%, Pfad$, FS, Von$, Ziel$ On Error GoTo Fehler Sp = 5 'Spalte E Pfad = "c:\projekte\" Set FS = CreateObject("Scripting.FileSystemObject") For Each Z In Selection If Cells(Z.Row, Sp) <> "" Then '"c:\projekte\";D2;E2;F2;"""";" ""c:\projekte\";A2;E2;"""";) Von = Pfad & Cells(Z.Row, 4) & Cells(Z.Row, 5) & Cells(Z.Row, 6) Ziel = Pfad & Cells(Z.Row, 1) & Cells(Z.Row, 5) FS.CopyFile Von, Ziel, True 'Überschreiben: True oder False End If Next Fehler: If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear End Sub

Beliebteste Forumthreads (12 Monate)

BAT-Code über Excel ausführen ?

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

BAT-Code über Excel ausführen ?

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread