Fehlender Verweis, oder ?
24.12.2005 01:10:22
Selma
ich habe ein Makro das seit ein Jahr funktioniert. Gestern habe ich Windows XP und MicroSoft Office neuinstalliert. Seitdem bekomme ich diesen Fehler: OBJEKTVARIABLE ODER WITH-BLOCKVARIABLE NICHT FESTGELEGT
Private Sub SchreibeSQLDatei(DATEIINHALT As String)
Dim Datei As String
Dim fs As FileSystemObject
Dim ts As TextStream
Set fs = CreateObject("Scripting.FileSystemObject")
On Error GoTo errorhandling
Datei = Application.GetSaveAsFilename(Datei, "SQL-Export, *.sql", 0, "Bitte geben Sie die Zieldatei an!")
Set ts = fs.CreateTextFile(Datei, True)
ts.Write (DATEIINHALT)
ts.Close
Set fs = Nothing
Set ts = Nothing
MsgBox ("Datei: " & Datei & " wurde erzeugt.")
Exit Sub
errorhandling:
MsgBox ("FEHLER BEIM SCHREIBEN." & vbCrLf & Err.Description)
End Sub
Folgende Verweise habe ich drin:
Visual Basic Fpr Applications
MicroSoft Excel 9.0 Object Library
OLE Automation
MicroSoft Office 9.0 Object Library
MicroSoft Forms 2.0 Object Library
MicroSoft Scripting Runtime
Woran liegt es?
Vielen Dank im Voraus...
Liebe Grüße
SELMA