Externer Zugriff (schreiben)

Forumthread: Externer Zugriff (schreiben)
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Externer Zugriff (schreiben)

19.01.2006 03: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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Externer Zugriff (schreiben)

19.01.2006 08:58:25

Eugen
AW: Externer Zugriff (schreiben)

19.01.2006 10:31:57

Jess

AW: Externer Zugriff (schreiben)

19.01.2006 08: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

AW: Externer Zugriff (schreiben)

19.01.2006 10: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