Herbers Excel-Forum - das Archiv

Bewerten Sie hier bitte das Excel-Portal

Mit Excel auf Dateien zugreifen

Bild

Betrifft: Mit Excel auf Dateien zugreifen
von: Peter

Geschrieben am: 20.12.2006 10:28:56
Hi,
ich habe ein VBA Programm geschrieben, mit dem ich Dateien bearbeite.
Das Programm wurde aber nicht in Excel's VBA Editor, sondern in einem extra Microsoft VBA Editor geschrieben. Unter anderem greife ich auch mittels stream-klassen auf Dateien zu. Wenn ich den Quellcode in den Excel VBA Editor kopiere, kommt er damit nicht zurecht.
Kann ich nichts dagegen tun? Ich möchte das Programm in ein Makro integrieren.
Danke !!
Bild

Betrifft: AW: Mit Excel auf Dateien zugreifen
von: Klaus M.vdT.
Geschrieben am: 20.12.2006 11:33:11
Hallo Peter,
du musst die in Zeile 16 benutzte Variable neu deklarieren.
Gruß,
Klaus M.vdT.
Bild

Betrifft: AW: Mit Excel auf Dateien zugreifen
von: Peter

Geschrieben am: 20.12.2006 12:37:50
Haha, der war gut ;-)
Also, schon bei der Importanweisung geht es los:
Imports System.IO --- Invalid outside procedure
Imports System.Console
Ich muss vermutlich nur den richtigen Pfad angeben, aber ich weiss nicht wo und wie.
Und die nächsten Zeilen z.B. werden auch komplett in rot dargestellt
Dim Obfi2 As FileStream = New FileStream(dest_file, FileMode.Append)
Dim ostw2 As StreamWriter = New StreamWriter(Obfi2)
Bild

Betrifft: AW: Mit Excel auf Dateien zugreifen
von: Ramses
Geschrieben am: 20.12.2006 13:04:15
Hallo
Der war aber auch gut.
Hast du es nicht verstanden ? ;-)
Du sollst deinen Code hier zeigen, ... ansonsten ist das ganze wie ein Ratespiel.
Gruss Rainer
Bild

Betrifft: AW: Mit Excel auf Dateien zugreifen
von: Peter

Geschrieben am: 20.12.2006 13:11:57
ich habe doch gerade einen Teil von meinem Code gepostet!!
Option Explicit
Imports System.IO ---- konmmt der Fehler Invalid outside procedure
Imports System.Console
Sub test()
Dim dest_file As String
Dim Obfi2 As FileStream = New FileStream(dest_file, FileMode.Append) -- Nach dem = meint er, dass "Expected end of statement"
Dim ostw2 As StreamWriter = New StreamWriter(Obfi2)
End Sub

Bitte um Hilfe
So, hier ist noch mehr.
Bild

Betrifft: AW: Mit Excel auf Dateien zugreifen
von: Ramses
Geschrieben am: 20.12.2006 13:18:34
Hallo
Das hört sich sehr nach Visual Basic Code (.Net oder ähnlich) an,... weil ein asynchroner Lesevorgang gestartet werden soll.
Das wird unter EXCEL VBA nicht funktionieren
Gruss Rainer
Bild

Betrifft: AW: Mit Excel auf Dateien zugreifen
von: Peter
Geschrieben am: 20.12.2006 13:30:32
Hi,
ja das stimmt. Es ist .net Quellcode. Hmm, ist ein Dateizugriff mit normalen Basic in Excel möglich ??? Ich muss Dateien öffnen und bearbeiten können (Aber auch nicht Excel Dateien!!). Das einzig kritische an dem Quellcode sollte der Dateizugriff sein.
Bild

Betrifft: AW: Mit Excel auf Dateien zugreifen
von: Ramses

Geschrieben am: 20.12.2006 17:16:14
hallo
"...ich muss Dateien öffnen und bearbeiten können ..."
Prinzipiell Ja.
Die Frage lautet dann jedoch, was verstehst du unter Bearbeiten ?
EXCEL Dateien öffnen ? = Workbooks.Open Pfad_und_Dateiname
Grus Rainer
 Bild
Excel-Beispiele zum Thema "Mit Excel auf Dateien zugreifen"
Alle Dateien im Verzeichnis öffnen Dateien listen
400 leere Textdateien anlegen XL-Dateien in UserForm listen
XL5/7-Dateien nach XL8 konvertieren Dateien aus Listbox auslesen und öffnen
Excel-Dateien eines Ordners listen Alle Dateien ab einem bestimmten Datum listen
Alle Dateien eines Verzeichnisses drucken Textdateien verbinden