Waarde in excelbestand aanpassen vanuit VB

[jurgenvo]

Hallo allemaal,

Ik heb een programmatje waarin 1 excel bestand een X aantal keer wordt gekopieerd naar een andere map en in die map worden alle bestanden dan hernoemd.

Nu wil ik graag in het excel bestand in cel "F33" de bestandsnaam laten invullen (zonder extensie).

Dit is wat ik had:

        Excel = CreateObject("Excel.Application")

        Dim FilePath As String
        FilePath = "Q:\" & ComboBoxAannemer.Text & "\" & ComboBoxProject.Text & "\V&E\" & "bn" & TextBoxNumb1.Text & ".xlsx"

        Dim FileName As String
        FileName = "bn" & TextBoxNumb1.Text

        Excel.Workbooks.Open(FilePath)
        Excel.Visible = False
        Excel.DisplayAlerts = False
        Excel.AlertBeforeOverwriting = False
        Worksheet = CType(Excel.Sheets.Item(1), Microsoft.Office.Interop.Excel.Worksheet)

        Dim MijnString As String = FileName
        Dim MijnRange As Object
        MijnRange = Excel.Range("F33")

        Clipboard.SetDataObject(MijnString)
        Worksheet.Paste(MijnRange)
        Clipboard.Clear()
        Excel.Quit()

        Dim ExcelProcess() As Process = Process.GetProcessesByName("EXCEL")
        For Each Process As Process In ExcelProcess
            Process.Kill()
        Next

Hierin is de Dim Filename wat ik in cel F33 wil laten verschijnen

Iemand enig idee???

Groeten,

Jurgen