'从数据集里导出数据
Dim sql As String
sql = "SELECT FIRST 20 * FROM student"
claimset = sqlfun.Dataset(sql)
Dim xlApp As New Excel.Application()
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim rowIndex, colIndex As Integer
rowIndex = 1
colIndex = 0
xlBook = xlApp.Workbooks().Add
xlSheet = CType(xlBook.Worksheets("sheet1"), Excel.Worksheet)
Dim Table As New DataSet()
Table = claimset
'将所得到的表的列名,赋值给单元格
Dim Col As DataColumn
Dim Row As DataRow
For Each Col In claimset.Tables(0).Columns
colIndex = colIndex + 1
xlApp.Cells(1, colIndex) = Col.ColumnName
Next
'得到的表所有行,赋值给单元格
For Each Row In claimset.Tables(0).Rows
rowIndex = rowIndex + 1
colIndex = 0
For Each Col In claimset.Tables(0).Columns
colIndex = colIndex + 1
xlApp.Cells(rowIndex, colIndex) = Row(Col.ColumnName)
Next
Next
'从gridview导出数据
Response.ClearContent()
Response.Buffer = True
Response.Charset = "GB2312"
Response.AddHeader("content-disposition", "attachment; filename=MyExcelFile.xls") Response.ContentType = "application/excel"
Dim sw As New StringWriter()
Dim htw As New HtmlTextWriter(sw)
GridView1.RenderControl(htw)
Response.Write(sw.ToString())
Response.End()
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) '处理'GridView' 必需置于有 runat=server 的表单标记之中
End Sub
取得excel文件所有内容： 'add microsoft ado frist. Private Sub Command2_Click() Dim adoConnection As New ADODB.Connection Dim adoRecordset As New ADODB.Recordset CommonDialog1.ShowOpen 'OLE DB + ODBC Driver 方式: 'adoConnection.Open "Data Provider=MSDASQL.1;driver=Microsoft Excel Driver (*.xls);DBQ=e:\temp\book2.xls" 'Microsoft.Jet.OLEDB.4.0 方式,(建?) adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & CommonDialog1.FileName & ";Extended Properties='Excel 8.0;HDR=Yes'" adoRecordset.Open "select * from [sheet1$]", adoConnection, adOpenKeyset, adLockOptimistic Debug.Print adoRecordset.RecordCount Dim i As Integer Do Until adoRecordset.EOF For i = 0 To adoRecordset.Fields.Count - 1 Debug.Print adoRecordset.Fields.Item(0).Name Debug.Print adoRecordset.Fields.Item(0).Value Next i adoRecordset.MoveNext Loop End Sub 但还不知道如何取得sheet名，不好意思，那位老鸟知道请告知，谢谢 sheet名用Excel.Application对象 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Set xlApp = New Excel.Application Set xlBook = xlApp.Workbooks.Open("C;\123.xls")) For i = 1 To intSheetSum strTemp=xlBook.Worksheets(i).name Next i Dim xlsconn As New ADODB.Connection
Visual Basic调用Excel之技巧吴声松 (湖北省水利水电勘测设计院地质大队湖北 430070) Visual Basic(以下简称VB)是一套可视化、面向对象、事件驱动方式的结构化程序设计语言，已经成为许多程序设计者甚至专业程序员用来开发WINDOWS应用程序的首选开发工具。但用过VB的程序设计人员都知道，要想用VB输出复杂的表格来，是十分困难的。能不能用VB调用EXCEL呢？Active技术标准为我们解决了这个问题。最近笔者为单位开发“土工试验数据整理”的某个模块时，涉及到复杂数据表格的输出问题，经过笔者的摸索，用VB调用EXCEL，取得了很好的效果。本文从编程实践的角度对使用VB控制EXCEL的技术作简要说明。 1 EXCEL的对象模型 如果一个应用程序支持自动化技术，那么其它的应用就可以通过其暴露的对象，对它进行控制，控制程序称为客户机，而被控制的一方就称为服务器，被控制的对象就是Active对象。VB正是通过EXCEL显露的各级对象来控制EXCEL工作的。每个对象都有各自的方法和属性，通过方法可以实现对对象的控制，而属性则可以改变对象的各种状态。 理解EXCEL的对象模型是对其编程的基础。EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素，这些对象元素就是VB可以操纵的。在EXCEL对象的层次结构中，最顶层是Application对象，是Excel本身。从该对象开始往下依次是： .workbooks对象集，是Application对象的下层，其指的是Excel的工作簿文件。 .worksheets对象集，是Workbooks对象集的下层，它表示的是Excel 的一个工作表。 .Cells和Range对象，它们是worksheets对象的下层，它则指向Excel 工作表中的一个或多个单元格。 以上介绍的四个对象是Excel中最重要也是用得最多的对象，而且从上面的介绍中也不难看出，要控制Excel中的某个具体对象，如某个工作簿中某一表格中的单元格，就必须从Excel层次结构对象的最上层即Application对象开始遍历。 2 Excel对象的使用
Private Sub Command1_Click() Dim 文件名称As String 文件名称= "C:\Documents and Settings\Administrator\桌面\Hellod.Doc " Dim uObjDoc As Word.Document Set uObjWord = New Word.Application uObjWord.Documents.Add "Normal", IIf(iMode = 1, True, False) '1、根据"Normal"模板添加一个新的文档[1-创建一个模板，0-创建一个文件] uObjWord.Documents.Save NoPrompt:=True, OriginalFormat:=wdWordDocument '2、设置Word对象为自动保存模式 uObjWord.ActiveDocument.SaveAs 文件名称'3、保存Word文档到文件名称 Set uObjDoc = Nothing End Sub EXCEL用法 Public Function ExporToExcel(strOpen As String) '********************************************************* '* 名称：ExporToExcel '* 功能：导出数据到EXCEL '* 用法：ExporToExcel(sql查询字符串) '********************************************************* Dim Rs_Data As New ADODB.Recordset Dim Irowcount As Integer Dim Icolcount As Integer Dim xlApp As New Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim xlQuery As Excel.QueryTable With Rs_Data If .State = adStateOpen Then .Close End If .ActiveConnection = Cn .CursorLocation = adUseClient .CursorType = adOpenStatic .LockType = adLockReadOnly .Source = strOpen .Open End With
用VB操作excel方法汇总 Private Sub Command3_Click() Dim i As Long Dim j As Long Dim objExl As Excel.Application '声明对象变量 Me.MousePointer = 11 '改变鼠标样式 Set objExl = New Excel.Application '初始化对象变量 objExl.SheetsInNewWorkbook = 1 '将新建的工作薄数量设为1 objExl.Workbooks.Add '增加一个工作薄 objExl.Sheets(objExl.Sheets.Count).Name = "book1" '修改工作薄名称 objExl.Sheets.Add , objExl.Sheets("book1") '增加第二个工作薄在第一个之后 objExl.Sheets(objExl.Sheets.Count).Name = "book2" objExl.Sheets.Add , objExl.Sheets("book2") '增加第三个工作薄在第二个之后 objExl.Sheets(objExl.Sheets.Count).Name = "book3" objExl.Sheets("book1").Select '选中工作薄
一、https://www.doczj.com/doc/4f9238196.html,中导出Excel的方法： 在 https://www.doczj.com/doc/4f9238196.html,中导出Excel有两种方法，一种是将导出的文件存放在服务器某个 文件夹下面，然后将文件地址输出在浏览器上；一种是将文件直接将文件输出流 写给浏览器。在Response输出时，t分隔的数据，导出Excel时，等价于分列，n等价于换行。 1、将整个 html全部输出Excel 此法将html中所有的内容，如按钮，表格，图片等全部输出到Excel中。 Response.Clear(); Response.Buffer= true; Response.AppendHeader("Content-Disposition","attachment;filename=" +DateTime.Now.ToString("yyyyMMdd")+".xls"); Response.ContentEncoding=System.Text.Encoding.UTF8; Response.ContentType = "application/vnd.ms-excel"; this.EnableViewState = false; 这里我们利用了ContentType属性，它默认的属性为text/html，这时将输出为 超文本，即我们常见的网页格式到客户端，如果改为ms-excel将将输出excel 格式，也就是说以电子表格的格式输出到客户端，这时浏览器将提示你下载保存。ContentType的属性还包括： image/JPEG;text/HTML;image/GIF;vnd.ms-excel/msword 。同理，我们也可以 输出(导出)图片、word文档等。下面的方法，也均用了这个属性。 2、将DataGrid控件中的数据导出Excel 上述方法虽然实现了导出的功能，但同时把按钮、分页框等html中的所有输出 信息导了进去。而我们一般要导出的是数据，DataGrid控件上的数据。System.Web.UI.Control ctl=this.DataGrid1; //DataGrid1是你在窗体中拖放的控件 HttpContext.Current.Response.AppendHeader("Content-Disposition","atta chment;filename=Excel.xls"); HttpContext.Current.Response.Charset ="UTF-8"; HttpContext.Current.Response.ContentEncoding =System.Text.Encoding.Default; HttpContext.Current.Response.ContentType ="application/ms-excel"; ctl.Page.EnableViewState =false; System.IO.StringWriter tw = new System.IO.StringWriter() ; System.Web.UI.HtmlTextWriter hw = new System.Web.UI.HtmlTextWriter (tw); ctl.RenderControl(hw); HttpContext.Current.Response.Write(tw.ToString()); HttpContext.Current.Response.End(); 如果你的DataGrid用了分页，它导出的是当前页的信息，也就是它导出的是
Private Sub cmdSwatch_Click() Dim xls As excel.Application Dim xlbook As excel.Workbook 'On Error GoTo exlError Dim i As Integer If Dir(Text1.Text) <> "" Then '此目录下如有同名文件给出提示,并作相应处理 If MsgBox("文件已存在，是否覆盖！", vbYesNo + vbQuestion, "另存为工程造价文件") = vbNo Then Exit Sub Else Kill (Text1.Text) '删除文件 End If End If '************打开工作表*************** Set xls = New excel.Application xls.Visible = True Set xlbook = xls.Workbooks.Add '********************************* For i = 0 To 14 If Check2(i).Value = vbChecked Then Select Case i Case 8 ToExcelJDanJiaSum.ToExcelJDanJiaSum xlbook, xls Case 9 ToExcelADanJiaSum.ToExcelADanJiaSum xlbook, xls Case 10 ToExcelCailiao.ToExcelCailiao xlbook, xls
Case 11 ToExcelTsf.ToExcelTsf xlbook, xls Case 12 ToExcelZgcl.ToExcelZgcl xlbook, xls End Select End If Next For i = 0 To 6 If Check3(i).Value = vbChecked Then Select Case i Case 0 ToExcelMan.ToExcelMan xlbook, xls Case 1 ToExcelFSD_CL.ToExcelFSD_CL xlbook, xls Case 2 ToExcelHNT.ToExcelHNT xlbook, xls Case 3 ToExcelZsf.ToExcelZsf xlbook, xls Case 4 ToExcelJingChang.ToExcelJingChang xlbook, xls Case 5 ToExcelJDanJia.ToExcelJDanJia xlbook, xls Case 6 ToExcelADanJia.ToExcelADanJia xlbook, xls End Select End If Next xlbook.SaveAs Text1.Text '保存EXCEL文件
EXCEL 编程(VBA) Excel 最重要的应用就是利用公式进行计算。无论输入是纯粹的数字运算，还是引用其他单元格计算，只要在一个单元格中输入公式，就能得到结果。这个直接显示结果的设计对于绝大多数场合来说都是适用的，但某些情况下就不那么让人满意了。比如说在做工程施工的预结算编写，使用Excel，既要写出工程量的计算式，也要看到它的结果，于是这样相同的公式在Excel里面要填两次，一次在文本格式的单元格中输入公式，一次是在数据格式的单元格中输入公式让Excel计算结果。如何既能看到公式又能看到结果呢？这个问题笔者认为可以从两个方面考虑：一种方法是所谓“已知结果，显示公式”，先在数据格式单元格中输入公式让Excel计算结果，然后在相邻的单元格中看到公式；另一种方法所谓“已知公式，显示结果”，就是先在一个文本格式的单元格中输入公式，在相邻的单元格中看到结果。 ★ 已知结果，显示公式 假设C列为通过公式计算得到的结果（假设C1为“=A1+B1”，或者直接是数字运算“=2+3”)，而相邻的D列是你需要显示公式的地方（即D1应该显示为“=A1+B1”或者“=2+3”）。 1. 打开“工具”菜单选择“选项”命令，出现“选项”对话框。 2. 在“常规”选项卡中，选中“R1C1引用方式”选项。 3. 定义名称，将“引用位置”由“=GET.CELL(6,Sheet1!RC[-1])”即可。这里的RC[-1]含义是如果在当前单元格的同行前一列单元格中有公式结果，则在当前单元格中得到公式内容，即在含公式结果单元格的同行后一列单元格显示公式内容；如果将RC[-1]改为RC[1]，则在公式结果的同行前一列单元格显示公式内容。 4. 如果“引用位置”中含有“RC[-1]”，则在含公式结果单元格的同行后一列单元格中输入“=FormulaofResult”即可得到公式；如果“引用位置”中含有“RC[1]”，则在含公式结果单元格的同行前一列单元格中输入“=FormulaofResult”即可得到公式。 提示：如果想要在含公式结果单元格的同行后数第2列中显示公式内容，则需要把“引用位置”中的“RC －1 ”改为“RC －2 ”。 ★已知公式，显示结果 假设C列为输入的没有等号公式（假设C1为“A1+B1”)，而相邻的D列是你需要存放公式计算结果的地方（即D1显示A1和B1单元格相加的结果）。 1. 选中D1，然后打开“插入”菜单选择“名称”命令中的“定义”子命令，出现“定义名称”对话框。 2. 在“在当前工作表中的名称”输入栏中输入定义的名称“ResultofFomula”，在下方的“引用位置”编辑栏中输入“=EVALUATE(Sheet1!C1)”，单击[确认]按钮退出。 3. 在 D1中输入“=ResultofFomula”，然后选中按住右下角的填充柄向下拉动填充即可。 提示：EVALUATE 是Eexcel 4．0版的宏表函数，Excel 2000和Excel 2002中 还支持，但只可用于名称定义中。 4. 填充后要按[F9]进行重算，如果C列的公式有改动，也需要及时按[F9]进行
用VB操作excel方法 Private Sub Command3_Click() Dim i As Long Dim j As Long Dim objExl As Excel.Application'声明对象变量 Me.MousePointer=11'改变鼠标样式 Set objExl=New Excel.Application'初始化对象变量 objExl.SheetsInNewWorkbook=1'将新建的工作薄数量设为1 objExl.Workbooks.Add'增加一个工作薄 objExl.Sheets(objExl.Sheets.Count).Name="book1"'修改工作薄名称 objExl.Sheets.Add,objExl.Sheets("book1")'增加第二个工作薄在第一个之后 objExl.Sheets(objExl.Sheets.Count).Name="book2" objExl.Sheets.Add,objExl.Sheets("book2")'增加第三个工作薄在第二个之后 objExl.Sheets(objExl.Sheets.Count).Name="book3" objExl.Sheets("book1").Select'选中工作薄
'************************************************************************* '** '** VB将数据导出到EXCEL,没有安装EXCEL的一样也可以导出. '** '** 调用方式: s_Export2Excel(Ado.Recordset) 或s_Export2Excel(Rds.RecordSet) '** 支持Rds 与Ado 的记录导出 '** '************************************************************************* '得到所有数据类型,有些数据类型EXCEL不支持,已经替换掉 Public Function f_FieldType$(ByVal sType&) Dim iRe$ Select Case sType Case 2, 3, 20 iRe = "int " Case 5 iRe = "float " Case 6 iRe = "money " Case 131 iRe = "numeric " Case 4 iRe = "real " Case 128 iRe = "binary " Case 204 iRe = "varbinary " Case 11 iRe = "bit " Case 129, 130 iRe = "char " Case 17, 72, 131, 200, 202, 204 iRe = "varchar " Case 201, 203 iRe = "text " Case 7, 135 iRe = "datetime " Case 205 iRe = "image " Case 128 iRe = "timestamp " End Select f_FieldType = iRe
第11章VB与Excel的数据交换 Excel是目前非常流行的电子表格软件，很多人都习惯于在EXCEL中处理数据，并在Excel 中完成报表输出等功能，但Excel的数据处理功能相对较弱，而VB具有强大的数据处理功能，但报表输出功能相对较弱。本章以实例的形式介绍VB如何从Excel中获得数据，再将处理后的数据保存到Excel工作表中，并调用Excel中的VBA指令对排版，生成数据报表。 VB中Excel的启动与关闭 11.1.1 Excel对象库引用 在VB中调用Excel，首先需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel object library”（Excel版本不同，这个选项中的的版本号可能不一样）。引用Excel对象库后，对编写代码会带来很多便利。 11.1.2 Excel对象声明 EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素。编程过程中主要用到以下4个层次的对象。 1．Application对象，即Excel程序本身； 2．WorkBook对象，即Excel的工作簿文件对象； 3．WorkSheets对象，表示的是Excel的工作表对象集；例如：worksheets(1)表示第一个工作表。 4．Cells、Range、Rows、Columns对象，分别表示Excel工作表中的单元格对象集、区域对象、行对象集、列对象集。例如： Cells(3，5) 表示第3行第5列的那个单元格
Range("C5") 表示第3行第5列的那个单元格 Range("A1:C5") 表示从A1单元格到C5单元格的矩形区域 Rows(1) 表示第1行 Range("1:1") 表示第1行 Range("1:10") 表示第1到10行的区域 Columns(1) 表示第1列 Range("A:A") 表示第1列 Range("A:D") 表示从第A到D列 11.1.3 VB中Excel的启动与关闭 例11-1 新建立一个VB的工程，在窗体上添加2个命令按钮（Command1和Command2），2个按钮的Caption分别为“启动Excel”和“关闭Excel”，输入以下代码即可。 Dim xls As New '声明一个Excel应用程序对象 Dim xbook As New '声明一个Excel工作薄对象 Dim xsheet As New '声明一个Excel工作表象 Private Sub Command1_Click() Set xbook = '启动Excel，并将自动创建的工作薄赋给xbook Set xsheet = (1) '将第一个工作表赋给xsheet = True '显示Excel窗口，程序调试阶段显示该窗口非常重要End Sub Private Sub Command2_Click() Set xls = Nothing '释放对象变量
往链点点通共享资源，了解更多请登录https://www.doczj.com/doc/4f9238196.html, VB6.0 导出excel 方法源代码 方法一： 用Msflexgrid的Textmatrix属性取Msflexgrid中每一个单元格的内容，然后填到Excel表中，或者写成CSV格式 方法二： 直接把查询结果导出成Excel工作表 Public Sub Export(formname As Form, flexgridname As String) Dim xlApp As Object 'Excel.Application Dim xlBook As Object 'Excel.Workbook Dim xlSheet As Object 'Excel.Worksheet Screen.MousePointer = vbHourglass On Error GoTo Err_Proc Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) 'Begin to fill data to sheet Dim i As Long Dim j As Integer Dim k As Integer With formname.Controls(flexgridname) For i = 0 To .rows - 1 k = 0 For j = 0 To .Cols - 1 If .colwidth(j) > 20 Or .colwidth(j) < 0 Then k = k + 1 xlSheet.Cells(i + 1, k).Value = "'" & .TextMatrix(i, j) End If Next j Next i End With xlApp.Visible = True Screen.MousePointer = vbDefault Exit Sub Err_Proc: Screen.MousePointer = vbDefault MsgBox "请确认您的电脑已安装Excel！", vbExclamation,"提示"
https://www.doczj.com/doc/4f9238196.html, 网页数据如何简单导出excel 在浏览网页时，遇到我们需要的网页数据时，如文字、图片等，如何能简单的导出到Excel 中，方便在本地电脑中查看和编辑呢？当然是有办法的啦！下面就为大家介绍几种简单快速的将网页数据导出到Excel的方法，大家可以灵活运用。 一、通过浏览器导出网页数据 具体操作：打开某网页后，右键点击网页空白处，在下拉列表中选择“另存为”，然后在弹出的保存窗口中选择保存类型为“网页全部”。选择保存位置后确定，保存后就会自动保存两个文件，一个是网址，另一个是保存网页内容元素。 如何导出网页数据，以赶集网采集为例图1
https://www.doczj.com/doc/4f9238196.html, 二、通过网页数据采集器导出网页数据 先通过网页数据采集器，将网页数据采集下来，然后再导出为需要的格式即可。本文使用的是操作简单、功能强大的八爪鱼采集器。以下是一个八爪鱼采集并导出网页数据的完整示例。示例中采集的是赶集网上房产-商铺-深圳-南山分类下的所有商铺信息。 示例网站：https://www.doczj.com/doc/4f9238196.html,/fang6/nanshan/ 步骤1：创建采集任务 1）进入主界面，选择“自定义模式” 如何导出网页数据，以赶集网采集为例图2 2）将要采集的网址URL，复制粘贴到网址输入框中，点击“保存网址”
https://www.doczj.com/doc/4f9238196.html, 如何导出网页数据，以赶集网采集为例图3 步骤2：创建翻页循环 1）在页面右上角，打开“流程”，以展现出“流程设计器”和“定制当前操作”两个板块。将页面下拉到底部，点击“下一页”按钮，在右侧的操作提示框中，选择“循环点击下一页”
vb导出数据到Excel Public Function ExporToExcel(strOpen As String,cn As ADODB.Connection) '入参为SQL查询语句,cn为当前活动的连接 '********************************************************* '* 名称：ExporToExcel '* 功能：导出数据到EXCEL '* 用法：ExporToExcel(sql查询字符串) '********************************************************* Dim Rs_Data As New ADODB.Recordset Dim Irowcount As Integer Dim Icolcount As Integer Dim FILENAME As String Dim xlApp As New Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim xlQuery As Excel.QueryT able With Rs_Data If .State = adStateOpen Then .Close End If .ActiveConnection = Cn .CursorLocation = adUseClient .CursorType = adOpenStatic .LockType = adLockReadOnly .Source = strOpen .Open End With With Rs_Data If .RecordCount < 1 Then MsgBox ("没有记录!") Exit Function End If '记录总数 Irowcount = .RecordCount '字段总数 Icolcount = .Fields.Count End With Set xlApp = CreateObject("Excel.Application") Set xlBook = Nothing Set xlSheet = Nothing
VB中调用Excel生成图表 添加时间：2004-9-3 查看：298次 编写数据库程序的最后步骤一般都是通过查询检索生成各种报表、图形等，在VB中通过调用Exc el的图表制作功能可以生成各种复杂的图表，使编程过程得以简化。举例如下：新建工程，在Form1窗口添加Command1按钮，编写程序在Excel中添加数据并生成饼图。 Private Sub Command1_Click() Dim x1 As Excel.Application '声明数据类型 Set x1 = CreateObject(""Excel.Application"") '创建实例 x1.Workbooks.Add '添加工作簿 x1.Visible = True x1.Range(""A1"").Value = 1 'A1格赋值 x1.Range(""B1"").Value = 2 'B1格赋值 x1.Range(""C1"").Value = 3 'C1格赋值 x1.Range(""D1"").Value = 4 'D1格赋值 x1.Range(""A1"", ""D1"").Borders.LineStyle = xlContinuous '单元格边框 x1.ActiveSheet.Rows.HorizontalAlignment = xlVAlignCenter x1.ActiveSheet.Rows.VerticalAlignment = xlVAlignCenter '上下、左右居中 Set ct = x1.Worksheets(""sheet1"").ChartObjects.Add(10, 40, 220, 120) '插入图形 ct.Chart.ChartType = xl3DPie '图形类型为饼图 ct.Chart.SetSourceData Source:=Sheets(""Sheet1"").Range(""A1:D1""), PlotBy:=xl Rows '图形数据来源 With ct.Chart
我给你个简单的例子，假设有文件＂c:\1.xls＂ '要在VB中操作Excel，需要引用Excel对象模型 '方法，在菜单里选择[工程] -- [引用]，在窗口里勾选Microsoft Excel XX.X Object Library '其中，XX.X取决于你安装的Office的版本号 Private Sub Command6_Click() Dim excel_App As Excel.Application Dim excel_Book As Excel.Workbook Dim excel_sheet As Excel.Worksheet '启动Excel Set excel_App = CreateObject("Excel.Application") '引用程序对象实例 '设置Excel为不可见 excel_App.Visible = False '打开文件 Set excel_Book = excel_App.Workbooks.Open("C:\1.XLS") '工作簿实例Set excel_sheet = excel_Book.Worksheets("Sheet1") '数据表实例excel_sheet.Range("C1").Value = "你好!" '设置单元格C1的值为"你好!" excel_sheet.Range("A1").Value = 100 '设置单元格A1的值为100 excel_sheet.Range("A2").Value = 9 '设置单元格A2的值为9 excel_sheet.Range("A3").Value = excel_sheet.Range("A1").Value + excel_sheet.Range("A2").Value '计算 ''''''''''''''''''''''''''''''''''' '关闭Excel文件 Set excel_sheet = Nothing excel_App.ActiveWorkbook.Close savechanges:=True '保存对EXCELL进行更改。 Set excel_Book = Nothing excel_App.Quit Set excel_App = Nothing End Sub 追问 你好，高手！ 我的想法是这样的，编一个软件，这个软件用excel表格当做它的数据库。这个软件只能对表格进行读写操作。比如： 当text1读入A行a内容时，text2自动读取A行b内容，代码里不要对表格进行赋值。 69978084
在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel 版本不同，所以这个选项的版本号也是不同的。 因为EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素。 第一层：Application对象，即Excel本身； 第二层：workbooks对象集，指Excel的工作簿文件； 第三层：worksheets对象集，表示的是Excel的一个工作表； 第四层：Cells和Range对象，指向Excel工作表中的单元格。 新建立一个VB的工程，先放一个button，名称为Excel_Out。先定义好各层： Dim xlapp As Excel.Application 'Excel对象 Dim xlbook As Excel.Workbook '工作簿 Dim xlsheet As Excel.Worksheet '工作表 我们打算做的是：打开/新建一个excel，在其中对某工作表的一些单元格修改其值，然后另存为test.xls文件。 Private Sub Excel_Out_Click() Dim i, j As Integer Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象 'Set xlbook = xlapp.Workbooks.Open(App.Path & "\test.xls") '打开已经存在的test.xls工件簿文件 Set xlbook = xlapp.Workbooks.Add '新建EXCEL工件簿文件 'xlbook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏 'xlbook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏 xlapp.Visible = True '设置EXCEL对象可见（或不可见） Set xlsheet = xlbook.Worksheets(1) '设置活动工作表'' ''~~~当前工作簿的第一页,这里也可以换成“表名” '下面就是简单的在一些单元格内写入数字 For i = 7 To 15 For j = 1 To 10 xlsheet.Cells(i, j) = j '当前工作簿第一页的第I行第J列 Next j Next i With xlsheet '设置边框为是实线 .Range(.Cells(7, 1), .Cells(28, 29)).Borders.LineStyle =
如何把MSHFlexGrid里的数据导出至Excel？ 用Adodc1做了查询语句，结果显示在一个MSHFlexGrid里面。现在要求做一个按钮（Command1），点击它就把MSHFlexGrid里显示的数据导出至Excel表中。就是一点这个按钮，就会自动打开Excel，然后数据就已经进去了，方便编辑和打印。 要求：代码详细，直接复制到Command1下就能用。这块我不懂，所以不要搞什么子程序调用之类的，要有子程序也给直接调用好。 直接复制代码成功后，再追加100分。把这个弄完工程就结了，再不用受罪了，哈哈！ 以下是精简后的代码,不清楚你工作中的一些细节,所以如有问题与我讨论 Private Sub Command1_Click() MSFlexGrid1.Redraw = False '关闭表格重画，加快运行速度 Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 Set xlBook = xlApp.Workbooks.Open(App.Path & "\对账模板.xls") '打开已经存在的EXCEL 工件簿文件 xlApp.Visible = True '设置EXCEL对象可见（或不可见） Set xlsheet = xlBook.Worksheets("Sheet1") '设置活动工作表 For R = 0 To MSFlexGrid1.Rows - 1 '行循环 For C = 0 To MSFlexGrid1.Cols - 1 '列循环 MSFlexGrid1.Row = R MSFlexGrid1.Col = C xlBook.Worksheets("Sheet1").Cells(R + 1, C + 1) = MSFlexGrid1.Text '保存到EXCEL Next C Next R MSFlexGrid1.Redraw = True 'xlsheet.PrintOut '打印工作表 xlApp.DisplayAlerts = False '不进行安全提示 'xlBook.Close (False) '关闭工作簿 Set xlsheet = Nothing Set xlBook = Nothing xlApp.Quit Set xlApp = Nothing End Sub