<code><font color=green>' Inhalt eines FlexGrid-Controls speichern</font>
<font color=green>' sFilename: Dateiname inkl. vollständigen Pfad</font>
<font color=green>' SaveFixesRowCols: True, wenn Texte der FixedRows</font>
<font color=green>'   und FixedCols-Zellen gespeichert werden soll</font>
<font color=green>' ===================================================</font>
 
<font color=#000099>Public</font> <font color=#000099>Sub</font> _
  FlexGrid_SaveToFile(Grid <font color=#000099>As</font> MSFlexGrid, _
  <font color=#000099>ByVal</font> sFilename <font color=#000099>As</font> _
  <font color=#000099>String</font>, _
  Optional <font color=#000099>ByVal</font> SaveFixedRowCols <font _
  color=#000099>As</font> <font color=#000099>Boolean</font> = <font _
  color=#000099>True</font>)
 
  <font color=#000099>Dim</font> F <font color=#000099>As</font> <font _
    color=#000099>Integer</font>
  <font color=#000099>Dim</font> lRow <font color=#000099>As</font> <font _
  color=#000099>Long</font>
  <font color=#000099>Dim</font> lCol <font color=#000099>As</font> <font _
  color=#000099>Long</font>
  <font color=#000099>Dim</font> lRowStart <font color=#000099>As</font> <font _
  color=#000099>Long</font>
  <font color=#000099>Dim</font> lColStart <font color=#000099>As</font> <font _
  color=#000099>Long</font>
 
  <font color=green>' Datei für das Speichern der Daten öffnen</font>
  F = FreeFile
  <font color=#000099>Open</font> sFilename <font color=#000099>For</font> _
    <font color=#000099>Output</font> <font color=#000099>As</font> #F
 
  <font color=#000099>With</font> Grid
    <font color=green>' Startzeile / Spalte</font>
    lRowStart = IIf(SaveFixedRowCols, 0, .FixedRows)
    lColStart = IIf(SaveFixedRowCols, 0, .FixedCols)
 
    <font color=#000099>For</font> lRow = lRowStart <font _
      color=#000099>To</font> .Rows - 1
      <font color=green>' Spalten speichern - Trennzeichen "vbTab"</font>
      <font color=#000099>For</font> lCol = lColStart <font _
        color=#000099>To</font> .Cols - 1
        <font color=#000099>Print</font> #F, .TextMatrix(lRow, lCol);
        <font color=#000099>If</font> lCol < .Cols - 1 <font _
          color=#000099>Then</font> <font color=#000099>Print</font> #F, vbTab;
      <font color=#000099>Next</font> lCol
      <font color=#000099>Print</font> #F, ""
    <font color=#000099>Next</font> lRow
  <font color=#000099>End</font> <font color=#000099>With</font>
 
  <font color=green>' Datei schliessen</font>
  <font color=#000099>Close</font> #F
<font color=#000099>End</font> <font color=#000099>Sub</font></code>

Dim sFile As String
 
sFile = "d:	emp	estgrid.dat"
FlexGrid_SaveToFile MSFlexGrid1, sFile, True