锐客网

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

vb.net电子表格 vb6表格

IT技术excel

vb.net在excel添加新的一页1、首先打开excel工作表格 。
2、其次用鼠标右键点击“标签栏” ， 选择“插入” 。
3、最后选择里面“工作表”点击即可完成添加 。
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表格我的是2007版本，其它类似
1.在工程中引用Microsoft Excel 12.0 Object Library
2、在通用对象的声明过程中定义EXCEL对象：
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
3、在程序中操作VB.NET EXCEL常用命令：
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值
xlSheet.PrintOut '打印工作表
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏
还有很多 ， 这个要自己慢慢摸索
vb.net如何调用打开外部excel文档第一步，新建项目 。
1
打开vb.net，也就是打开Microsoft visual studio 2010 ， 第一次使用的时候设置为basic语言就行 。新建项目--打开excel 。
2
新建成功 。
END
第二步，添加引用 。
1
“项目”--“添加引用” 。
2
添加Microsoft Excel 14.0 Object Library 。
END
第三步，添加打开文件对话框工具 。
1
工具箱--对话框--openfiledialog 。
2
添加成功 。
END
第四步，添加命令按钮控件 。
1
工具箱--公共控件--button 。
在控件上右击鼠标，进入属性设置 。
2
text属性设置为“打开excel” 。
3
name属性也设置为“打开excel” 。
END
第五步，编写程序 。
1
鼠标双击命令按钮，进入编程界面，编写程序 。
END
【vb.net电子表格 vb6表格】第六步，运行程序 。
1
鼠标单击启动调式图标，程序开始运行 。
2
单击打开excel命令按钮，调用打开文件对话框，选择自己要打开的excel文件 。
END
第七步 ， 保存程序 。
第一次程序运行完，关闭程序，出现关闭项目提示，选择保存 。
2
选好自己要保存的位置 。
vb.net如何与excel建立连接，并从里面查询并读取数据？1.新建一张表格，在表格中导入学生的成绩表，如图所示，将建立一个按钮，通过它来实现查找 。
2.单击菜单栏中的“开发工具”——插入——表单控件——按钮，在出现的十字箭头上拖住画出一个按钮，如图所示 。
3.在弹出的查找红对话框中选择“录制”，在弹出的“录制新宏”对话框中，修改宏名称为“查找”，单击确定 。
4. 单击“开发工具”——查看代码，打开VBA编辑器 ， 如图所示 。
5.现在输入代码：
Sub 查找()
Dim jieguo As String, p As String, q As String
Dim c As Range
jieguo = Application.InputBox(prompt:="请输入要查找的值：", Title:="查找", Type:=2)
If jieguo = "False" Or jieguo = "" Then Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With ActiveSheet.Cells
Set c = .Find(jieguo, , , xlWhole, xlByColumns, xlNext, False)
If Not c Is Nothing Then
p = c.Address
Do
c.Interior.ColorIndex = 4
q = qc.AddressvbCrLf
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Addressp
End If
End With
MsgBox "查找数据在以下单元格中："vbCrLfvbCrLf _
q, vbInformationvbOKOnly, "查找结果"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
6.现在回到EXCEL表格，右击按钮，选择“编辑文字” ， 修改按钮名称为“查找按钮” 。
7. 现在单击查找按钮，出现对话框“请输入要查找的值”，在方框中输入“男”，单击确定，出现对话框“查找数据在一下单元格中”，单击确定 ， 对应单元格就变成了亮色 。
vb.net电子表格的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb6表格、vb.net电子表格的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：redisset不重复，redis set去重

    下一篇：我要唱歌幼儿益智启蒙游戏，我要唱歌的歌