Visual Basic 2005 Express Edition и Microsoft Office Excel 2003

[Guest]

Привет на всички
Първо Честита нова 2006 г.
Въпроса ми е следния.
Защо тази част от програмния код записва в клетка (1,4), а не желае да прочете от там и къде е грешката ми. При Visual Basic 6.0 това си работеше чудесно. Благодаря Ви предварително.
Public Class Form1
Dim xL As Object
Dim xLSert_zap As Object
Dim sa As String

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
xL = GetObject("C:\protokol.xls")
xLSert_zap = xL.Worksheets("Sert_zap")
xLSert_zap.Application.Visible = True
sa = "Някакъв текст"
xLSert_zap.cells(1, 4) = sa
sa = xL.Worksheets("Sert_zap").cells(1, 1)
TextBox1.Text = xL.Worksheets("Sert_zap").cells(1, 4)
End Sub
Грешката която ми дава е :
Conversion from type 'Range' to type 'String' is not valid.

[Avis]

А защо не опиташ да укажеш явно свойствата (изглежда само последното ти дава грешка):
Public Class Form1
* * Dim xL As Object
* * Dim xLSert_zap As Object
* * Dim sa As String

* * Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
* * * * xL = GetObject("C:\protokol.xls")
* * * * xLSert_zap = xL.Worksheets("Sert_zap")
* * * * xLSert_zap.Application.Visible = True
* * * * sa = "Някакъв текст"
* * * * xLSert_zap.cells(1, 4).Value = sa
* * * * sa = xL.Worksheets("Sert_zap").cells(1, 1).Text
* * * * TextBox1.Text = xL.Worksheets("Sert_zap").cells(1, 4).Text
* * End Sub

[Guest]

Благодаря за подсещането
Работи, явно искат малко повече указвания