[CodedUITest]
创新互联于2013年成立,是专业互联网技术服务公司,拥有项目网站设计、成都网站设计网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元北湖做网站,已为上家服务,为北湖各地企业和个人服务,联系电话:18980820575
public class CodedUITest1
{
public CodedUITest1()
{
Type t = typeof(CodedUITest1);
//关键是GetCustomAttributes
//根据输出的字符串,你就可以用一些办法来判断了
foreach (object o in t.GetCustomAttributes(true))
Debug.WriteLine(o);
MethodInfo mi = t.GetMethod("CodedUITestMethod1");
foreach (object o in mi.GetCustomAttributes(true))
Debug.WriteLine(o);
}
[TestMethod]
public void CodedUITestMethod1()
{
}
}
do while 循环前将n=1,cells(n,1)后加.value
Private Sub Command1_Click()
Set objexcel = CreateObject("Excel.application")
Set objworkBook = objexcel.Workbooks.Open("d:\k.xls", 3, False)
Set ExcelSheet = objworkBook.Worksheets(1)
objexcel.Visible = ture
以下三行是想如果单元格不为空就让变量n加1。
n=1'需要指定n的初始值,否则n为空值,下面的语句将错误。
Do While ExcelSheet.cells(n, 1).value "" 'cells后加value属性
n = n + 1
Loop
ExcelSheet.cells(n, 1).value = Text1.Text 'cells后加value属性
objworkBook.Save
objworkBook.Close
Set objexcel = Nothing
End Sub
vb.NET有时很怪,不同版本,或者不同机器,在操作excel时,判断单元格是否为空时,会出现不同的错误提示。
大多数情况,xlSheet.Cells(1, 1)="" 就可以判断这个单元是否有内容。
但是有时也会有不同的提示。总结不同机器,不同版本,用下面几种来试试单元格是否是空白。
xlSheet.Cells(1, 1)=""
xlSheet.Cells(1, 1).value=""
xlSheet.Cells(1, 1).value.tostring=""
如果上面三个代码都会自动提示错误,请用下面终极模式:)
xlSheet.Cells(1, 1).value = Nothing