vb.net写excel的简单介绍

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

请高手指教vb.net连接Excel该怎么写

在项目中添加Excel类库vb.net写excel的引用vb.net写excel，然后在VB中定义Excel 的Applicationvb.net写excel，WorkBook和Worksheet

然后对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="Excel Application Test"

.Range("B1" ":D2").Merge

.Range("B1" ":D2").Value="合并表格内容"

end withvb.net写excel！

相关问答

Q1: 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

Q2: 求程序：vb.net读取excel，插入access，然后查询，再写入另一excel

你可以从数据库中读出该字段vb.net写excel的记录vb.net写excel，也可以把datagridview中该字段vb.net写excel的信息放到textbox中啊vb.net写excel，只要判断是第几行，第几列就可以了

Q3: 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.CultureInfo myCItrad =

new System.Globalization.CultureInfo("ZH-CN",true);

System.IO.StringWriter oStringWriter = new System.IO.StringWriter(myCItrad);

System.Web.UI.HtmlTextWriter oHtmlTextWriter =

new System.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, m + 1) = 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(i + 2, j + 1) = ""

Else

MyExcel.Cells(i + 2, j + 1) = DataGridView1(j, i).Value.ToString

End If

Next j

Next i

End Sub

Q4: 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

Q5: 使用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 = "您好！"

S1 = AppXls.Workbooks(1).Sheets("Sheet1").Cells(2, 8).Value '为vb.net写excel了验证，读取并显示它

MsgBox(S1)

'方法二

AppWokBook.Sheets("Sheet1").Cells(2, 8).Value = "vb.net写excel你们好！"

S1 = AppWokBook.Sheets("Sheet1").Cells(2, 8).Value '为了验证，读取并显示它

MsgBox(S1)

'方法二

AppSheet.Cells(2, 8).Value = "大家好！"

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的信息别忘了在本站进行查找喔。

正文

请高手指教vb.net连接Excel该怎么写

相关问答

相关阅读

包含Excel导入mysql字段中文的词条

Excel怎么关闭设计模式，excel设置选项怎么取消

sqlserver中declare，Excel导入SQLserver

怎么将Excel共享编辑，excel表如何共享编辑

Excel如何选择换行，excel怎么选择想要的行

Excel三好资格怎么搞，三好申报登记表怎么填写

Excel里怎么写一段话，excel自动生成一段话

在Excel中怎么隐藏公式，在excel中怎么隐藏公式内容

目录[+]