excel表怎么把工作表导出

1.如何把EXCEL表中导出的表格在还原回?

这是我的回答，希望对你有帮助。

有很多方法都可将数据库中某个表的数据导出到电子表格中，例如通过创建Access。Application，可以利用Access本身的导出功能实现将表中的数据导出到电子表格中。

但是这种方法会占用较多的系统资源，并且缺乏通用性。 如果一个数据库没有导出的功能怎么办？下面的这段程序代码利用记录集实现导出的功能，这种做法的好处是显而易见的：你可以控制要导出的数据，而不用将整个表的内容都导出到电子表格中。

为简单起见下面的程序代码仍将整个表的数据导出到电子表格中。如果你有兴趣的话，对下面的代码稍加改动就可做成更为通用的一个类或是一个控件。

首先在窗体上添加一个标签控件和一个命令按钮，然后在工程中添加对DAO引用。利用下面的程序代码就可将表中的数据导出到电子表格中。

Option ExplicitPrivate Sub Command1_Click()Dim tempDB As DatabaseDim i As Integer ' 循环计数器Dim j As IntegerDim rCount As Long ' 记录的个数Dim xl As Object ' OLE自动化对象Dim Sn As RecordsetScreen。 MousePointer = 11Label1。

Caption = "打开数据库。

"Label1。

RefreshSet tempDB = Workspaces(0)。OpenDatabase("Nwind。

mdb")Label1。Caption = "创建Excel对象。

"Label1。RefreshSet xl = CreateObject("Excel。

Sheet。8")Label1。

Caption = "创建快照型记录集。

"Label1。

RefreshSet Sn = tempDB。OpenRecordset("Customers", dbOpenSnapshot)If Sn。

RecordCount > 0 ThenLabel1。Caption = "将字段名添加到电子表格中"Label1。

RefreshFor i = 0 To Sn。Fields。

Count - 1xl。Worksheets(1)。

cells(1, i + 1)。 Value = Sn(i)。

NameNextSn。MoveLastSn。

MoveFirstrCount = Sn。RecordCount' 在记录中循环i = 0Do While Not Sn。

EOFLabel1。Caption = "Record:" & Str(i + 1) & " of" & _Str(rCount)Label1。

RefreshFor j = 0 To Sn。Fields。

Count - 1' 加每个字段的值加到工作表中If Sn(j)。Type Worksheets(1)。

cells(i + 2, j + 1)。Value = "Memo or Binary Data"End IfNext jSn。

MoveNexti = i + 1Loop' 保存工作表Label1。Caption = "保存文件。

"Label1。Refreshxl。

SaveAs "c:\Customers。XLS"'从内存中删除Excel对象Label1。

Caption = "退出Excel"Label1。Refreshxl。

Application。QuitElse' 没有记录End If' 清除Label1。

Caption = "清除对象"Label1。RefreshSet xl = NothingSet Sn = NothingSet tempDB = NothingScreen。

MousePointer = 0 ' 恢复鼠标指针Label1。 Caption = "Ready"Label1。

Refresh End SubPrivate Sub Form_Load()Label1。AutoSize = TrueLabel1。

Caption = "Ready"Label1。RefreshEnd Sub。

2.如何将excel表格转换成word文档?

Excel强大的制表功能让很多办公一族都忘不了它的方便与实用。

可是在一些情况下，我们必须将Excel表格转换成Word文档。当前普遍的做法是：先用Excel做好表格，再把表粘到Word里。

可是粘到Word里后表的格式全变了，还得重新进行调试，费时又费力。 其实，完全可以按下述方法来轻松转换。

首先，用Excel编辑好一个表格，然后点击“文件”→“另存为web页”。web页就是网页文件，在“保存选项”处把“保存整个工作簿”调整成“选择：工作表”，把默认文件名“page。

htm”根据实际情况改成你所需要的名字，如：“工作表。 htm”，再点击“保存”。

注意，在改名时绝对不可以把后面的。htm去掉，只要改“。”

前面的部分就可以了。 找到刚才保存好的“工作表。

htm”，如果你所安装的操作系统是WindowsXP或Windows2000，可以在文件上面直接点击鼠标右键，选择“打开方式”最下面的“打开程序”选项，在列表中找到“Word”，选中并确定。 如果你所使用的操作系统是windows98，则操作方法略有不同，需要在“工作表。

htm”上按住shift键的同时点击鼠标右键，之后再进行上述操作。 用Word程序打开该文件后，不要做任何编辑操作，直接点击“文件”→“另存为”，把文件名改成“工作表Word版”，把保存类型选成“Word文档”，再点击“保存”即可。

希望能帮助到你，麻烦点击"有用"，谢谢。

3.怎么把excel中的工作表导出单独保存

我又一个带VBA代码可以帮你把工作薄中的工作表保存成单个的工作薄，前提是你先备份下要保存的工作薄：

Sub xx()

Set wb = ActiveWorkbook

For i = wb.Sheets.Count To 1 Step -1

wb.Sheets(i).Move

ActiveWorkbook.SaveAs Filename:="E：\数据资料\" & "aaa" & ActiveSheet.Name

ActiveWorkbook.Close

Next

End Sub

备注：本程序将工作薄中的工作表保存成为单个的工作表，并能删除原有工作表，其中“E：\数据资料\”表示为存储路径，

“aaa"表示在原有工作表名称的基础之上添加以上字符

如果可行 请加分

4.怎么能把excel表中内容批量生成另外的不规则的表

具体方法如下：

一、对总表进行下面的操作：

1、把“品名”放在A列，而且要确保品名是唯一的（即没有重名的），B、C分别为“商品编码”、“价格”

2、全选表格——定义名称，并命名为“总表”（也可以是其它名称）

二、对明细表中做如下操作：

1、A1单元格输入品名

2、在B1单元格输入公式：=vlookup(A1，总表，2,flase)

3、在C1单元格输入公式：=vlookup(A1，总表，3,flase)

4、向下复制些公式这两列公式。