Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: MSHFlexGrid--->Excel
Autor: Astaldo
Datum: 08.12.03 16:13
Wie wärs wenn du die einfach Zelle für Zelle rüberkopierst? so ungefähr: Public Sub PrintToExcel(g As MSHFlexGrid) Dim bc As Integer Dim r As Integer Dim s As String Dim eapp As Excel.Application Dim ebook As Excel.Workbook Dim esheet As Excel.Worksheet Set eapp = New Excel.Application eapp.Visible = True Set ebook = eapp.Workbooks.Add Set esheet = ebook.Worksheets(1) g.ExpandAll For r = 0 To g.Rows - 1 For bc = 0 To g.Cols(0) g.Row = r g.col = bc esheet.Cells(r + 1, bc + 1) = g.TextMatrix(r, bc) Next bc Next r End Sub

MSHFlexGrid--->Excel	466	Mr_Wanton	19.09.03 06:56
Re: MSHFlexGrid--->Excel	305	Mr_Wanton	20.09.03 18:58
Re: MSHFlexGrid--->Excel	424	Astaldo	08.12.03 16:13

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen