LotusScript/VBScript Excel Hochkomma

[TMC]

Hi,

hier ist ja das Excel-Export-Script von Eknori eingebaut.

Dieser Teil hier setzt u.a. ein Hochkomma vor jeden Zelleninhalt:

For cols=1 To maxcols  
   colvals=entry.ColumnValues(cols-1)      'subscript =0
   scope=Typename(colvals)
   Select Case scope
   Case "STRING"
      xlsheet.Cells(rows,cols).Value ="'" +  colvals
   Case Else      
      xlsheet.Cells(rows,cols).Value = colvals
   End Select                      
Next cols

Zu beachten die Zeile: xlsheet.Cells(rows,cols).Value ="'" +  colvals

Problem dabei:
Folgendes Excel-VBScript greift nicht:

Sub Hochkomma()
Dim zellen As Range
On Error Resume Next
For Each zellen In Selection
ActiveCell.FormulaR1C1 = ActiveCell.Text
ActiveCell.Offset(1, 0).Select
Next zellen
End Sub

Das Excel-Makro greift durchaus bei "normalen" Hochkommas, die z.B. von anderen Excel-Export-Programmen erzeugt werden oder wenn man das Hochkomma manuell setzt.

Aber beim Notes-Excel-Export-Script greift das Makro nicht.
Grund: Dieses Hochkomma gibt es für Excel "eigentlich" nicht. Excel stellt dies nur dar, um zu zeigen, dass der Inhalt der Zelle als Text formatiert ist.

Frage: Wie müsste man den o.g. Script anpassen, dass die Daten excel-konform importiert werden?


TMC

[TMC]

hat sich schon erledigt:

Schreibe ich das ganze so:

'xlsheet.Cells(rows,cols).Value ="'" +  colvals
xlsheet.Cells(rows,cols).Value = colvals

Dann klappt es.
Ich vermute die Hochkommageschichte im Script ist eine Folge eines älteren Excel (95/97). Unter Excel 2000 werden Daten wie Datum 1:1 übernommen (und Datum nicht als Zahl dargestellt).
Habe jetzt Datum, Text und Zahl importiert, und bei allen klappt es.

TMC