vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: Controls · MSFlexGrid/DataGrid   |   VB-Versionen: VB617.03.10
Inhalt eines MSFlexgrid an Excel übergeben

Diese Funktion kopiert den Inhalt des MSFlexgrid in ein neues Exceldokument.

Autor:   Dennis HemkenBewertung:  Views:  13.844 
gadgets.hemken.orgSystem:  Win2k, WinXP, Win7, Win8, Win10, Win11 Beispielprojekt auf CD 

Unser heutiger Tipp zeigt eine einfache Möglichkeit, wie sich der gesamte Inhalt eines MSFlexGrid-Controls in ein neues Excel-Dokument einfügen lässt.

' Fügt den Inhalt des übergebenen FlexGrid-Controls in 
' ein neues Excel-Dokument ein und zeigt dieses an
Public Function MSFlexgridToExcel( _
  ByRef FlexGrid As MSFlexGridLib.MSFlexGrid) As Boolean
 
  Dim xlObject As Object  ' Excel.Application
  Dim xlWB As Object      ' Excel.Workbook
 
  ' Fehlerbehandlung
  On Error GoTo ErrHandler
 
  ' Excel Application öffnen
  Set xlObject = CreateObject("Excel.Application") ' New Excel.Application
 
  ' Workbook hinzufügen
  Set xlWB = xlObject.Workbooks.Add
 
  ' Wichtig: die Zwischenablage löschen
  Clipboard.Clear
 
  With FlexGrid
    ' Zellen im MSFlexgrid markieren/selektieren
    .Col = 0
    .Row = 0
    .ColSel = .Cols - 1
    .RowSel = .Rows - 1
 
    ' markierte/selektierte Zellen an Zwischenablage übergeben
    Clipboard.SetText .Clip
  End With
 
  With xlObject.ActiveWorkbook.ActiveSheet
    ' Zelle A1 selektieren
    .Range("A1").Select
 
    ' Zwischenablage in die selektierte Zelle (A1) kopieren
    .Paste
  End With
 
  ' Excel sichtbar machen
  xlObject.Visible = True
 
  ' #######################
  ' hier kann man dann noch ein paar Sachen machen,
  ' wie zum Beispiel die Exceldatei automatisch speichern...
  ' #######################
  MSFlexgridToExcel = True
  Exit Function
 
ErrHandler:
  ' nur zur Vollständigkeit MSFlexgridToExcel auf False setzen, 
  ' denn normalerweise braucht man es nicht, da eine Funktion 
  ' As Boolean (hier: MSFlexGridToExcel) standardmäßig auf False 
  ' gesetzt wird.
  MSFlexgridToExcel = False
  MsgBox App.EXEName & "   " & Err.Number & vbCrLf & Err.Description, vbCritical
  Debug.Print App.EXEName & "   " & Err.Number & vbCrLf & Err.Description
End Function



Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
 
Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.


Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.