锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net写excel的简单介绍

excelIT技术

请高手指教vb.net连接Excel该怎么写在项目中添加Excel类库vb.net写excel的引用vb.net写excel，然后在VB中定义Excel 的Applicationvb.net写excel，WorkBook和Worksheet
【vb.net写excel的简单介绍】然后对Worksheet中的Range进行操作vb.net写excel，不用像Access那样建立ADO什么的连接 。
比如
Dim exlApp as Excel.Application = Createobject("Excel.Application")
if exlApp is Nothing then exit sub
dim xBook as Excel.WorkBook=exlApp.Workbook.add
if xBook is Nothing then exit sub
dim xSheet as excel.WorkSheet =xbook.WorkSheet.Add
if xSheet is Nothing Then exit sub
with xSheet
.Range("A1").value="https://www.04ip.com/post/Excel Application Test"
.Range("B1"":D2").Merge
.Range("B1"":D2").Value="https://www.04ip.com/post/合并表格内容"
end withvb.net写excel！
VB.net（VS2010）读写Excel2010你可以使用
Private Sub Form_Load()
Dim a As Object
Dim b As Object
Dim c As Object
Set a = GetObject(, "Excel.Application")
Set b = a.WorkBooks.open(Path"\工作簿1.xlsx")
a.Visible = False
Set c = b.worksheets(1)

End Sub
要引用：microsoft activex data objects 2.5 library
Private Sub Form_Load()
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.Open "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=""DSN=Excel Files;DBQ="App.Path"\Book1.xlsx;DriverId=1046;FIL=excel 8.0"""
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "select * from [sheet1$]", cnn
Set Me.MSHFlexGrid1.DataSource = rs
End Sub
求程序：vb.net读取excel，插入access ， 然后查询，再写入另一excel你可以从数据库中读出该字段vb.net写excel的记录vb.net写excel，也可以把datagridview中该字段vb.net写excel的信息放到textbox中啊vb.net写excel，只要判断是第几行，第几列就可以了
vb.net中 导出excel表格代码怎么写private void ExportExcelFromDataGrid
( string filename , System.Web.UI.WebControls.DataGrid ToExcelGrid )
...{
Response.Clear();
Response.Buffer=true;
Response.Charset="utf-8";
Response.AppendHeader("Content-Disposition","attachment;filename=" Server.UrlEncode ( filename ) );
Response.ContentEncoding=System.Text.Encoding.Default;//设置输出流为简体中文
Response.ContentType="application/ms-excel";//设置输出文件类型为excel文件 。
this.EnableViewState=false;
System.Globalization.CultureInfomyCItrad=
newSystem.Globalization.CultureInfo("ZH-CN",true);
System.IO.StringWriteroStringWriter=newSystem.IO.StringWriter(myCItrad);
System.Web.UI.HtmlTextWriteroHtmlTextWriter=
newSystem.Web.UI.HtmlTextWriter(oStringWriter);
ToExcelGrid.RenderControl(oHtmlTextWriter);
Response.Write(oStringWriter.ToString());
Response.End();
}
private void Button4_Click(object sender, System.EventArgs e)
...{
this.Panel1.Visible = false;
string filename = "内训师.xls";
this.DataGrid1.Columns[6].Visible = true;
this.DataGrid1.Columns[7].Visible = true;
this.DataGrid1.Columns[this.DataGrid1.Columns.Count-1].Visible = false;// *
this.DataGrid1.Columns[this.DataGrid1.Columns.Count-2].Visible = false;// *
this.DataGrid1.AllowSorting = false;// *
this.DataGrid1.AllowPaging = false;
this.DataGrid1.SelectedIndex = -1;// *
this.BindGrid();
this.ExportExcelFromDataGrid ( filename , this.DataGrid1 );
}
}
原理是利用DataGrid（其实是其父类Control）的RenderControl方法输出 ， 整个DataGrid的外观时，将这些HTML代码写入到缓冲区，同时设置一下 ContentType，让Excel自己的自动纠错功能将这个输出存为一个Excel文件 。
很多网上的朋友使用了以上这种可粘贴性强的代码，发现不好用，反映的错误类似：
“LinkButton必须放在一个具有runat=server的标签的Form”之类的话 ， 而更多的网友说：
问题很明显，因为DataGrid没有放在runat=server 的Form里面，加上就可以了 。
我认为，这种回答是很不准确的，理由如下：
通常使用这种代码的人他/她的DataGrid，最起码已经能用了 ， 所以必定放在那个具有runat=server 的form标签里了 。报错是LinkButton，而不是DataGrid ， 很多细心的朋友很可能会说，我一直在用DataGrid，LinkButton在哪里来的 。其实真正的问题是，上面的代码没有加了 // * 的那几行代码引起的 。
当然如果你的DataGrid，没有排序，没有使用那种按钮列的话 ， 是不会出问题的 。
言归正传，LinkButtion其实是你将DataGrid设为可排序时候，的表头包含的，所以我要将DataGrid的排序设为False 。
同样得到上面的其实，那些按钮列 ， 什么"编辑"、“删除”等等这些，也是用了LinkButton，把他设为不可见就是了 。
其实说得再明白一点就是，将有可能产生LinkButton，或其他控件的东西都不让它输出就是了
vb.net dataGridView中的数据导出为excel表2010-03-01 15:03在form1窗体里添加一个dataGridView1（根据自己是使用情况要给他命名，符合命名规范哟 。）在添加一个Button1（命名） 。记着，dataGridView的属性里有一个allowUsersToAddRows，要设置成FALSE 。否则会发生一个错误 ， 当然错误是什么你自己试一下就ok了 。
还有一点要注意：因为你要用到excel表 ， 所以要首先在项目里添加引用哟：项目（project）-添加引用（add reference）-Microsoft .Office.Interop.Excel
Button1的代码：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'要先添加引用才能用到 Microsoft.Office.Interop.Excel.Application()
Dim MyExcel As New Microsoft.Office.Interop.Excel.Application()
MyExcel.Application.Workbooks.Add(True)
MyExcel.Visible = True
'去除dataGridView1的编号列（这里也可以不要）
Dim m As Integer
For m = 0 To DataGridView1.ColumnCount - 1
MyExcel.Cells(1, m1) = Me.DataGridView1.Columns(m).HeaderText
Next m
'往excel表里添加数据
Dim i As Integer
For i = 0 To DataGridView1.RowCount - 1
Dim j As Integer
For j = 0 To DataGridView1.ColumnCount - 1
If Me.DataGridView1(j, i).Value Is System.DBNull.Value Then
MyExcel.Cells(i2, j1) = ""
Else
MyExcel.Cells(i2, j1) = DataGridView1(j, i).Value.ToString
End If
Next j
Next i
End Sub
VB.net 创建EXCEL的问题项目——添加引用——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个工作表vb.net写excel的控制句柄
MsgBox("EXCEL档案创建完毕vb.net写excel！")
Xlssheet.Cells(1, 1) = "这是一个创建EXCELvb.net写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
使用VS 2015软件利用VB.NET编程操作excel 怎么样像Excel VBA那样将区域单元格直接读入数组？'首先通过菜单[项目] -- [添加引用]vb.net写excel，选择[COM]选项卡，选择“Microsoft Excel XX.0 Object Library”，[确定] 。
添加一个按钮：
试试下面的代码：注意版本；先建立以个EXCEL文件保存到c:\下面，我的计算机是安装OFFICE 2010 。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim AppXls As Microsoft.Office.Interop.Excel.Application'声明Excel对象
Dim AppWokBook As Microsoft.Office.Interop.Excel.Workbook'声明工作簿对象
Dim AppSheet As New Microsoft.Office.Interop.Excel.Worksheet'声明工作表对象
AppXls = New Microsoft.Office.Interop.Excel.Application'实例化Excel对象
AppXls.Workbooks.Open("C:\工作簿1.xlsx")'打开已经存在的EXCEL文件
AppXls.Visible = False'使Excel不可见
'AppWokBook = New Microsoft.Office.Interop.Excel.Workbook'实例化工作簿对象
'AppSheet = New Microsoft.Office.Interop.Excel.Worksheet'实例化工作表对象
AppWokBook = AppXls.Workbooks(1)'AppWokBook对象指向工作簿"C:\学生成绩.xls"
AppSheet = AppWokBook.Sheets("Sheet1")'AppSheet对象指向AppWokBook对象中的表“Sheet1”，即："C:\学生成绩.xls"中的表“Sheet1”
'下面举一些例子：
'1、如果不声明工作表对象 AppSheet ，那么应用AppWokBook对象中的表“Sheet1”的语句就是：AppWokBook.Sheets("Sheet1")
'2、如果不声明工作簿对象 AppWokBook ， 那么应用"C:\学生成绩.xls"中的表“Sheet1”的语句就是：AppXls.Workbooks("C:\学生成绩.xls").Sheets("Sheet1")
'要读取数据表"Sheet1"中的单元格“A1”的值，到变量S1里
Dim S1 As String
'方法一
S1 = AppXls.Workbooks(1).Sheets("Sheet1").Range("A1").Value
MsgBox(S1)
'方法二
S1 = AppWokBook.Sheets("Sheet1").Range("A1").Value
MsgBox(S1)
'方法三
S1 = AppSheet.Range("A1").Value
MsgBox(S1)
'把数据写入到单元格“H2”，就是第2行第8个单元格
'方法一
AppXls.Workbooks(1).Sheets("Sheet1").Cells(2, 8).Value = "https://www.04ip.com/post/您好！"
S1 = AppXls.Workbooks(1).Sheets("Sheet1").Cells(2, 8).Value'为vb.net写excel了验证，读取并显示它
MsgBox(S1)
'方法二
AppWokBook.Sheets("Sheet1").Cells(2, 8).Value = "https://www.04ip.com/post/vb.net写excel你们好！"
S1 = AppWokBook.Sheets("Sheet1").Cells(2, 8).Value'为了验证，读取并显示它
MsgBox(S1)
'方法二
AppSheet.Cells(2, 8).Value = "https://www.04ip.com/post/大家好！"
S1 = AppSheet.Cells(2, 8).Value'为了验证，读取并显示它
MsgBox(S1)
'使用完毕必须关闭EXCEL，并退出
AppXls.ActiveWorkbook.Close(SaveChanges:=True)
AppXls.Quit()
'完成此程序，打开EXCEL检查，可以看到在“Sheet1”表的单元格“H2”里是文本“大家好！”
End Sub
End Class
vb.net写excel的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容，更多关于、vb.net写excel的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：mysql 查询当前连接数 mysql查看当前连接的数据库

    下一篇：如何成功攻陷游戏服务器？ 怎么攻克游戏服务器