Sub Zeichenzählen()
Dim Object1
Dim objFileSys
Dim ReadFile As String
ReadFile = Application.GetOpenFilename("Dateityp (*.txt; *.log; *.dat; *.asc; *.doc; *.rtf),")
If ReadFile = "Falsch" Then Exit Sub
Set objFileSys = CreateObject("Scripting.FileSystemObject")
Set Object1 = objFileSys.OpenTextFile(ReadFile, ForReading)
usw...
für die letzte zeile sagt er mir ungültiger prozeduraufruf oder ungültiges argument.
kann mir das jemand erklären? |