Zitat:

Unter Win7 läuft Office 2013 und unter Win10 läuft Office 2016. Wie kann ich das nun am güngstigsten so variable gestalten ohne das ich für Win10 und Win7 jeweils eine Frontend erstellen muss?

EALA FREYA FRESENA

Dim x As Object
Dim wb As Object
Dim ws As Object
 
x=CreateObject("Excel.Application")
wb=x.Workbooks.Add()
ws=wb.Sheets("Tabelle1")
ws.Cells(1, 1).Value="Hier steht was"
 
wb.SaveAs("d:\irgendwas.xlsx")
wb.Close
 
ws=Nothing
sb=Nothing
 
x.Quit
x=Nothing

EALA FREYA FRESENA

'Excel einbinden
Dim sImportMaxPGR As Integer
        Dim xlsApp As Object
        Dim xlsWb As Object
        Dim xlsSh As Object
 
        xlsApp = CreateObject("Excel.Application")
        xlsWb = xlsApp.Workbooks.add()
        xlsSh = xlsWb.ActiveSheet
        xlsApp.Visible = False

sImportMaxPGR = xlsSh.Cells.SpecialCells( _
  xlsApp.XlCellType.xlCellTypeLastCell).Row - 1

        Dim x As Object
        Dim wb As Object
        Dim sh As Object
        Dim GefZelle As Object
        Dim Row As Integer = 0
 
 
        x = CreateObject("Excel.Application")
 
        wb = x.workbooks.open("d:\juhu.xlsx")
 
        sh = wb.sheets("Tabelle1")
 
        GefZelle = sh.columns("A:A").find(What:="")
 
        If GefZelle Is Nothing Then
            MessageBox.Show("Es wurde keine leere Zelle gefunden!")
        Else
            Row = GefZelle.row - 1
            MessageBox.Show("Die gesuchte Zeile befindet sich in Zeile :" & Row)
        End If

EALA FREYA FRESENA