Excel afsluiten met button

[Schipperjte]

Hoi,

met deze code haal ik een bestand op in excel

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

Werkt goed , dan doe ik wat textboxen heen en weer enz

als ik dan klaar ben hoe laat ik dan deze sheet weer sluiten met een button ?

ik werk met Visual basic 2010

 

[evertVB]

Ik heb na even Googlen hier het antwoord gevonden:
http://www.vbib.be/OldForum-mode-displ_thread-topic_id-2091.phtml

Laat svp weten of het werkt.

 

[Schipperjte]

Hoi,

Dit had ik ook gevonden en nog een paar op internet,maar elke keer

het zelfde verhaal ongeveer als hier beschreven staat


Error 1 'mySheets' is not declared. It may be inaccessible due to its protection
Error 2 'xlApp' is not declared. It may be inaccessible due to its protection level.
Error 3 'myWorkbooks' is not declared. It may be inaccessible due to its protection
Error 4 'xlApp' is not declared. It may be inaccessible due to its protection level.
Error 5 'xlApp' is not declared. It may be inaccessible due to its protection level.
Error 6 Statement cannot appear within a method body. End of method assumed.

 

[Schipperjte]

Opgelost,wat gevonden op internet

nog een beetje bijschaven maar dat lukt wel

Public Sub CloseFile()
        Dim Processes As Process() = Process.GetProcessesByName("Excel")

        For Each Item As Process In Processes
        If MessageBox.Show("Excel must be closed before data can be written", "", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1) = Windows.Forms.DialogResult.OK Then
            Item.Kill()

        End If
        Next
    End Sub

 

[Schipperjte]

Werkt ,alleen een beetje tegoed

Dit gebruik ik om een excelsheet te openen

 Public Sub New()
        
InitializeComponent()
        Dim AppExcel As Object
        Dim workBook As Object
        AppExcel = CreateObject("Excel.Application")


        workBook = AppExcel.Workbooks.Open(My.Application.Info.DirectoryPath & "\Bunkerpapieren 2.7.xls")
        AppExcel.Visible = True
        Worksheets = workBook.worksheets
End Sub

niets mis mee

en dit gebruikte ik om excel aftesluiten , alleen gooide hij alle excel documenten dicht die open staat . Natuurlijk staat er ook .

Wat zou ik moeten veranderen dat hij Bunkerpapieren 2.7.xls sluit evt met opslaan ? Geprobeerd om "Excel" teveranderen in Bunkerpapieren 2.7.xls maar dan sluit hij niets meer.

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Processes As Process() = Process.GetProcessesByName("Excel")

        For Each Item As Process In Processes

            Item.Kill()


        Next
        Me.Close()



    End Sub

Bas