Hallo ich wollte einige Bereiche zweier Excel Dokumente kopieren. Hier ist ein kleiner Bereich meines Codes der eben die Probleme macht.
Und zwar mag Visual Studio die Zeile Dim cellValue As Object = cell.Value nicht, weil Option Strict on aktiv ist, und somit späteres Binden nicht klappt-
Wie könnte ich das denn umändern, dass es wieder geht? Ich wähle diese Ansatz weil ich Verbundene Zellen habe, und diese leider nicht auseinander nehmen kann.
CodeTags korrigiert; bitte zukünftig darauf achten, das richtige CodeHighlighting zu verwenden ~VaporiZed
Und zwar mag Visual Studio die Zeile Dim cellValue As Object = cell.Value nicht, weil Option Strict on aktiv ist, und somit späteres Binden nicht klappt-
Wie könnte ich das denn umändern, dass es wieder geht? Ich wähle diese Ansatz weil ich Verbundene Zellen habe, und diese leider nicht auseinander nehmen kann.
VB.NET-Quellcode
- Sub ExcelExport(workbookalt As String, Workbookneu As String)
- Dim MyExcel As New Excel.Application
- Dim xlWorkbookalt As Excel.Workbook = MyExcel.Workbooks.Open(workbookalt)
- Dim xlWorkbookneu As Excel.Workbook = MyExcel.Workbooks.Open(Workbookneu)
- Dim xlWorksheetalt As Excel.Worksheet = DirectCast(xlWorkbookalt.Sheets("Charakter"), Excel.Worksheet)
- Dim xlWorksheetneu As Excel.Worksheet = DirectCast(xlWorkbookneu.Sheets("Charakter"), Excel.Worksheet)
- Dim rangeToCopy As Excel.Range = xlWorksheetalt.Range("I7:I12")
- Dim destinationRange As Excel.Range = xlWorksheetneu.Range("I7:I12")
- For Each cell In rangeToCopy.Cells
- Dim cellValue As Object = cell.Value
- destinationRange.Value = cellValue
- destinationRange = destinationRange.Offset(1, 0)
- Next
- rangeToCopy.Copy(destinationRange)
- xlWorkbookalt.Close(SaveChanges:=False)
- xlWorkbookneu.Close(SaveChanges:=True)
- MyExcel.Quit()
- End Sub
CodeTags korrigiert; bitte zukünftig darauf achten, das richtige CodeHighlighting zu verwenden ~VaporiZed
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „VaporiZed“ ()