2016-07-25 12 views
0

Ich möchte zu einem Excel mit Zeilen-/Spaltennummern anstelle von Bereichsnamen schreiben. Der einzige Weg, den ich gefunden habe, war mit der .Cells-Eigenschaft, aber ich bekomme immer einen Fehler 0x800A03EC, wenn ich versuche, es zu verwenden. Ich habe versucht, es so weit wie möglich zu vereinfachen, um herauszufinden, wie es funktioniert. Der folgende Code funktioniert für "test1" und ich bekomme den Fehler, wenn es versucht, "test2" zu schreiben. Ich bin mit Excel 2016 und der neuesten Version von Visual Studio auf W10Schreiben in eine Excel-Datei von VB.net, wenn Sie den Bereichsnamen nicht kennen

Dim xlApp As New Excel.Application 
Dim xlWorkBook As Excel.Workbook 
Dim xlWorkSheet As Excel.Worksheet 

xlWorkBook = xlApp.Workbooks.Add 
xlApp.Visible = True 
xlWorkSheet = xlWorkBook.Sheets("Sheet1") 

With xlWorkSheet 
    .Range("A1").Value = "test1" 
    .Range(.Cells(8, 8)).Value = "test2" 
End With 

Kann mir jemand helfen, herauszufinden, wie es zu beheben oder kennt eine alternative Methode, es zu tun?

+0

'xlWorkSheet.Cells (8, 8)' gibt ein Excel.Range Objekt, so benutzen Sie einfach 'xlWorkSheet.Cells (8, 8) .Value = "test2"' . – TnTinMn

Antwort

1
.Range(.Cells(8, 8)).Value = "test2" 

Den .Range() herausnehmen. diese Linie muss sein ist alles:

.Cells(8,8).Value = "test2"