Private Sub saveInventurliste()
 
        Dim xlsApp2 As Excel.Application = New Excel.Application
        Dim xlsWorkBook2 As Excel.Workbook
        Dim xlsWorkSheet2 As Excel.Worksheet
 
        xlsWorkBook2 = xlsApp2.Workbooks.Add()
        xlsWorkSheet2 = xlsWorkBook2.ActiveSheet 'Sheets("sheet1")
 
 
        For Zeile = 0 To DataGridView1.RowCount - 1
            For Spalte = 0 To DataGridView1.ColumnCount - 1
                xlsWorkSheet2.Cells(Zeile + 2, Spalte + 1).Value() = _
                  DataGridView1.Rows(Zeile).Cells(Spalte).Value.ToString
            Next
        Next
 
        xlsWorkSheet2.SaveAs("D:\vbexcel.xlsx")
        xlsWorkBook2.Close()
        xlsApp2.Quit()
 
    End Sub

EALA FREYA FRESENA

EALA FREYA FRESENA

EALA FREYA FRESENA

 Dim Spaltenbreiten() As Double
 
 For i As Integer = 1 To Spaltenanzahl
   Spaltenbreiten(i) = xlsWorkSheet.Range(i).Columns.Width
 Next

xlsWorksheet.Columns(i).Width

EALA FREYA FRESENA

 Dim Suchwert As Integer = DataGridView1.Rows( _
   DataGridView1.CurrentRow.Index).Cells(0).Value

EALA FREYA FRESENA

 
 xlsApp = New Excel.Application 'original Inventurliste
            xlsWorkBook = xlsApp.Workbooks.Open(File_InventurListe)
            xlsWorkSheet = xlsWorkBook.Sheets(1) 'es gibt nur ein Sheet in der 
            ' Inventurliste XLS
 
            Dim r As Excel.Range = xlsWorkSheet.UsedRange
 
            ' lade alle Zellen ins 2d array.
            xlsDaten = r.Value(Excel.XlRangeValueDataType.xlRangeValueDefault) _
              '2d array vom Typ object
 
            xlsBreite = r.ColumnWidth '...xlsBreite ist 1d array vom Typ 
            ' double, aber diese Zeile liefert einen Fehler,

EALA FREYA FRESENA

 For Each Spalte As Integer In r
                xlsBreite(i) = Spalte
                i += 1
            Next

Zitat:

Vielleicht nochmal anders formuliert, was meine Absicht ist:

Zitat:

Ich öffne eine XLS Datei (abc.xls) in meinem VB-Programm. speicher nun alles wieder ab unter einem andern NAmen (xxx.xls). Die Formatierung ist nun nicht mehr vorhanden.

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Dim excel As Object = Nothing
        Dim workbook As Object = Nothing
        Dim sheet As Object = Nothing
 
        excel = CreateObject("Excel.Application")
        workbook = excel.workbooks.open("d:\spaltenbreite.xls")
        sheet = workbook.sheets("Tabelle1")
 
        Dim SpaltenbreiteSpalte1 As Integer = sheet.columns(1).width
        Dim SpaltenbreiteSpalte2 As Integer = sheet.columns(2).width
 
        MessageBox.Show("Die Spalte 1 hat die Länge: " & SpaltenbreiteSpalte1 & _
          vbCrLf & "Die Spalte 1 hat die Länge: " & SpaltenbreiteSpalte2)
 
        workbook.close(False)
 
        sheet = Nothing
        workbook = Nothing
        excel.quit
        excel = Nothing
 
    End Sub

EALA FREYA FRESENA