Ⅰ 在Excel里，如何实现自动生成备份文件到另一个文件夹
我们可以用VBA编写简单的宏代码来实现备份功能，同时还能做到：1．在保存Excel文件时自动生成备份；2．保存Excel文件时提示是否备份；3．原始文件和备份文件互为备份。即编辑原始文件时，将在备份文件夹生成备份文件；编辑备份文件时，将以原始文件为备份。一、设置宏安全性选择“工具→宏→安全性”菜单，将安全级别设为“低”。这样，VBA代码才可以执行。二、输入VBA代码1.打开需要备份的Excel文件，右击任一工作表标签，选择“查看代码”，或选择“工具→宏→VisualBasic编辑器”菜单，打开VisualBasic编辑器。2.在“工程”窗口中双击“ThisWorkbook”，此时VBA编辑器标题变为：MicrosoftViusalBasic-“文件名”-[ThisWorkbook(代码)]。3.将以下代码输入到“代码”窗口中：PrivateSubWorkbook_BeforeSave(ByValSaveAsUIAsBoolean,CancelAsBoolean)'指定Excel文件的路径XlsFilePath="D:"'指定备份路径BackupXlsFilePath="E:"IfThisWorkbook.Path=XlsFilePathThenExcelFilePath=BackupXlsFilePathElseExcelFilePath=XlsFilePathEndIf'提示是否备份Response=MsgBox("保存时是否备份当前Excel文件？"&vbCr&"备份位置："&ExcelFilePath,vbYesNo,"提示备份")IfResponse=vbYesThen'用户按下“是”'两个Excel文件相互备份ThisWorkbook.SaveCopyAsFilename:=ExcelFilePath&"\"&ThisWorkbook.NameEndIfEndSub说明：XlsFilePath="D:"和BackupXlsFilePath="E:"分别指定了正在编辑的Excel文件和备份文件的路径，可以将其中的“D:”和“E:”（不含引号）分别更换成实际的路径。在输入文件路径时一定要注意以下几点：1.确保路径正确无误，如果输入错误或指定的文件夹不存在，将出现错误；2.盘符要大写；3.路径的后面不要加上“\”，如“F:\备份\2006”不能写成“F:\备份\2006\”。三、执行当前Excel文件编辑完成后，只要单击“保存”按钮，Excel都会提示是否备份。选择“是”将在指定的文件夹生成一个同名的备份文件，并保存当前文件。选择“否”则只保存当前文件而不做备份
Ⅱ 怎么把Excel中每一栏的文字自动批量生成word文档
使用word的邮件合并功能，可以做到，步骤如下：
将excel文档保存
Ⅲ excel表格能否自动生成word文档
你好！excel表格是不会自动生成Word文档的，excel是表格制作软件，Word是文档编辑软件……
Ⅳ 如何根据excel表格中的数据自动创建文件夹
这个要用代码奥，函数没这个功能
Ⅳ excel副本如何每天自动生成
摘要您好，您可以通过下面的操作来交易Excel，每天生成副本。
Ⅵ 如何根据excel一个文件内容生成多个文件
首先需要将要合成的excel文件复制到一个文件夹，然后切换到数据菜单并点击新建查询，接着选择从文件下的从文件夹，输入刚刚的文件夹路径，点击确定，再点击合并下的合并和加载选项，选择要合并的工作表名称，最后点击确定即可。
Ⅶ 如何根据excel表格中的数据自动创建文件夹
在文字前增加1列，内容为md（不含空格）然后将这两列内容复制到记事本文本中，然后选择文件==》另存为将文件保存为a.bat然后将这个文件复制到需要的目录，然后运行即可。
Ⅷ 关于Excel每天自动生成一个备份文件
一、开启特定文件的自动备份功能
如果你只是想为某一个Excel文件开启自动备份文件的功能，请按如下步骤操作：
1、打开该Excel文件。
2、在“文件”选项卡，单击“另存为”，在“保存” 按钮的左侧，有一个“工具”按钮，单击该按钮，在打开的列表中，单击“常规选项”，然后勾选“生成备份文件”前面的复选框(如图2)，单击“确定”按钮。
3、在“另存为”对话框，单击“保存”按钮。
之后，不论谁在哪一台电脑打开该Excel文件，每当编辑这个文件后保存并退出Excel时，都会出现一份同名的.xlk文件，这即是该Excel文件的备份副本，它保存着上次编辑并保存时的内容。
二、开启所有文件的自动备份功能
1、启动Excel2010并新建一个空白文件。
2、在“文件”选项卡，单击“保存”。
3、在“另存为”对话框中，在“文件名”框中，键入“book”，在“文件类型”框中，单击“Excel模板“，在左侧文件夹列表中，定位至C:Program FilesMicrosoft OfficeOffice14XLStart文件夹，单击“工具”按钮，在打开的列表中，单击“常规选项”，然后选中“生成备份文件”复选框，单击“确定”按钮。
4、单击“保存”按钮，然后，如果系统中原本不存 在book模板文件，直接关闭Excel即可，如果book模板文件已经存在，系统会弹出一个对话框，询问是否替换原文件，单击“是”按钮替换原文件。
之后，你只要使用Excel编辑任意Excel文件并保存退出后，都会产生同名的.xlk备份文件了。最后，需要说明的是，上述操作以Excel 2010为例，如果你使用是其他版本，上述XLStart文件夹所在路径中，请将Office14替换为Office 11、Office 12或Office15，分别对应于Excel2003、Excel2007和Excel2013。
提示：在Excel中，模板是创建后作为其他相似工作簿基础的工作簿，可以为工作簿和工作表创建模板。模板中可包含格式样式、标准的文本(如页眉和行列标志)、公式、Visual Basic for Applications宏和自定义工具栏等。用户可创建默认工作簿模板，该模板定义了启动Excel时打开的新工作簿的格式和内容。Excel2003默认的工作簿模板的文件名为book.xlt，在 Excel2007及以后版本中，该模板名称是book.xltx。
Ⅸ 保存EXCEL文件，关闭后自动生成Files文件夹。
1、首先打开需要编辑的excel，然后点击选择左上角“文件”按钮。
Ⅹ 如何利用Excel表格中的数据批量生成文档
万能的vba可以实现。下面这段代码所实现的功能就是从EXCEL读取数据后批量生成WORD文档的。Dim gjzArr(1 To 100, 1 To 2) '1-关键字 2-值Dim gjzGs As IntegerDim gjzZD 'key-关键字 item-序号Sub scbG(x As Integer) On Error GoTo err Dim lastHH As Integer Dim I As Integer, J As Integer Dim MB As String Dim TName As String Dim hzMc As String Dim wordApp Dim myDoc Dim Str1 As String, Str2 As String Application.ScreenUpdating = False gjzGs = 0 Set gjzZD = CreateObject("SCRIPTING.DICTIONARY") '读取B列的值 Call dqsJ(2) '读取D列的值 Call dqsJ(4) '读取F列的值 Call dqsJ(6) MB = Trim(Range("P2").Text) hzMc = Split(MB, ".")(1) TName = ThisWorkbook.Path & "\报告\" & gjzArr(gjzZD("B7"), 2) & "." & hzMc FileCopy MB, TName Set wordApp = CreateObject("word.application") wordApp.Visible = True Set myDoc = wordApp.DOCUMENTS.Open(TName) myDoc.Unprotect Password:="123456" myDoc.Activate With wordApp.ActiveWindow.View .ShowRevisionsAndComments = False .RevisionsView = wdRevisionsViewFinal End With Dim Bj As Boolean With wordApp '关键字替换 For J = 1 To gjzGs ' Str1 = "&" & gjzArr(J, 1) & Space(1) Str2 = gjzArr(J, 2) Bj = True Do While Bj .Selection.HomeKey Unit:=wdStory '光标置于文件首 If .Selection.Find.Execute(Str1) Then '查找到指定字符串 .Selection.Text = Str2 '替换字符串 Else Bj = False End If Loop Next J End With '写入表格内容 Dim myTable '表一填写 Set myTable = myDoc.Tables(1) myTable.Range.Cells(2).Range.Text = gjzArr(gjzZD("B24"), 2) '房屋权证号 myTable.Range.Cells(4).Range.Text = gjzArr(gjzZD("B20"), 2) '房屋所有权人 myTable.Range.Cells(6).Range.Text = gjzArr(gjzZD("B26"), 2) '产别 myTable.Range.Cells(8).Range.Text = gjzArr(gjzZD("B21"), 2) & gjzArr(gjzZD("B22"), 2) & gjzArr(gjzZD("B23"), 2) '房屋坐落 myTable.Range.Cells(18).Range.Text = gjzArr(gjzZD("B27"), 2) '幢号 myTable.Range.Cells(19).Range.Text = gjzArr(gjzZD("B28"), 2) '房号 myTable.Range.Cells(21).Range.Text = gjzArr(gjzZD("B29"), 2) '总层数 myTable.Range.Cells(22).Range.Text = gjzArr(gjzZD("B30"), 2) '所在层数 myTable.Range.Cells(23).Range.Text = gjzArr(gjzZD("B31"), 2) '建筑面积 myTable.Range.Cells(27).Range.Text = gjzArr(gjzZD("B25"), 2) '房屋共有人 If myDoc.Revisions.Count >= 1 Then myDoc.Revisions.AcceptAll myDoc.Protect Password:="123456", NoReset:=False, Type:=wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False myDoc.Save myDoc.Close wordApp.Quit Application.ScreenUpdating = True MsgBox ("报告已经完成") Exit Suberr: MsgBox ("同名文件已经打开，请关闭后重新运行！")End SubSub dqsJ(Lh As Integer) Dim lastHH As Integer If Lh <= 1 Then MsgBox ("不可选择小于等于1的列") Exit Sub End If lastHH = Cells(1000, Lh – 1).End(xlUp).Row For I = 1 To lastHH If Trim(Cells(I, Lh – 1).Text) <> "" Then gjzGs = gjzGs + 1 myT1 = Replace(Cells(I, Lh).Address, "$", "") myT2 = Cells(I, Lh).Text gjzZD.Add myT1, gjzGs gjzArr(gjzGs, 1) = myT1 gjzArr(gjzGs, 2) = myT2 End If Next IEnd Sub
未经允许不得转载：山九号 » excel自动生成文件|关于Excel每天自动生成一个备份文件
