Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1184to1188
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

Mit VBA File Write oder File Edit - Ideen?-

Mit VBA File Write oder File Edit - Ideen?-
Holger
Schönen Tag Excel-Experten,
mein Projekt wächst (auch dank eurer Hilfe) und wächst und die User
sind ganz zufrieden. Aber es gibt da noch einen Schwachpunkt, da einmal
im Monat ein User eine Datei manuell mit einem Editor öffnen und
dort ein Feld editieren muss. Nicht schwer, aber wenn es nicht richtig ist,
geht darauffolgende in die Hose.
Die Datei ist eine SQL Datei und in einer Zeile muss der Monat angepasst werden
z.B. von Mai 10 in Jun 10.
Ich überlege nun, die Datei mit VBA immer wieder komplett neu zu erzeugen (denn
hier kenne ich den richtigen Monat) oder die bestehende Datei mit VBA zu editieren.
Die Datei hat 35 Zeilen, der Aufbau ist immer gleich, aber ich habe keine Ahnung wie ich
ein bestimmtes Feld editieren kann oder die Datei komplett erzeuge.
Die einzige Zeile, die editiert werden muss, sieht so aus:
pe.period_sdesc in ('Sep10')
'Sep 10' muss angepasst werden und steht in VBA schon zur Verfügung.
Habt ihr Denkanstöße oder Beispiele, wie man sowas angeht?
gruß
Holger

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
Hier die Idee:
11.11.2010 14:25:59
Holger
Hallo,
wer einen Kommentar abgeben mag, ich freue mich.
In drei Zellen aufgeteilt wird das SQL File ausgegeben.
Zweite Zelle wird berechnet.
Schaut mal her:
Sub SQL1()
Dim strOutputPath As String, strExpPublishes As String
Dim intRow As Integer, intFF As Integer
strOutputPath = ThisWorkbook.Path & "\SQLFile.sql"
strExpPublishes = Range("A1").Value
intRow = 0
intFF = FreeFile()
Open strOutputPath For Output As #intFF
For intRow = 1 To 3
If intRow = 2 Then
strExpPublishes = Cells(intRow, 1).Value & "('Sep10')"
Else
strExpPublishes = Cells(intRow, 1).Value
End If
Print #intFF, strExpPublishes
Next intRow
Close #intFF
End Sub

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige