Naar excel

[Schipperjte]

Hoi ,

Ik probeer iets te maken wat de inhoud van een textbox naar een excel sheet kopieerd

In VBA van Excel is met dit wel gelukt met een userform maken enz.

Maar dit is toch anders , in Visual Studio 2010

een knop en een textbox , dan deze code

Public Class Form1
   
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        Dim objExcel As Excel.Application
        Dim objWorkbook As Excel.Workbook
        Dim objWorksheet As Excel.Worksheet
        Dim strTest As String

        objExcel = New Excel.Application
        objWorkbook = objExcel.Workbooks.Open("C:\hoi.xlsx")
        objWorksheet = objWorkbook.Worksheets(1)
        objExcel.Visible = True
        objWorksheet.Range("A1").Value = Me.Text1.Text
        Stop
        objWorksheet = Nothing
        objWorkbook.Close(False)
        objWorkbook = Nothing
        objExcel.quit()
        objExcel = Nothing



    End Sub
End Class

Heb bij Reference de Microsoft object libary 14.0 gekozen .

Opgeslagen


als ik het exe bestand open zie ik het userform als ik tekst invoer en op de knop druk gebeurd er niets

Wat doe ik verkeerd ?


Bas

 

[Schipperjte]

Ben al wat verder

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim AppExcel As Object

        AppExcel = CreateObject("Excel.application")

        AppExcel.Workbooks.Open("C:\hoi.xlsx")
        AppExcel.Visible = True
    End Sub
End Class

dit werkt , alleen een texst box naar cel A1 naar een blad1 in dit bestand wil niet lukken

dit werkt niet

Sheets(1).Activate()

        Range("A1").Value = TextBox1.Value

Bas

 

[Schipperjte]

Heb ook nog ergens anders een hint gekregen maar het werkt nog niet


deze code heb ik nu maar excel start hoi op maar neemt niets over

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
          
        Dim AppExcel As Object 

        AppExcel = CreateObject("Excel.Application") 

        AppExcel.Workbooks.Open("C:\hoi.xlsx") 
        AppExcel.Visible = True 
        
        

    End Sub 

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) 
        Worksheets("hoi").Cells("A1").Value = TextBox1.Value 
    End Sub 


End Class

krijg deze fout meldingen

Error 1 'Worksheets' is not declared. It may be inaccessible due to its protection level.

Error 2 'Value' is not a member of 'System.Windows.Forms.TextBox'.

ik gebruik Microsoft Visual studio 2010 pro

iemand misschien nog een idee ?

de sheet is niet beveiligd ofzo is gewoon leeg