在引用位置添加Excel类库.docx

在引用位置添加Excel的类库，.net的类库一般都是这个然后在窗体中添加以下变量声明。Private ExcelApp As Microsoft.Office.Interop.Excel.Application 定义Excel的ApplicationPrivate ExcelBook As Microsoft.Office.Interop.Excel.Workbook 定义Excel的操作BookPrivate ExcelSheet As Microsoft.Office.Interop.Excel.Worksheet 定义Excel的错做Sheet在相关过程中进行连接Excel及对操作Book及Sheet进行设置Private Sub ExcelTest()ExcelApp = CreateExcelApp(“Excel.Application)If ExcelApp Is Nothing Then Exit SubExcelApp.Visible = True ‘’当前Excel程序可见ExcelBook = ExcelApp.Workbooks.AddIf ExcelBook Is Nothing Then Exit SubExcelSheet=ExcelBook.WorkSheets.Addif ExcelSheet Is Nothing Then Exit SubWith ExcelSheet.range(A1).value=Excel Test 对表格A1进行赋值.range(A2 :E4).Merge 表格A2~E4合并.range(F2).Font.Name=宋体 表格F2字体设置End WithExcelSheet.SaveAs “C:\ExcelAppTest.XLSExcelSheet=NothingExcelBook=NothingExcelApp=NothingEnd SubVisual Basic编程的七个优良习惯1、替换+. 　　在很多人的编程语言中，用“+”来连接字符串，这样容易导致歧义。良好的习惯是用“”来连接字符串. 　　不正确: 　　dim sMessage as string 　　sMessage=1+2 　　正确: 　　dim sMessage as string 　　sMessage=1 2 　　注意:的后面有个空格. 　　2.变量命名大小写,语句错落有秩　　下面大家比较一下以下两段代码: 　　读懂难度很大的代码: 　　dim SNAME as string 　　dim NTURN as integer 　　if NTURN=0 then 　　if SNAME=sancy then 　　end if 　　Do while until NTURN=4 　　NTRUN=NTURN+1 　　Loop 　　End if 　　容易读懂的代码: 　　dim sName as string 　　dim nTurn as integer 　　if nTurn=0 then 　　if sName=sancy then 　　end if 　　Do while until nTurn=4 　　　　nTurn=nTurn+1 　　　Loop 　　End if 　　3.在简单的选择条件情况下,使用IIf()函数　　繁琐的代码: 　　if nNum=0 then 　　　sName=sancy 　　else　　　　sName=Xu 　　end if 　　简单的代码: 　　sName=IIF(nNum=0,sancy,Xu)4.尽量使用Debug.print进行调试　　在很多初学者的调试中,用MsgBox来跟踪变量值.其实用Debug.print不仅可以达到同样的功效,而且在程序最后编译过程中,会被忽略.而MsgBox必须手动注释或删除. 　　不正确: 　　MsgBoxnName　　正确: 　　Debug.pringnName　5.在重复对某一对象的属性进行修改时,尽量使用with....end with 　　6.MsgBox中尽量使用图标　　一般来说　　vbInformation用来提示确认或成功操作的消息　　vbExclamation用来提示警告的消息　　vbCritical用来提示危机情况的消息　　vbQuestion用来提示询问的消息7.在可能的情况下使用枚举　　枚举的格式为　　public enum　　... 　　end enum　　好处是加快编译速度Microsoft Visual Studio 2010(VB.net) 学习笔记一、数据类型的转换 ASC II字符串转换为Byte数组：Encoding.ASCII.GetBytes(Str)Byte数组转换为ASC II字符串：Encoding