Excel表格完成录音与回放.doc

想学吗?让Excel表格完成录音与回放!在给学生讲Excel表格时，很多学生感觉到它很难。问我可不可以把我讲课的内容录制下来，让他们拿回家再多看几遍。我想可以用录像机把我讲课的内容录下来，但操作不方便，又费时费力。我想学生只是要看我讲课的内容，又不是看我讲课的台风，如果只把这讲课的内容录下来不就行了吗？ 经过研究，我找到了一种方法，既可以让学生看见我的Excel表格操作步骤，又可以听见我讲话的声音。特写下来以供有这方便需求的读者参考。 操作步骤： 第一步：打开Excel单击菜单中的插入按钮选择对象。第二步：在对象对话框中选择音效单击确定按钮。第三步：单击开始录制声音按钮。这时就可以边操作边讲话了。所讲的话全部被录在电子表中了。(注：这种录单方式只能录60秒，当然我们可以让它多录制一会，方法是：当快录制完时单击一下停止录制按钮，再单击开始录制声音按钮，这样循环往复，便可以长时间录制了) 第四步：全部录制完毕后单击文件菜单中的退出按钮再弹出的对话框中单击是按钮。最后把这个文件保存起来拿给学生，学生只需要双击电子表格中的图标便可以听见声音了。excel经验小结(二)一、感叹号（！）中括号（）在自定义格式中的作用是什么？ 叹号是强制使其后面的一个字符按照普通文本显示，比如A1=123，如果要显示成123h，定义格式为0h是不行的，因为字母h在格式中代表特殊含义（小时），所以要定义成0!h，字母h会被强制显示。 的作用有几种： 1、设置条件，比如100a，数字大于10时，数字后面加字母a。 2、显示颜色，红色0;蓝色-0，正数和0显示红色，负数显示为蓝色。 3、扩展显示（不知道怎么准确命名），比如A1=1.2 (天)，表示成时分秒格式，如果用h:mm:ss，显示为4:48:00，小时不能大于24，如果设置为h:mm:ss，则显示为28:48:00。 (此项转于：) 二、快速输入时间，首先选定单元格区域-格式-单元格-日期-选中所需日期类型，假如选定的是：2010-1-4形式的，那么可用输入2010/1/4即可，单元格会自动转换的，如果是当年的，可直接输入：1/4即可。 三、Excel将YYYYMMDD日期格式改为YYYY-MM-DD格式或YYYY年MM月DD日 若A1=20081201，转化为日期型：B1=DATE(MID(A2,1,4),MID(A2,5,2),MID(A2,7,8)，然后在B1单元格中直接设置格式即可。 或B1=MID(A2,1,4)&年&MID(A2,5,2)&月&MID(A2,7,8)&日)。MID函数的语法是，=MID(含取值的数值，取值开始位序号，取值位数)。 假设A1身份证号码提取生日的公式是=MID(A1,7,4)&年&MID(A1,11,2)&月&MID(A1,13,2)&日，返回的是1998年12月31日。 四、excel如何将yyyymm日期格式修改为yyyy/mm 选中单元格-鼠标右键-设置单元格格式-自定义-在类型里面填写:0000!/00 即可。 （这里的0和!都是占位符，具体可从网上查看）. 五、excel表格里将100s如何转化为时间格式00:01:40？ =TEXT(A1/86400,hh:mm:ss)或者直接=A1/86400，然后将单元格设置为自定义格式：hh:mm:ss，在单元格时间的基本单位是天，所以一天是24*60*60=86400秒。 加括号才可以总小时的累计。 六、excel表格中将时间00:01:40转换成秒数？ 在A1单元格中输入时间00:01:26，在A2单元格中输入=SUM(HOUR(A1)*3600,MINUTE(A1)*60,SECOND(A1)，注意单元格要设置成数值形式的，本人就是没有注意这个，搞了半天。Excel高级使用技巧1、编辑技巧 1 编辑技巧 （1） 分数的输入 如果直接输入“1/5”，系统会将其变为“1月5日”，解决办法是：先输入“0”，然后输入空格，再输入分数“1/5”。 （2） 序列“001”的输入 如果直接输入“001”，系统会自动判断001为数据1，解决办法是：首先输入“”（西文单引号），然后输入“001”。 （3） 日期的输入 如果要输入“4月5日”，直接输入“4/5”，再敲回车就行了。如果要输入当前日期，按一下“Ctrl+；”键。 （4） 填充条纹 如果想在工作簿中加入漂亮的横条纹，可以利用对齐方式中的填充功能。先在一单元格内填入“*”或“”等符号，然后单击此单元格，向右拖动鼠标，选中横向若干单元格，单击“格式”菜单，选中“单元格”命令，在弹出的“单元格格式”菜单中，选择“对齐”选项卡，在水平对齐下拉列表中选择“填充”，单击“确定”按钮（如图1）。 图DataGridView导出excel本文参考网友江边孤岛（感谢原作者）的WinForm中DataGrid扩展类 - 快速导出Excel文件，带保存对话框，并杀死进程。相对完美的解决方案！（url： /jbgh608/archive/2007/08/29/17 63517.aspx ）而写，但本文是DataGridView导出Excel，DataGridView中的隐含列不导出。在贴出代码前几点说明如下： 1、添加Microsoft Excel 11.0 Object Library的引用后，在项目的引用列表中会多出3个引用项，分别是Excel、Microsoft.Office.Core、VBIDE；（当然添加Microsoft Word 11.0 Object Library的引用后，在项目的引用列表中也会多出3个引用项，分别是Word、Microsoft.Office.Core、VBIDE，即第一个是变化的，后两个是相同的，但如果你添加Microsoft Office 11.0 Object Library，那么仅有Microsoft.Office.Core） 微软的Office对象库包含： Microsoft Access 11.0 Object Library Microsoft Graph 11.0 Object Library Microsoft Excel 11.0 Object Library Microsoft Office 11.0 Object Library Microsoft Outlook 11.0 Object Library Microsoft PowerPoint 11.0 Object Library Microsoft Word 11.0 Object Library 对于上面的对象库，微软是否提供了API文档？本人尚未找到。 2、文件是否已经打开的判断，网上很多是以独享的方式打开文件，如果出现异常则说明文件已经在使用中，我觉得这个判断不理想，不知道是否有更好的处理方法？ 3、实测中发现执行设置Excel字体大小和将字体设置为粗体的语句耗时较长，不知道是本人机器环境的原因还是Excel的普遍问题？ 4、原文杀死excel进程的处理方法并不得当，会将所有正在使用的excel都关闭掉。但导出excel确实会增加excel的进程，不妥。 一下是代码 调用方法为： 导出类源码： using System; using System.Collections.Generic; using System.Text; using System.Windows.Forms; using System.Diagnostics; using System.IO; using Microsoft.Office.Interop.Excel; namespace zzxx public class ExportToExcel /记录保存文件的名称（含路径） private string FullFileName = string.Empty; #region 保存对话框 private bool SaveFileDialog() SaveFileDialog saveFileDialog1 = new SaveFileDialog(); saveFileDialog1.Filter = excel files(*.xls)*.xls; saveFileDialog1.FilterIndex = 0; saveFileDialog1.RestoreDirectory = true; /标志变量、返回结果 bool IsOK = false; bool result = false; /文件已经存在，需要重新输入文件名时，循环打开保存对话框 while (!IsOK) if (saveFileDialog1.ShowDialog() = DialogResult.OK) /修改给定的文件名，增加时间信息 /FullFileName = saveFileDialog1.FileName.Insert(saveFileDialog1 .FileName .LastIndexOf ()+1,DateTime .Now .ToString (yyyyMMdd); FullFileName = saveFileDialog1.FileName; /文件信息，判断文件是否已经存在； /遗留问题：文件是否已经打开本想在此处判断，但没有找到合适的方法. FileInfo fi = new FileInfo(FullFileName ); if (fi.Exists) DialogResult dr = MessageBox.Show(文件已经存在，是否覆盖现有文件？, 系统信息, MessageBoxButtons.YesNoCancel); if (dr = DialogResult.Yes) /覆盖现有文件 IsOK = true; result = true; else if (dr = DialogResult.Cancel) /如果取消操作 IsOK = true; result = false; /如果不覆盖现有文件，则IsOK仍为false，实现循环 else IsOK = true; result = false ; return result; #endregion #region 导出Excel public void ToExcel(Form ParentWindow, DataGridView ExportGrid, string p_ReportName) /如果网格尚未数据绑定 if (ExportGrid = null) return; /列索引，行索引 int colIndex = 0; int rowIndex = 0; /总可见列数，总可见行数 int colCount = ExportGrid.Columns.GetColumnCount(DataGridViewElem entStates.Visible ); int rowCount = ExportGrid.Rows.GetRowCount(DataGridViewElementSta tes.Visible); /如果DataGridView中没有行，返回 if (rowCount = 0) return; /保存对话框 if (!SaveFileDialog() return; ParentWindow.Cursor = Cursors.WaitCursor; /创建Excel对象 Microsoft.Office.Interop.Excel.Application xlApp = new Microsoft.Office.Interop.Excel.Application(); if (xlApp = null) MessageBox.Show(Excel无法启动,系统信息); return; /创建Excel工作薄 Microsoft.Office.Interop.Excel.Workbook xlBook = xlApp.Workbooks.Add(true); Microsoft .Office .Interop .Excel .Worksheet xlSheet=(Microsoft .Office .Interop .Excel .Worksheet )xlBook .Worksheets 1; /设置标题。实测中发现执行设置字体大小和将字体设置为粗体的语句耗时较长，故注释掉了 Microsoft.Office.Interop.Excel.Range range = xlSheet.get_Range(xlApp .Cells 1,1,xlApp .Cells 1,colCount ); range.MergeCells = true; xlApp.ActiveCell.FormulaR1C1 = p_ReportName; /xlApp.ActiveCell.Font.Size = 20; /xlApp.ActiveCell.Font.Bold = true; xlApp.ActiveCell.HorizontalAlignment = Microsoft.Office.Interop.Excel.Constants.xlCenter; /创建缓存数据 object , objData=/qz.q/new object rowCount +1,colCount ; /获取列标题，隐藏的列不处理 for (int i = 0; i ExportGrid.ColumnCount; i+) if (ExportGrid.Columnsi.Visible) objDatarowIndex, colIndex+ = ExportGrid.Columnsi.HeaderText; /获取数据，隐藏的列的数据忽略 for (int i = 1; i = rowCount; i+) rowIndex+; colIndex = 0; for (int j = 0; j ExportGrid.ColumnCount; j+) if (ExportGrid.Columnsj.Visible) if (ExportGridj, rowIndex - 1.ValueType = typeof(string) objDatarowIndex, colIndex+ = + ExportGridj, rowIndex - 1.Value.ToString(); else objDatarowIndex, colIndex+ = ExportGridj, rowIndex - 1.Value.ToString(); System.Windows.Forms.Application.DoEvents(); /写入Excel /xlApp.get_Range(xlApp.Cells2, 1, xlApp.Cells2, colIndex).Font.Bold = true; range = xlSheet.get_Range(xlApp .Cells 2,1,xlApp .Cells rowCount +2,colCount ); range.Value2 = objData; /保存 try xlApp.Cells.EntireColumn.AutoFit(); xlApp.Cells.VerticalAlignment = Microsoft.Office.Interop.Excel.Constants.xlCenter; xlApp.Cells.HorizontalAlignment = Microsoft.Office.Interop.Excel.Constants.xlCenter; /xlApp.Visible = true; xlBook.Saved = true; xlBook.SaveCopyAs(FullFileName); MessageBox.Show(导出成功！, 系统信息); ParentWindow.Cursor = Cursors.Default; catch MessageBox.Show(保存出错，请检查文件是否正被使用！, 系统信息); /return false; finally xlApp.Quit(); GC.Collect(); KillProcess(excel); #endregion #region 杀死进程 private void KillProcess(string processName) System.Diagnostics.Process myProc = new Process(); /得到所有打开的进程 try foreach (Process thisproc in Process.GetProcessesByName(processName) thisproc.Kill(); catch (Exception exc) throw new Exception(,exc ); #endregion Export to Excel V-B-6Public Sub CSMatListToExcel() * * * 名称：ExportToStoreExcel * 功能：导出数据据到EXCEL * 用法：ExportToStoreExcel(sql查询字符串) * * Dim Rs_Data As New ADODB.Recordset Dim Irowcount As Integer Dim Icolcount As Integer Dim strSQL As String Dim xlApp As New Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim xlQuery As Excel.QueryTable On Error GoTo errHandle strSQL = CSMO_ALLMaterialList + Sqv(txtWo(0).Text) + , + Sqv(InitLoad.LoginUserId) Set Rs_Data = /qz.q/GetRs(strSQL) With Rs_Data If .RecordCount 1 Then MsgBox (没有记录!) Exit Sub End If 记录总数 Irowcount = .RecordCount 字段总数 Icolcount = .Fields.Count End With Set xlApp = CreateObject(Excel.Application) Set xlBook = Nothing Set xlSheet = Nothing Set xlBook = xlApp.Workbooks().Add Set xlSheet = xlBook.Worksheets(sheet1) xlApp.AlertBeforeOverwriting = False xlApp.DisplayAlerts = False xlApp.Visible = False xlSheet.Range(a1).Value = /qz.q/订单号 + txtWo(0).Text + 物料清单 xlApp.ActiveSheet.Range(a1:I1).Merge 添加查询语句，导入EXCEL数据 Set xlQuery = xlSheet.QueryTables.Add(Rs_Data, xlSheet.Range(a2) With xlQuery .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = True .SaveData = /qz.q/True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True End With xlQuery.FieldNames = True 显示字段名 xlQuery.Refresh With xlSheet .Range(.Cells(1, 1), .Cells(1, Icolcount).Font.Name = 细明体 标题为黑体字 .Range(.Cells(1, 1), .Cells(1, Icolcount).Font.Bold = True 标题字体加粗 .Range(.Cells(2, 1), .Cells(Irowcount + 2, Icolcount).Borders.LineStyle = xlContinuous 设置表格边框样式 End With xlApp.ActiveSheet.Rows.HorizontalAlignment = xlVAlignCenter xlApp.ActiveSheet.Rows.VerticalAlignment = xlVAlignCenter xlApp.Application.Visible = True Set xlApp = Nothing 交给控制Excel Set xlBook = Nothing Set xlSheet = Nothing Exit Sub errHandle: MsgBox 数据导出错误： & Err.Description End Sub 在VB中操纵Excel在VB中操纵Excel 一Excel对象模块 Application 对象 集合 - -Assistant -Addins(Addin) -AutoComect -OLEDBErrors -Debug -CommandBars(CommandBar) -VBE -Dialogs(Dialog) -WorksheetFunction -RecentFilds(RecentFile) -DefaultWebOptions -Windows(Window) -LanguageSettings -Workbooks(Workbook) -Filesearch -Names(name) -AnswerWizard -ODBCErrors 最上层的Application是指整个应用程序，其中最常用到的Workbooks代表活页簿集合，在其后的括号内的Workbook是指一个工作簿。 在VB中要打开Excel，首先要引用Microsoft Excel 9.0(或8.0）Object Lobrary。 打开的步骤是：（1）定义两个变量，数据类型指定为Excel.ApplicationExcel.Workbook. (2)激活Excel应用程序。（3）打开工作簿(我们假设在当前路径下有一个工作簿students.xls）。 代码如下： Option Explicit Public appExcel As Excel.Application Public wbExcel As Excel.Workbook Private Sub Setup_Excel_object() Set appExcel = CreateObject(excel.application) Set wbExcel = appExcel.Workbooks.Open(App.Path & students.xls) appExcel.Visible = True 使对象可见 End Sub 二工作表对象Worksheet Workbooks对象有一个集合对象工作表Worksheets,，用来放工作表相关的资料。 Workbooks(workbook) 对象 集合 - -HTMLProjcet -Publishobjects -RoutingSlip -DocumentProperties -Areas -Worksheets -WebOptions -Names -VBProject -CustomViews -CommandBars -PivotCaches -Windows -Styles -Charts 调用方法是声明一个工作表变量，用For-Each循环方式可以读取集合对象Workbooks里的所有工作表名。 代码如下： Dim temp As Excel.Worksheet For Each temp In wbExcel.Worksheets wbExcel是上面代码中声明的Workbook FORM1.Combo1.AddItem temp.Name Next 三读取工作表某个选取范围的内容。 要读取工作表某个范围单元格，可先定义一个Excel范围对象变量，然后使用Rows或Columns函数指定某行或某列的范围，范围单元格（Cells)地址以目前被选取范围为基准。具体方法如下： （1）设置工作表对象变量操作哪个工作表； （2）选取工作表的某行或某列； （3）在上面的选取范围内读取某个单元格内容。 代码如下： Dim Tempsheet As Excel.Worksheet 定义Excel工作表 Dim TempRange As Excel.Range 定义Excel工作表范围变量 第一步：选取工作表Sheet1 Set Tempsheet = appExcel.Worksheets(sheet1) 第二步：选取第二行(以这行为第一行） Set TempRange = Tempsheet.Rows(2) 第三步：读取范围内第一行第二列的单元格 Text1.Text = TempRange.Cells(1, 2) 四其他 用TempRange.Find().Column方法可以查找目前范围内第一行的第一个空白单元格 如何实现VB与EXCEL的无缝连接 2003-02-17. .吴刚.yesky VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统，如何把它们有机地结合在一起，是一个值得我们研究的课题。 一、 VB读写EXCEL表： VB本身提自动化功能可以读写EXCEL表，其方法如下： 1、在工程中引用Microsoft Excel类型库： 从工程菜单中选择引用栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择确定。表示在工程中要引用EXCEL类型库。 2、在通用对象的声明过程中定义EXCEL对象： Dim xlApp As Excel.Application Dim xlBook As Excel.WorkBook Dim xlSheet As Excel.Worksheet 3、在程序中操作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关闭宏 4、在运用以上VB命令操作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它操作，也能够关闭EXCEL，同时也可对EXCEL进行操作。但在EXCEL操作过程中关闭EXCEL对象时，VB程序无法知道，如果此时使用EXCEL对象，则VB程序会产生自动化错误。形成VB程序无法完全控制EXCEL的状况，使得VB与EXCEL脱节。 二、 EXCEL的宏功能： EXCEL提供一个Visual Basic编辑器，打开Visual Basic编辑器，其中有一工程属性窗口，点击右键菜单的插入模块，则增加一个模块1，在此模块中可以运用Visual Basic语言编写函数和过程并称之为宏。其中，EXCEL有两个自动宏：一个是启动宏（Sub Auto_Open()），另一个是关闭宏（Sub Auto_Close()）。它们的特性是：当用EXCEL打含有启动宏的工簿时，就会自动运行启动宏，同理，当关闭含有关闭宏的工作簿时就会自动运行关闭宏。但是通过VB的自动化功能来调用EXCEL工作表时，启动宏和关闭宏不会自动运行，而需要在VB中通过命令xlBook.RunAutoMacros (xlAutoOpen)和xlBook.RunAutoMacros (xlAutoClose) 来运行启动宏和关闭宏。 三、 VB与EXCEL的相互勾通： 充分利用EXCEL的启动宏和关闭宏，可以实现VB与EXCEL的相互勾通，其方法如下： 在EXCEL的启动宏中加入一段程序，其功能是在磁盘中写入一个标志文件，同时在关闭宏中加入一段删除此标志文件的程序。VB程序在执行时通过判断此标志文件存在与否来判断EXCEL是否打开，如果此标志文件存在，表明EXCEL对象正在运行，应该禁止其它程序的运行。如果此标志文件不存在，表明EXCEL对象已被用户关闭，此时如果要使用EXCEL对象运行，必须重新创建EXCEL对象。 四、举例： 1、在VB中，建立一个FORM，在其上放置两个命令按钮，将ommand1的Caption属性改为EXCEL，Command2的Caption属性改为End。然后在其中输入如下程序： Dim xlApp As Excel.Application 定义EXCEL类 Dim xlBook As Excel.Workbook 定义工件簿类 Dim xlsheet As Excel.Worksheet 定义工作表类 Private Sub Command1_Click() 打开EXCEL过程 If Dir(D:tempexcel.bz) = Then 判断EXCEL是否打开 Set xlApp = CreateObject(Excel.Application) 创建EXCEL应用类 xlApp.Visible = True 设置EXCEL可见 Set xlBook = xlApp.Workbooks.Open(D:tempbb.xls) 打开EXCEL工作簿 Set xlsheet = xlBook.Worksheets(1) 打开EXCEL工作表 xlsheet.Activate 激活工作表 xlsheet.Cells(1, 1) = abc 给单元格1行驶列赋值 xlBook.RunAutoMacros (xlAutoOpen) 运行EXCEL中的启动宏 Else MsgBox (EXCEL已打开) End If End Sub Private Sub Command2_Click() If Dir(D:tempexcel.bz) Then 由VB关闭EXCEL xlBook.RunAutoMacros (xlAutoClose) 执行EXCEL关闭宏 xlBook.Close (True) 关闭EXCEL工作簿 xlApp.Quit 关闭EXCEL End If Set xlApp = Nothing 释放EXCEL对象 End End Sub 2、在盘根目录上建立一个名为Temp的子目录，在Temp目录下建立一个名为bb.xls的EXCEL文件。 3、在bb.xls中打开Visual Basic编辑器，在工程窗口中点鼠标键选择插入模块，在模块中输入入下程序存盘： Sub auto_open() Open d:tempexcel.bz For Output As #1 写标志文件 Close #1 End Sub Sub auto_close() Kill d:tempexcel.bz 删除标志文件 End Sub 4、运行VB程序，点击EXCEL按钮可以打开EXCEL系统，打开EXCEL系统后，VB程序和EXCEL分别属两个不同的应用系统，均可同时进行操作，由于系统加了判断，因此在VB程序中重复点击EXCEL按钮时会提示EXCEL已打开。如果在EXCEL中关闭EXCEL后再点EXCEL按钮，则会重新打开EXCEL。而无论EXCEL打开与否，通过VB程序均可关闭EXCEL。这样就实现了VB与EXCEL的无缝