如何使用VSTO/C＃中的行和列号获取Excel范围？

Question

我认为这个问题总结了一下。给定行和列的两个整数或范围两个角的行和列的四个整数，如何获得该范围的范围对象。

Answer 1

凡范围是多个单元格：

Excel.Worksheet sheet = workbook.ActiveSheet; 
Excel.Range rng = (Excel.Range) sheet.get_Range(sheet.Cells[1, 1], sheet.Cells[3,3]); 

凡范围是一个单元：

Excel.Worksheet sheet = workbook.ActiveSheet; 
Excel.Range rng = (Excel.Range) sheet.Cells[1, 1]; 

Answer 2

我发现，似乎工作以及良好的短方法...

Dim x, y As Integer 
x = 3: y = 5 
ActiveSheet.Cells(y, x).Select 
ActiveCell.Value = "Tada" 

在这个例子中，我们选择3列和5列向下，然后把“Tada”放在单元格中。

Answer 3

你可以这样

string str = (string)(range.Cells[row, col] as Excel.Range).Value2 ; 

选择整个使用范围检索值

Excel.Range range = xlWorkSheet.UsedRange; 

来源：

http://csharp.net-informations.com/excel/csharp-read-excel.htm

燃烧

Answer 4

给定的答案将在Microsoft Excel 14.0对象库中使用时引发错误。 对象不包含get_range的定义。 而是使用

int countRows = xlWorkSheetData.UsedRange.Rows.Count; 
int countColumns = xlWorkSheetData.UsedRange.Columns.Count; 
object[,] data = xlWorkSheetData.Range[xlWorkSheetData.Cells[1, 1], xlWorkSheetData.Cells[countRows, countColumns]].Cells.Value2; 

Answer 5

UsedRange做工精细用“处女”的细胞，但如果你的细胞都充满了过去，然后UsedRange将提供给你的旧值。

例如：

“认为在具有细胞A1到A5填充有文本Excel工作表”。在这种情况下，必须UsedRange被实现为：

Long SheetRows; 
SheetRows = ActiveSheet.UsedRange.Rows.Count; 

甲手表SheetRows变量必须这几行的执行之后显示的值为5。

问题1：但是，如果A5的值被删除会发生什么？

A1：SheetRows的值为5

Q2：为什么这样？

A2：由于MSDN限定UsedRange属性为：

获取表示所有 在任何时间都包含一个值的细胞Microsoft.Office.Interop.Excel.Range对象。

---

所以，问题是：存在着一些/任何的办法解决这个问题？

我认为在2个备选方案：

1. 避免删除单元格的内容，更喜欢全行删除（右键单击行号，然后选择“删除行”
2. 使用CurrentRegion代替。 UsedRange属性的如下：

---

Long SheetRows; 
SheetRows = ActiveSheet.Range("A1").CurrentRegion.Rows.Count; 

Answer 6

如果你想要一个像Cells(Rows.Count, 1).End(xlUp).Row，你可以做到。

只需使用下面的代码：

using Excel = Microsoft.Office.Interop.Excel; 

string xlBk = @"D:\Test.xlsx"; 
Excel.Application xlApp; 
Excel.Workbook xlWb; 
Excel.Worksheet xlWs; 

Excel.Range rng; 
int iLast; 

xlApp = new Excel.Application(); 
xlWb = xlApp.Workbooks.Open(xlBk, 0, true, 5, "", "", true, 
Microsoft.Office.Interop.Excel.XlPlatform.xlWindows, "\t", false, false, 0, true, 1, 0); 

xlWs = (Excel.Worksheet)xlWb.Worksheets.get_Item(1); 

iLast = xlWs.Rows.Count; 
rng = (Excel.Range)xlWs.Cells[iLast, 1]; 
iLast = rng.get_End(Excel.XlDirection.xlUp).Row; 

Answer 7

面对我发现最快的解决办法是实际扫描我希望排序单元的行同样的问题，确定与非空白元素的最后一行然后选择并对该分组排序。

Dim lastrow As Integer 
lastrow = 0 
For r = 3 To 120 
    If Cells(r, 2) = "" Then 
     Dim rng As Range 
     Set rng = Range(Cells(3, 2), Cells(r - 1, 2 + 6)) 
     rng.Select 
     rng.Sort Key1:=Range("h3"), order1:=xlDescending, Header:=xlGuess, DataOption1:=xlSortNormal 
     r = 205 
    End If 
Next r