Option Explicit On
Option Strict Off
 
Public Class Form1
 
    Dim Exc As Object
 
    Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        Exc = GetObject(CurDir() & "\Mappe1.xls")
        Exc.Application.Visible = True
        Exc.Windows(1).Visible = True
        Me.Activate()
    End Sub
 
    Private Sub btnWerteSchreiben_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnWerteSchreiben.Click
        Dim i, j, n As Integer
        Dim k(9999) As Integer
        For n = 0 To 9999
            k(n) = n + 1
        Next
        pgbAnzeige.Visible = True
        pgbAnzeige.Maximum = 10000
        n = 0
        For j = 0 To 9
            For i = 0 To 999
                Exc.worksheets(1).cells(i + 1, j + 1).Value = k(n)
                n = n + 1
                pgbAnzeige.Value = n
            Next
        Next
        pgbAnzeige.Visible = False
    End Sub
 
End Class

Option Explicit On
Option Strict Off
 
Imports Microsoft.Office.Interop
 
Public Class Form1
 
    Dim xlApp As New Excel.Application
    Dim xlMap As Excel.Workbook
 
    Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        xlMap = xlApp.Workbooks.Open(CurDir() & "\Mappe1.xls")
        xlApp.Application.Visible = True
        Me.Activate()
    End Sub
 
    Private Sub btnWerteSchreiben_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnWerteSchreiben.Click
        Dim i, j, n As Integer
        Dim k(9999) As Integer
        For n = 0 To 9999
            k(n) = n + 1
        Next
        pgbAnzeige.Visible = True
        pgbAnzeige.Maximum = 10000
        n = 0 'n=0 muss sein
        For j = 0 To 9
            For i = 0 To 999
                xlMap.Worksheets(1).cells(i + 1, j + 1).Value = k(n)
                n = n + 1
                pgbAnzeige.Value = n
            Next
        Next
        pgbAnzeige.Visible = False
    End Sub
 
End Class