Excel auto-fit-Spalte in VB.NET

Ich habe hier meinen code in VB6 und seine Arbeit gut.

 For CLms = 1 To 10
      ws.Columns(CLms).AutoFit '<---Autofilt data on XL sheet
 Next CLms

Habe ich danach gesucht, was ist die äquivalente oder alternative auf, wie man die excel-Spalten die Breite automatisch anpassen in VB.NET aber ich bin mir immer noch nicht die genaue AutoFit-Funktion.

Jede Hilfe wird geschätzt.

InformationsquelleAutor user2878699 | 2013-10-14

  1. 11

    Dies ist, wie ich es getan habe in der vb.net.

    xlSheet.Range("A1:X1").EntireColumn.AutoFit()
    Dein code ist nicht "gut arbeiten". In VBA, ohne .EntireColumn, .AutoFit nix! Diese Lösung ist die richtige für VBA - nicht VB6, vb.net, ...
    vielen Dank für die Hilfe. Vielleicht ist dies nicht die komplette Zeile code, aber in diesem Beispiel bekam der Funktionen, die ich benötigen werden, kommt es auf die Entwickler an, wie er baut seinen code zu arbeiten. Nochmal Vielen Dank!
    Es arbeitet völlig in Ordnung, in meiner Umgebung. Die einzige änderung, die ich hat war, um es zu ändern: xlSheet.Cells.EntireColumn.AutoFit()

    InformationsquelleAutor aphoria

  2. 1

    Zum Beispiel, wenn Sie nicht wissen, die Anzahl der Spalten können Sie automatisch die komplette Zeile.

    xlSheet.Rows.Item(1).EntireColumn.AutoFit()

    InformationsquelleAutor Jorge Valdes

  3. 0

    Die Methoden zur Manipulation einer Excel-Spalte sind die gleichen, unabhängig davon, ob Sie anrufen, den code von VB6 oder VB.NET. So sollte es keine änderungen an Ihrem code, wenn es funktioniert in VB6.

    Jedoch für einige Hilfe - Haben Sie einen Blick auf das vollständige Beispiel in VB.NET das schließt autofit

    Ich habe gelesen, der link, den Sie gab, und ich habe es zu meinem Projekt und jetzt ist es gut funktioniert, wie das, was ich erwartet hatte. Dank

    InformationsquelleAutor Matt Wilko

  4. 0

    Hallo ich versuche alle diese Lösung..aber es war niemand zu arbeiten..
    bitte nehmen Sie die richtige Lösung:

        With oSheet

        .PageSetup.Zoom = False
        .PageSetup.FitToPagesWide = 1
        .PageSetup.FitToPagesTall = False

    End With

    InformationsquelleAutor ziad mansour

Schreibe einen Kommentar