Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

visual studio 2013 i excel

[es] :: .NET :: visual studio 2013 i excel

[ Pregleda: 1491 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

CORSA
vlado vuči9nić
eco,viličar
Hrvatska

Član broj: 284929
Poruke: 68
*.adsl.net.t-com.hr.



+9 Profil

icon visual studio 2013 i excel22.12.2013. u 07:41 - pre 125 meseci
Poštovani,

Našao sam neki kod na net-u,al izbacuje mi grešku,pa bi molio da mi netko kaže što nije u redu.
Code:
Imports Microsoft.Office.Interop

Public Class Form1

    Dim objExcel As New Excel.Application
    Dim objWorkbook As Excel.Workbook
    Dim objWorksheet As Excel.Worksheet

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        objWorkbook = objExcel.Workbooks.Open("d:\table.xlsx")
        objWorksheet = CType(objWorkbook.Worksheets.Item("Sheet1"), Excel.Worksheet)
        TextBox1.Text = objWorksheet.Cells(1, 1).text
        TextBox2.Text = objWorksheet.Cells(2, 1).text
        TextBox3.Text = objWorksheet.Cells(3, 1).text
    End Sub

    Private Sub Command1_Click()
        objWorksheet.Cells(1, 1).Value = TextBox1.Text
        objWorksheet.Cells(2, 3).Value = TextBox2.Text
        objWorksheet.Cells(3, 3).Value = TextBox3.Text
    End Sub

    Private Sub Command2_Click()
        objExcel.Application.Quit()
    End Sub

    Private Sub Command3_Click()
        objExcel.SaveAs("d:\table.xlsx")
    End Sub
End Class



greška u liniji " objWorksheet = CType(objWorkbook.Worksheets.Item("Sheet1"), Excel.Worksheet)"
An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in WindowsApplication5.exe

Additional information: Indeks nije valjan. (Exception from HRESULT: 0x8002000B (DISP_E_BADINDEX))
 
Odgovor na temu

djoka_l
Beograd

Član broj: 56075
Poruke: 3453

Jabber: djoka_l


+1462 Profil

icon Re: visual studio 2013 i excel22.12.2013. u 09:30 - pre 125 meseci
Izgleda da tvoj excel fajl d:\table.xlsx nema list sa imenom "Sheet1". Probaj da staviš

objWorksheet = CType(objWorkbook.Worksheets.Item(1), Excel.Worksheet)

To će vratiti prvi radni list bez obzira na to kako se zove.
 
Odgovor na temu

CORSA
vlado vuči9nić
eco,viličar
Hrvatska

Član broj: 284929
Poruke: 68
*.adsl.net.t-com.hr.



+9 Profil

icon Re: visual studio 2013 i excel22.12.2013. u 11:01 - pre 125 meseci
ok,to si sredio ,bilo je u vezi imena lista vjerojatno.
No,sad load form uredno radi ,ali kad u textbox unesem vrijednost i pritisnem klik ,ne unosi ništa u excel tablicu,možeš li to srediti ? :)

I excel mi ostaje uključen u procesima,kako to srediti ??
 
Odgovor na temu

[es] :: .NET :: visual studio 2013 i excel

[ Pregleda: 1491 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.