vb2008 写入excel 怎么把excel设置成共享
vb2008 写入excel：
VB2008写入Excel的方法：
1、首先，在VB2008中创建一个新的Windows应用程序项目，然后在工具箱中添加Microsoft Excel 12.0 Object Library控件（或者更高版本）。
2、在窗体上添加一个按钮控件，双击按钮，在窗体中添加以下代码：
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
xlApp = New Excel.Application '实例化Excel应用程序
xlBook = xlApp.Workbooks.Add '创建一个Excel Workbook
xlSheet = xlBook.Worksheets(1) '获取第一个工作表
xlSheet.Cells(1, 1).Value = "学号" '在第一行第一列写入“学号”
xlSheet.Cells(1, 2).Value = "姓名" '在第一行第二列写入“姓名”
xlSheet.Cells(2, 1).Value = "123456" '在第二行第一列写入“123456”
xlSheet.Cells(2, 2).Value = "小明" '在第二行第二列写入“小明”
xlBook.SaveAs "C:\example.xls" '将Excel文件保存到C盘
xlBook.Close '关闭Excel Workbook
xlApp.Quit '退出Excel应用程序
3、运行程序，点击按钮，即可在C盘生成一个名为example.xls的Excel文件，打开它，就可以看到写入的信息。
怎么把excel设置成共享：
1、打开Excel文件，在文件菜单中点击“共享”，出现“共享工作簿”的对话框；
2、在对话框中，选择“允许任何人通过网络访问此工作簿”；
3、勾选上“允许他人编辑此工作簿”，点击确定；
4、此时Excel文件就设置好了共享，其他人就可以访问该工作簿；
5、如果需要设置密码保护，可以勾选上“设置密码”，然后输入新密码，确定密码，点击确定按钮，即可完成共享设置。
