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 ="'" + colvalsProblem 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