005
29.07.2004, 09:58 Uhr
Bruder Leif
dances with systems
(Operator)
|
Gefunden!
| Visual Basic: |
Sub ProcessExcelFile()
Dim xl ' Das Excel-Sheet-Objekt, mit dem Excel ferngesteuert wird
Dim xlWorkSheet
Dim sBuffer As String
' Excel als Automationsserver starten
Set xl = CreateObject("Excel.Sheet")
' Alle offenen Workbooks schließen. Warum auch immer, sie stören beim
' Ansprechen der Dateien...
xl.application.workbooks.Close
' Quelldatei öffnen
xl.application.workbooks.Open "H:\Test.xls"
' Die einzelnen Arbeitsblätter durchgehen
For Each xlWorkSheet In xl.application.worksheets
xlWorkSheet.Activate ' Sonst gehts nicht
xl.application.cells(2, 4).Value = "Hallo, Welt!"
If xl.application.cells(2, 4).Value <> Empty Then MsgBox "Hat geklappt"
Next
' TODO: Speichern. Sollte aber mit der Excel-VB-Hilfe kein Problem sein...
' Alles wieder schließen...
xl.application.workbooks.Close
' Und fertig!
Set xl = Nothing
End Sub
|
--
Mit 40 Fieber sitzt man nicht mehr vor dem PC.
Man liegt im Bett.
Mit dem Notebook. |
