|
Ja, kannst du so machen, aber sicher ist es damit trotzdem noch lange nicht, man braucht da kein extra Programm. Aber ich nehme mal an, dass Dir das auch nicht so wichtig ist. Einem nicht übermäßig motivierten Benutzer ohne Programmiererfahrung wird es vermutlich standhalten.
Was genau fehlt Dir denn jetzt noch?
Textdatein kannst du wie folgt einlesen:
'open file
Function OpenTxt(FileData$(), ByVal FileName$) As Boolean
On Error GoTo BadData
Dim FileNum%, Fields$, I&
'create file
FileNum = FreeFile
ReDim FileData(0 To 0)
'open file for input
Open FileName For Input As FileNum
Do While Not EOF(FileNum)
Line Input #FileNum, Fields
ReDim Preserve FileData(0 To I)
FileData(I) = Fields
I = I + 1
Loop
Close
FileName = 0
Fields = 0
I = 0
OpenTxt = True
BadData:
FileNum = 0
End Function
Arbeitsmappen so:
dim wb as object
set wb=workbooks.open(Pfad)
with wb
with sheets(1)
'...
end with
.close(false)
end with
Aber warum wendest du dich nicht an euren Systemadministrator? Der müsste das doch relativ einfach über die dafür vorgesehen Funktionen lösen können...
Gruß
Till
|