Aus einer Access DB lese ich Daten heraus und schreibe die in ein MSFlexgrid.
Mit folgendem Code kopiere ich die Daten nach Excel:
Private Sub cmdExport_Click()
Dim xlObject As Excel.Application
Dim xlWB As Excel.Workbook
Set xlObject = New Excel.Application
Set xlWB = xlObject.Workbooks.Add
Clipboard.Clear
With MSFlexGrid1
.Col = 0
.Row = 0
.ColSel = .Cols - 1
.RowSel = .Rows - 1
Clipboard.SetText .Clip
End With
With xlObject.ActiveWorkbook.ActiveSheet
.Range(„A1“).Select
.Paste
End With
xlObject.Visible = True
End Sub
Wenn ich jetzt Zahlen übertrage tauchen Zahlen mit 3 Nachkommastellen in der Form x.xxx auf. Zahlen mit 2 Nachkommastellen in der Form x,xx.
Wie bekomme ich es hin, dass die Ausgabe in Excel immer mit einem Punkt erfolgt??
Vielen Dank für die Hilfe