Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
144to148
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
144to148
144to148
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Exceldaten auslesen und in eine Batchdatei umwande

Exceldaten auslesen und in eine Batchdatei umwande
07.08.2002 09:32:17
Cara
Hallo ,
ich habe folgendes Problem . ich soll Daten aus einer ExcelTabelle auslesen mitweiteren merkmalen versehen und anschließend in eine Batchdatei umwandeln . dies alles soll automatich geschehen!Kann mir bitte einer helfen?
der Code zum auslesen lautet wie folgt..(hab ich aus dem Internet..

Sub IntTextDatei()
Dim intRow As Integer, intColCount As Integer, intCol As Integer
Dim strTmp As String
intColCount = Range("A1").CurrentRegion.Columns.Count
intRow = 1
Open "Test.txt" For Output As #1
Do Until IsEmpty(Cells(intRow, 1))
strTmp = ""
For intCol = 1 To intColCount
If strTmp <> "" Then
strTmp = strTmp & "," & Cells(intRow, intCol)
Else
strTmp = Cells(intRow, intCol)
End If
Next intCol
Print #1, strTmp
intRow = intRow + 1
Loop
Close
MsgBox "Habe die Daten eingelesen!"
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Exceldaten auslesen und in eine Batchdatei umwande
07.08.2002 10:24:49
Micha
hi,

was genau ist dein problem? das makro tut doch das was du beschrieben hast: die batch-datei wird erstellt, alle spalten pro zeile werden zu einem string zusammen gefasst und dieser dann in die datei geschrieben.

mfg

Re: Exceldaten auslesen und in eine Batchdatei umwande
07.08.2002 15:31:31
Cara
Die Merkmale müssen mit weiteren zusätzlichen Befehlen versehen werden , die nicht in der Exceldatei stehen, falls dir der Begriff Message Queue was sagt?diese sollen aus der excelDatei heraus genereiert werden

Bsp :Die ExelDatei sieht folgendermaßen aus:
A B
Z: /Queuename/ Beschreibung / Put/ DEFPSIST/....
/x.y.c.d / Va- Scannen / enabled/ No /...


Daraus entstehen soll:

DEFINE QALIAS(x.y.c.d) REPLACE +
DESCR('VA-Scannen, Ib-L8 A6, ls91do, 02.08.02') +
PUT(ENABLED) + +
DEFPSIST(NO) +
TARGQ(x.y.c.d)

wie bekomm ich das hin?

Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige