Hallo,
ich möchte die Zellen und dazugehörenden Kommentare einer Excel-Datei auslesen.
Mit einem Range-Objekt befülle ich ein Array. Ich erhalte damit die Werte der Zellen.
Gibt es einen ähnlichen Weg, die Kommentare zu erhalten?
Hier der Ansatz:
Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
Public xl_App As New Microsoft.Office.Interop.Excel.Application
Private Sub Namen()
Try
Dim NachName As String = String.Empty
Dim VorName As String = String.Empty
Dim arrNamen(,) As Object '= range.Value(XlRangeValueDataType.xlRangeValueDefault)
Dim ws As Excel.Worksheet
Dim rng As Excel.Range
xl_App.Workbooks.Open("C:\Tabelle1.xlsx")
ws = xl_App.ActiveWorkbook.Worksheets(1)
rng = ws.UsedRange
arrNamen = rng.Value()
ComboBox1.Items.Clear()
For n = 1 To arrNamen.GetUpperBound(0)
If Not arrNamen(n, 1) Is Nothing Then NachName = arrNamen(n, 1)
If Not arrNamen(n, 2) Is Nothing Then VorName = arrNamen(n, 2)
ComboBox1.Items.Add(NachName & ", " & VorName)
Next n
Catch ex As Exception
End Try
End Sub
Ich könnte natürlich über eine Schleife jeden Kommentar abfragen, etwa so:
for i =1 to 1000
If Not wb.Worksheets(j).cells(1, i ).comment Is Nothing Then
arrKom(1,i)= wb.Worksheets(j).cells(1, i -).comment.text
next i
Aber das dauert...
Gibt es eine Möglichkeit, ähnlich wie im ersten Beispiel die Zellen über das Range-Objekt eingelesen, dies auch mit Kommentaren zu tun?
Oder gibt es da noch andere Ansätze?
Vielen Dank für jede Anregung!
Orchov
ich möchte die Zellen und dazugehörenden Kommentare einer Excel-Datei auslesen.
Mit einem Range-Objekt befülle ich ein Array. Ich erhalte damit die Werte der Zellen.
Gibt es einen ähnlichen Weg, die Kommentare zu erhalten?
Hier der Ansatz:
Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
Public xl_App As New Microsoft.Office.Interop.Excel.Application
Private Sub Namen()
Try
Dim NachName As String = String.Empty
Dim VorName As String = String.Empty
Dim arrNamen(,) As Object '= range.Value(XlRangeValueDataType.xlRangeValueDefault)
Dim ws As Excel.Worksheet
Dim rng As Excel.Range
xl_App.Workbooks.Open("C:\Tabelle1.xlsx")
ws = xl_App.ActiveWorkbook.Worksheets(1)
rng = ws.UsedRange
arrNamen = rng.Value()
ComboBox1.Items.Clear()
For n = 1 To arrNamen.GetUpperBound(0)
If Not arrNamen(n, 1) Is Nothing Then NachName = arrNamen(n, 1)
If Not arrNamen(n, 2) Is Nothing Then VorName = arrNamen(n, 2)
ComboBox1.Items.Add(NachName & ", " & VorName)
Next n
Catch ex As Exception
End Try
End Sub
Ich könnte natürlich über eine Schleife jeden Kommentar abfragen, etwa so:
for i =1 to 1000
If Not wb.Worksheets(j).cells(1, i ).comment Is Nothing Then
arrKom(1,i)= wb.Worksheets(j).cells(1, i -).comment.text
next i
Aber das dauert...
Gibt es eine Möglichkeit, ähnlich wie im ersten Beispiel die Zellen über das Range-Objekt eingelesen, dies auch mit Kommentaren zu tun?
Oder gibt es da noch andere Ansätze?
Vielen Dank für jede Anregung!
Orchov