Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1028to1032
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
Inhaltsverzeichnis

Erzeugung einer bat Datei mittels VBA

Erzeugung einer bat Datei mittels VBA
04.12.2008 06:51:22
Josef
Hallo!
Wie kann ich bitte mittels VBA eine bat Datei erzeugen und diese in einem gewünschten Ordner abspeiichern?
Danke
Josef

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

Betreff
Datum
Anwender
Anzeige
AW: Erzeugung einer bat Datei mittels VBA
04.12.2008 07:25:21
Josef
Hallo!
Ich habe mir jetzt die Daten der bat DAtei in einem Arbeitsblatt vorbereitet. Die Daten stehen in der Spalte A von A1 bis A22.
Wie kann ich jetzt bitte diese Daten in eine Textdatei mittels VBA bringen und diese als .bat abspeichern?
Danke
Josef
Danke - erledigt
04.12.2008 07:45:00
Josef
Hallo nochmals!
Diese lösung hätte ich jetzt gefunden:

Sub Create_bat()
Dim wks As Worksheet
Set wks = Workbooks("Import_Ersatz.xls").Worksheets("bat Datei")
wks.Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"K:\Allg_dat\TRANSFER\HST\ABT08\Standesdifferenzen_2008\Konvertierung\Konvert.bat",  _
FileFormat _
:=xlText, CreateBackup:=False
Application.Run "checkname"
ActiveWorkbook.Save
ActiveWorkbook.Close
wks.Range("A1").Select
End Sub


Josef

Anzeige
AW: Danke - erledigt
04.12.2008 09:10:00
Rudi
Hallo,
die kurze, schnelle Version:

Sub Create_bat()
Dim wks As Worksheet, rngTmp As Range
Set wks = Workbooks("Import_Ersatz.xls").Worksheets("bat Datei")
Open "K:\Allg_dat\TRANSFER\HST\ABT08\Standesdifferenzen_2008\Konvertierung\Konvert.bat" For  _
Output As #1
With wks
For Each rng In .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp))
Print #1, rng.Text
Next
End With
Close #1
Application.Run "checkname"
ActiveWorkbook.Close True
wks.Range("A1").Select
End Sub


Gruß
Rudi

AW: Danke - erledigt
04.12.2008 13:13:00
Josef
Hallo Rudi!
Danke für Deine Antwort und Deine Hilfe.
Werde es gleich ausprobieren.
Schönen Tag noch
Josef
Anzeige

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige