Nastavení properties u Excelovského souboru

Question

Hezký den,

chtěla bych se zeptat, jak nastavím properties?

Mám následující kód, ale zasekla jsem se u toho, že jakmile chci zapsat něco do souboru, hlásí mi, že mám pouze ReadOnly properties.

Imports Microsoft.Office.Interop
Module ARfit
    Sub ZkopirujDvaSloupce()
        Dim Spektrum As Excel.Application = CType(CreateObject("excel.application"), Excel.Application)
        Dim Hnushnusnej As Excel.Application = CType(CreateObject("excel.application"), Excel.Application) 
        Spektrum.Workbooks.Open(Filename:="C:\Cesta1\jmeno1.CSV")
        Hnushnusnej.Workbooks.Open(Filename:="C:\Cesta2\jmeno2.txt")
        Hnushnusnej.Range("A2") = "Burn!"
    End Sub
    Sub Main()
        

Díky moc.

        ZkopirujDvaSloupce()
        Console.ReadLine()
    End Sub

End Module

Answer 1

Zdravím, syntaxi VB moc neznám, protože dělám síšárp. Často se setkávám s chybou práv pro přístup k zápisu na disk nebo do registru. Zkuste nejprve daný projekt digitálně podepsat. Pokud to není tento problém, ozvěte se, rád Vám pošlu ukázky kódu, který práva k zápisu přiděluje.

kontaktovat zde, nebo na email: dk.technology(zavinac)outlook.com

Answer 2

Co zkusit dle http://msdn.microsoft.com/de-de/library/microsoft.office.interop.excel.workbooks.open(v=office.11).aspx použít při otevírání souboru atribut ReadOnly nastavený na false?

Answer 3

Já teda dělám taky síšér a né VB, ale myslím, že problém vůbec nesouvisí s ReadOnly vlastnostmi souboru, ale že se snažíte přiřazovat do property třídy, který má jenom getter, nikoliv setter.

Zkuste vyměnit řádek

Hnushnusnej.Range("A2") = "Burn!"

za

Hnushnusnej.Range("A2").Value = "Burn!"

...nebo tam někde hledejte zádrhel.

---

Robert Haken, Microsoft MVP ASP.NET/IIS, HAVIT, s.r.o., www.havit.cz, http://knowledge-base.havit.cz