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

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

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
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige