vb点虐 写excel的简单介绍

VB点虐 （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点虐 创建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个工作表的控制句柄

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

请高手指教vb点虐 连接Excel该怎么写

在项目中添加Excel类库的引用，然后在VB中定义纯余芹Excel 的Application，WorkBook和Worksheet

然后对Worksheet中的Range进行操作，不用像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 with！