AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS Documentviewer DoLoadFile Punkt bei XLSX fehlte

Browse Source
This commit is contained in:
SchreiberM
2022-01-18 15:59:33 +01:00
parent 9d51074991
commit b0f79c3f3a
3 changed files with 12 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Controls.DocumentViewer/DocumentViewer.vb
View File

@@ -199,7 +199,7 @@ Public Class DocumentViewer
RichEditControl1.Visible = True
RichEditControl1.Dock = DockStyle.Fill
Case ".XLSX", ".XLS", "CSV"
Case ".XLSX", ".XLS", ".CSV"
SpreadsheetControl1.LoadDocument(FilePath, GetSpreadsheetFormat(oExtension))
Dim oRange = SpreadsheetControl1.ActiveWorksheet.GetUsedRange()
@@ -254,7 +254,7 @@ Public Class DocumentViewer
RichEditControl1.Visible = True
RichEditControl1.Dock = DockStyle.Fill
Case ".XLSX", ".XLS", "CSV"
Case ".XLSX", ".XLS", ".CSV"
SpreadsheetControl1.LoadDocument(Stream, GetSpreadsheetFormat(Extension))
Dim oRange = SpreadsheetControl1.ActiveWorksheet.GetUsedRange()
@@ -285,9 +285,9 @@ Public Class DocumentViewer
Dim oFormat As Spreadsheet.DocumentFormat = Spreadsheet.DocumentFormat.Undefined
Select Case Extension.ToUpper
Case "XLSX" : oFormat = Spreadsheet.DocumentFormat.Xlsx
Case "XLS" : oFormat = Spreadsheet.DocumentFormat.Xls
Case "CSV" : oFormat = Spreadsheet.DocumentFormat.Csv
Case ".XLSX" : oFormat = Spreadsheet.DocumentFormat.Xlsx
Case ".XLS" : oFormat = Spreadsheet.DocumentFormat.Xls
Case ".CSV" : oFormat = Spreadsheet.DocumentFormat.Csv
End Select
Return oFormat