Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
720to724
720to724
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Externer Zugriff (schreiben)

Forumthread: Externer Zugriff (schreiben)

Externer Zugriff (schreiben)
19.01.2006 02:20:22
jess
Hallo,
ich möchte mit VBscript aus einer eigenen Anwendung die Zellen füllen, aber leider krieg ich das nicht hin. Auslesen klappt, aber schreiben leider nicht.
Geht das nicht, oder hab ich was übersehen?
Danke für jede Hilfe!
Set oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.Open(strPath)
Set oSheet = oExcel.ActiveSheet
For i = 1 To 10
Print "zeile "& i & " = " & oSheet.Cells(i, 1).Value
oSheet.Cells(i, 5).value = i
Next
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Externer Zugriff (schreiben)
19.01.2006 07:58:25
Eugen
hi
so funzt
Public 

Sub t()
Set oExcel = CreateObject("Excel.Application")
' ich weiss natürlich nicht, was du in strPath stehen hast !!!
oExcel.Workbooks.Open ("c:\daten\versuch.xls")
Set oSheet = oExcel.ActiveSheet
For i = 1 To 10
Debug.Print "zeile " & i & " = " & oSheet.Cells(i, 1).Value
oSheet.Cells(i, 5).Value = i
Next
oExcel.Visible = True
End Sub

mfg
Anzeige
AW: Externer Zugriff (schreiben)
19.01.2006 09:31:57
Jess
Moin,
als ich dann verzweifelt den Rechner runtergefahren hab, hat sich Excel gemeldet und wollte die Datei mit all den Änderungen speichern. AHA - Excel sperrt geöffnete Dateien, auch für das externe Excel.Application Objekt. *grummel*
Jetzt muss ich schaun ob ich den Schreibschutz deaktivieren kann...
Danke Eugen für deine Hilfe! --Jess
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige