Question

VB.net 创建EXCEL的问题

我想做这么一个程序：

创建一个EXCEL文件 ，并在里面某位置写入数据（整数）

需要有选择文件保存路径这样的系统对话框，诸位大侠能给个代码么？最好有注释。

（我试过直接定义数据类型为Excel.Application，但是根本没有该类型，这是怎么回事？）

Answer 1

项目——添加引用——com——microsoft excel 11.0 object library

Dim Xls As Excel.Application = New Excel.Application '定义excel应用程序
Dim Xlsbook As Excel.Workbook '定义工作簿
Dim Xlssheet As Excel.Worksheet '定义工作表

Xls.Visible = True '显示excel 程序
Xlsbook = Xls.Application.Workbooks.Add '添加新工作簿 或exbook=exapp.workbooks.open("路径\文件名")'打开已存在工作薄
Xlssheet = Xlsbook.Sheets(1) '第1个工作表的控制句柄

MsgBox("EXCEL档案创建完毕！")
Xlssheet.Cells(1, 1) = "这是一个创建EXCEL的示例"
Dim Sdlg As SaveFileDialog = New SaveFileDialog '定义一个保存对话框
Sdlg.FileName = "*.xls" '保存对话框的默认文件名
Sdlg.Filter = "EXCEL档案(*.Xls)|*.Xls" '过滤器设置
If Sdlg.ShowDialog = Windows.Forms.DialogResult.OK Then '如果保存对话框的确认按钮被按下
Xlsbook.SaveAs(Sdlg.FileName) '保存文件
End If
Xlssheet = Nothing '释放资源
Xlsbook.Close() '关闭工作簿
Xlsbook = Nothing '释放资源
Xls.Quit() '退出excel应用程序
Xls = Nothing

Answer 2

你先引用Microsoft Excel 10.0 Object Library
再添加控减引用Microsoft Common Dialog Box

窗体上加一个Button ,一个Common Dialog

Private Sub Command1_Click()
Dim oExcel As New Excel.Application

Dim oWorkBook As Workbook
Dim oWorkSheet As Worksheet
Set oWorkBook = oExcel.Workbooks.Add()

Set oWorkSheet = oWorkBook.Worksheets(1)

With oWorkSheet
.Cells(1, 1) = "dog"
.Cells(1, 2) = "cat"
.Cells(1, 3) = "rabbit"
End With

'save
CommonDialog1.Filter = "*.xls"
CommonDialog1.ShowSave

If CommonDialog1.FileName <> "" Then
oWorkBook.SaveAs CommonDialog1.FileName
End If
End Sub

Answer 3

VB.NET创建Excel: 

1. '创建一个workbook实例

2. Dim wb As New Workbook()

3. 
   

4. '清除默认的工作表

5. wb.Worksheets.Clear()

6. 
   

7. '添加一个工作表并指定表名

8. Dim sheet As Worksheet = wb.Worksheets.Add("职员表")

9. 
   

10. '横向合并A1到G1的单元格

11. sheet.Range("A1:G1").Merge()

12. 
    

13. '写入数据到A1单元格，设置文字格式及对齐方式

14. sheet.Range("A1").Value = "环宇汽车公司员工基本情况登记表"

15. sheet.Range("A1").HorizontalAlignment = HorizontalAlignType.Center

16. sheet.Range("A1").VerticalAlignment = VerticalAlignType.Center

17. sheet.Range("A1").Style.Font.IsBold = True

18. sheet.Range("A1").Style.Font.Size = 13F

19. 
    

20. '设置第一行行高

21. sheet.Rows(0).RowHeight = 30F

22. 
    

23. '创建一个DataTable

24. Dim dt As New DataTable()

25. dt.Columns.Add("姓名")

26. dt.Columns.Add("性别")

27. dt.Columns.Add("出生日期")

28. dt.Columns.Add("学历")

29. dt.Columns.Add("联系电话")

30. dt.Columns.Add("职务")

31. dt.Columns.Add("工号")

32. dt.Rows.Add("王伟", "男", "1990年2月10日", "本科", "13524756854", "销售", "0054")

33. dt.Rows.Add("李宁", "男", "1985年6月8日", "大专", "13259863247", "销售", "0055")

34. dt.Rows.Add("邓家佳", "女", "1989年11月25日", "本科", "13601540352", "销售", "0029")

35. dt.Rows.Add("杜平安", "男", "1978年4月16日", "中专", "13352014060", "保安", "0036")

36. dt.Rows.Add("唐静", "女", "1980年1月21日", "本科", "13635401489", "店长", "0010")

37. 
    

38. '将DataTable数据写入工作表

39. sheet.InsertDataTable(dt, True, 2, 1, True)

40. 
    

41. '设置该区域行高

42. sheet.Range("A2:G7").RowHeight = 15F

43. 
    

44. '设置第三列及第五列列宽

45. sheet.Range("A2:G7").Columns(2).ColumnWidth = 15F

46. sheet.Range("A2:G7").Columns(4).ColumnWidth = 15F

47. 
    

48. '设置网格线样式及颜色

49. sheet.Range("A2:G7").BorderAround(LineStyleType.Medium)

50. sheet.Range("A2:G7").BorderInside(LineStyleType.Thin)

51. sheet.Range("A2:G2").BorderAround(LineStyleType.Medium)

52. sheet.Range("A2:G7").Borders.KnownColor = ExcelColors.Black

53. 
    

54. '保存为.xlsx文件

55. wb.SaveToFile("创建Excel.xlsx", FileFormat.Version2013)

出自：网页链接