FSO的意思是FileSystemObject，即文件系统对象。FSO对象模型包含在Scripting 类型库 (Scrrun.Dll)中，它同时包含了Drive、Folder、File、FileSystemObject和TextStream五个对象，用来操作文件和文件夹十分方便。（请注意后面的常用函数）
FSO文件（File）对象属性
DateCreated 返回该文件夹的创建日期和时间
DateLastAccessed 返回最后一次访问该文件的日期和时间
DateLastModified 返回最后一次修改该文件的日期和时间
Drive 返回该文件所在的驱动器的Drive对象
Name 设定或返回文件的名字
ParentFolder 返回该文件的父文件夹的Folder对象
Path 返回文件的绝对路径，可使用长文件名
ShortName 返回DOS风格的8.3形式的文件名
ShortPath 返回DOS风格的8.3形式的文件绝对路径
Size 返回该文件的大小（字节）
Type 如果可能，返回一个文件类型的说明字符串
FSO文件（File）对象方法
FSO文件对象方法用途
CopyFile 拷贝一个或者多个文件到新路径
CreateTextFile 创建文件并且返回一个TextStream对象
DeleteFile 删除一个文件
OpenTextFile 打开文件并且返回TextStream对象，以便读取或者追加
重命名文件：
Function reName(sourceName,destName)
dim oFso,oFile
set oFso=server.createobject("Scripting.FileSystemObject")
set oFile=oFso.getFile(Server.mappath(sourceName))
https://www.doczj.com/doc/e114019630.html,=destName
Set oFso=Nothing
Set oFile=Nothing
End Function
删除文件：
Function FSOdel(fileName)
dim fso,f
set fso = server.CreateObject("scripting.filesystemobject")
f=server.MapPath(fileName)
if fso.FileExists(f) then
fso.DeleteFile f,true
end if
set f = nothing
set fso = nothing
End Function
替换文件中的字符串:
Function FSOreplace(fileName,Target,repString)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(fileName),1,True) FiletempData = objCountFile.ReadAll
objCountFile.Close
FiletempData=Replace(FiletempData,Target,repString)
Set objCountFile=objFSO.CreateTextFile(Server.MapPath(fileName),True) objCountFile.Write FiletempData
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function
<%
'*******************************************************
'函数名：CreateFolder(sPath)
'作用: 创建目录
'参数：sPath : 创建的相对目录路径
'返回值：成功 true , 失败 false
'*******************************************************
'response.Write createfolder("/dgsunshine/UploadFile/demo1/")
Function CreateFolder(sPath)
On Error Resume Next
Dim Fso,Arrfolder,Folder,i,j
If sPath="" then
CreateFolder = False
Exit Function
End If
If Left(sPath,1) = "/" Then
Folder = "/"
sPath = Mid(sPath,2,Len(sPath))
Else
Folder = "./"
End If
if Right(sPath,1) = "/" then sPath = Left(sPath,Len(sPath)-1) ArrFolder = Split(sPath,"/")
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
For i = 0 To Ubound(ArrFolder)
If i = 0 then
Folder = Folder & ArrFolder(i) & "/"
Else
Folder = Folder & ArrFolder(i) & "/"
End If
If Fso.folderExists(Server.MapPath(Folder)) = False then response.Write server.MapPath(folder)
Fso.createFolder(Server.MapPath(Folder))
End If
Next
Set Fso = nothing
If Err.Number <> 0 then
Err.clear()
CreateFolder = False
Else
CreateFolder = True
End If
End function
Function getFile(paramFilePath)
Set Fso = Server.CreateObject("Scripting.FileSystemObject") Set Fso_Read =
fso.OpenTextFile(Server.MapPath(paramFilePath),1,false,-2)
getFile = Fso_Read.readall
Set Fso_Read = Nothing
Set Fso = Nothing
End Function
'*******************************************************
'函数名：CreateFile(paramFileContent,paramFilePath)
'作用: 创建文件
'参数：paramFileContent '文件的内容
' paramFilePath '文件名(不包括路径)
'返回值：成功 true , 失败 false
'*******************************************************
Function CreateFile(paramFileContent,paramFilePath)
On Error Resume Next
Dim Fso,fWrite
Set Fso = Server.CreateObject("Scripting.FileSystemObject") Set fWrite =
Fso.CreateTextFile(Server.Mappath(paramFilePath),true)
fWrite.write paramFileContent
fWrite.close()
Set fWrite = nothing
Set Fso = nothing
If Err.number <> 0 Then
Err.clear()
CreateFile = False
Else
CreateFile = True
End If
End Function
'*******************************************************
'函数名：DelFile(FilePath)
'作用: 删除文件
'参数：FilePath '文件路径多个文件用"|"隔开
'返回值：成功 true , 失败 false
'*******************************************************
Function DelFile(FilePath)
On Error Resume Next
Dim fso,arrFile,i
If GetSafeStr(FilePath,"")="" then
CreateFolder = false
Exit Function
End If
arrFile = Split(FilePath,"|")
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
for i=0 to UBound(arrFile)
FilePath = arrFile(i)
If Fso.FileExists(Server.MapPath(FilePath)) then
Fso.DeleteFile Server.MapPath(FilePath)
End If
Next
Set fso = nothing
If Err then
Err.clear()
DelFile = false
Else
DelFile = true
End If
End Function
'*******************************************************
'函数名：DelFolder(FolderPath)
'作用: 删除目录
'参数：FolderPath '目录路径 '多个目录用"|"分隔
'返回值：成功 true , 失败 false
'*******************************************************
Function DelFolder(FolderPath)
On Error Resume Next
Dim Fso,arrFolder,i
If GetSafeStr(FolderPath,"")="" then
DelFolder = false
Exit Function
End If
arrFolder = Split(FolderPath,"|")
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
For i=0 to UBound(arrFolder)
FolderPath = arrFolder(i)
If Fso.folderexists(Server.MapPath(FolderPath)) then
Fso.deleteFolder Server.MapPath(FolderPath)
End If
Next
If Err then
Err.clear()
DelFolder = false
'ShowError "删除目录失败",""
else
DelFolder = true
End If
End Function
'*******************************************************
'函数名：IsExistFile(FilePath)
'作用: 判断文件或目录是否存在
'参数：FilePath '文件路径多个文件用"|"隔开
'返回值：成功 true , 失败 false
'*******************************************************
Function IsExistFile(FilePath)
On Error Resume Next
Dim fso,arrFile,i
If GetSafeStr(FilePath,"")="" then
IsExistFile = false
End If
arrFile = Split(FilePath,"|")
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
for i=0 to UBound(arrFile)
FilePath = arrFile(i)
If Fso.FileExists(Server.MapPath(FilePath)) then
IsExistFile = True
End If
If Fso.folderexists(Server.MapPath(FilePath)) then
IsExistFile = True
End If
Next
Set fso = nothing
If Err then
Err.clear()
IsExistFile = false
'ShowError "判断文件或目录是否存在失败",""
else
IsExistFile = true
End If
End Function
'*******************************************************
'函数名：DelFile(FilePath)
'作用: 删除文件或目录
'参数：FilePath '文件路径多个文件用"|"隔开
'返回值：成功 true , 失败 false
'*******************************************************
Function DelFile(FilePath)
On Error Resume Next
Dim fso,arrFile,i
If GetSafeStr(FilePath,"")="" then
CreateFolder = false
End If
arrFile = Split(FilePath,"|")
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
for i=0 to UBound(arrFile)
FilePath = arrFile(i)
If Fso.FileExists(Server.MapPath(FilePath)) then
Fso.DeleteFile Server.MapPath(FilePath)
End If
If Fso.folderexists(Server.MapPath(FilePath)) then
Fso.deleteFolder Server.MapPath(FilePath)
End If
Next
Set fso = nothing
If Err then
Err.clear()
DelFile = false
'ShowError "删除文件或目录失败",""
else
DelFile = true
End If
End Function
'******************************************************* '函数名：ReNameFile((oldName,newName)
'作用: 重命名文件或目录
'参数：strOldName '原文件名多个用"|"隔开
' strNewName '新文件名多个用"|"隔开
' 上面两个参数请保持一致
'返回值：成功 true , 失败 false
'******************************************************* Function ReNameFile(strOldName,strNewName)
On Error Resume Next
Dim fso,arrOld,arrNew,i,oldName,newName
old = GetSafeStr(strOldName,"")
Newfile = GetSafeStr(strNewName,"")
If old ="" or Newfile = "" then
ReNameFile = false
Exit Function
End If
arrOld = Split(strOldName,"|")
arrNew = Split(strNewName,"|")
If UBound(arrOld)<> UBound(arrNew) then
ReNameFile = false
Exit Function
End If
Set Fso = Server.CreateObject("Scripting.FileSystemObject") for i=0 to UBound(arrOld)
oldName = Server.MapPath(arrOld(i))
newName = Server.MapPath(arrNew(i))
If Fso.FileExists(oldName) and not Fso.FileExists(newName) then
fso.MoveFile oldName,newName
'ReNameFile = True
End If
Next
Set fso = nothing
If Err.Number <> 0 Then
Err.clear()
ReNameFile = false
Else
ReNameFile = True
End If
End Function
'*******************************************************
'函数名：CopyFiles((TempSource,TempEnd)
'作用: 复制文件或者目录
'参数：TempSource '源文件名多个用"|"隔开
' TempEnd '目的文件名多个用"|"隔开
' 注意：上面两个参数请保持一致，并且都为完整路径，
' 已经经过Server.MapPath方法处理过
'返回值：成功 true , 失败 false
'*******************************************************
Function CopyFiles(TempSource,TempEnd)
On Error Resume Next
Dim CopyFSO,arrSource,arrEnd
CopyFiles = false
Set CopyFSO = Server.CreateObject("Scripting.FileSystemObject")
If TempSource ="" or TempEnd = "" then
ErrRaise "复制文件或目录","条件为空"
CopyFiles = false
Exit Function
End If
arrSource = Split(TempSource,"|")
arrEnd = Split(TempEnd,"|")
If UBound(arrSource) <> UBound(arrEnd) then
CopyFiles= false
Exit Function
End If
for i=0 to UBound(arrSource)
srcName = arrSource(i)
tarName = arrEnd(i)
IF CopyFSO.FileExists(srcName) and not
CopyFSO.FileExists(tarName) then
CopyFSO.CopyFile srcName,tarName
CopyFiles = true
End If
IF CopyFSO.FolderExists(srcName) and not
CopyFSO.FolderExists(tarName)then
CopyFSO.CopyFolder srcName,tarName
CopyFiles = true
End If
Next
Set CopyFSO = Nothing
If Err then
'Err.clear()
CopyFiles = false End If
End Function
%>
asp操作excel方法 代码如下: <% ‘************************************************* ****************** ‘使用说明 ‘dim a ‘set a=new createexcel ‘a.savepath=x ‘保存路径 ‘a.sheetname=工作簿名称‘多个工作表a.sheetname=array(工作簿名称一,工作簿名称二) ‘a.sheettitle=表名称‘可以为空多个工作表a.sheetname=array(表名称一,表名称二) ‘a.data =d ‘二维数组‘多个工作表 array(b,c) b 与c为二维数组 ‘dim rs ‘set rs=server.createobject(adodb.recordset) ‘rs.open select id, classid, classname from [class] ,conn, 1, 1 ‘a.adddbdata rs, 字段名一，字段名二, 工作簿名称, 表名称, true ‘true自动获取表字段名
‘a.adddata c, true , 工作簿名称, 表名称‘c二维数组 true 第一行是否为标题行 ‘a.addtdata e, sheet1 ‘按模板生成c=array(array(aa1, 内容), array(aa2, 内容2)) ‘a.create() ‘https://www.doczj.com/doc/e114019630.html,edtime 生成时间，毫秒数 ‘a.savepath 保存路径 ‘set a=nothing ‘设置com组件的操作权限。在命令行键入“dcomcnfg”，则进入com组件配置界面，选择microsoftexcel后点击属性按钮，将三个单选项一律选择自定义，编辑中将everyone 加入所有权限 ‘************************************************* ****************** class createexcel private createtype_ private savepath_ private readpath_ private authorstr rem 设置作者 private versionstr rem 设置版本 private systemstr rem 设置系统名称
一、误删资料恢复 一不小心，删错了，还把回收站清空了，咋办啊？ 只要三步，你就能找回你删掉并清空回收站的东西 步骤： 1、单击“开始——运行，然后输入regedit （打开注册表） 2、依次展开：HEKEY——LOCAL——MACHIME/SOFTWARE/microsoft/WINDOWS/ CURRENTVERSION/EXPLORER/DESKTOP/NAMESPACE 在左边空白外点击“新建” ，选择：“主键”，把它命名为“645FFO40——5081——101B——9F08——00AA002F954E” 再把右边的“默认”的主键的键值设为“回收站”，然后退出注册表。就OK啦。 3、要重启计算机。
只要机器没有运行过磁盘整理。系统完好.任何时候的文件都可以找回来。 也许你已经在Excel中完成过上百张财务报表，也许你已利用Excel 函数实现过上千次的复杂运算，也许你认为Excel也不过如此，甚至了无新意。但我们平日里无数次重复的得心应手的使用方法只不过是Excel全部技巧的百分之一。本专题从Excel中的一些鲜为人知的技巧入手，领略一下关于Excel的别样风情。 一、让不同类型数据用不同颜色显示 在工资表中，如果想让大于等于2000元的工资总额以“红色”显示，大于等于1500元的工资总额以“蓝色”显示，低于1000元的工资总额以“棕色”显示，其它以“黑色”显示，我们可以这样设臵。 1.打开“工资表”工作簿，选中“工资总额”所在列，执行“格式→条件格式”命令，打开“条件格式”对话框。单击第二个方框右侧的下拉按钮，选中“大于或等于”选项，在后面的方框中输入数值“2000”。单击“格式”按钮，打开“单元格格式”对话框，将“字体”的“颜色”设臵为“红色”。 2.按“添加”按钮，并仿照上面的操作设臵好其它条件(大于等于1500，字体设臵为“蓝色”；小于1000，字体设臵为“棕色”)。 3.设臵完成后，按下“确定”按钮。 看看工资表吧，工资总额的数据是不是按你的要求以不同颜色
ASP直接调用EXCEL数据的例子（不用ODBC） 例子： 在"c:excelbook1.xls"存在一个EXCEL表book1.xsl,表的结构如下： 1 序号名称金额 2 1 张三100 3 2 李四200 4 3 王五300 序号字段不为空 注意：excel 起始行是1而不是为0 <%@language=vbscript %> <% Set xlApp = server.CreateObject("Excel.Application") strsource = "c:excelbook1.xls" Set xlbook = xlApp.Workbooks.Open(strsource) Set xlsheet = xlbook.Worksheets(1) i=1 response.write "
| " & xlsheet.Cells(i, 1) & " | " response.write "" & xlsheet.Cells(i, 2) & " | " response.write "" & xlsheet.Cells(i, 3) & " | " response.write "
asp数据库数据生成excel文件：
Word、Excel文档误删内容后保存，如何恢复或找到删除前的 Word文档被别人误删内容后进行了保存，如何恢复或找到删除前的文件？ 首先打开前一晚文档所在的文件夹，工具--文件夹选项--查看，在“隐藏文件和文件夹”这一栏里，选中“显示所有文件和文件夹”（最好也把上一栏“隐藏受保护的操作系统文件（推荐）”前的对号也去掉），可以看到出现了好多有“~$”字符的文档，你可以逐个查找，就能找到你前一晚上的word文档（前提是没有用360或优化大师清理系统） 打开以前打的文件（lw2.doc）做修改，修改中不断手动保存，后来保存的时候跳出什么内存还是什么东西不足，然后跳出另存为的对话框，他默认的文件名是 ~$lw2.doc.tmp,我就改称lw0226.doc，然后就保存了，然后我word就死掉了，然后我ctrl+alt+delete强制关掉了word，然后再从最近的文件打开，就显示文件错误还是找不到了，然后我看保存的文件夹只有~$lw2.doc，而我修改的文件是lw2.doc，没有了，我打开~$lw2.doc，word说文件损坏。然后我搜索整个电脑也没有lw2.doc和 lw0226.doc，也没有带有类似名称的文件。我去了word默认的自动保存的文件夹下面看，把所有.asd和.tmp后缀改称doc也没有找到，其中有部分改成doc说程序不支持，打不开。 电脑里面也没有找到c:\windows\temp文件夹 请问要怎么才能把文件找回来，非常重要 另外，1。文件不是被删除的，是保存之后自动不见的 2。我电脑设置是显示所有文件，不存在被隐藏掉找不到的可能 3。电脑中毒的可能性也是微乎其微，请54这种可能性 4。文件夹下面就少掉这一个文件 5。不用贴那段很长的关于“打开并修复”的文章了，没有用，而且我文件都找不到了，没有文件好修复 6。不存在换了word版本不兼容的问题，我一直用的是2007还是2006的版本，其间没有变过 Windows系统和许多软件在工作时都会产生临时文件，这些临时文件大都保存在Windows临时文件夹中。然而，Word却并不把其运行时的临时文件存放在Windows 临时文件夹中，而是存放在自己指定的文件夹中。比如，在WindowsXP中，Word指定的默认临时文件夹是“C押＼DocumentsandSettings＼用户名＼ApplicationData＼Microsoft＼Word”文件夹。如果你不知道对于你的系统而言，Word临时文件夹的位置，可用下述方法获取： 1．在Word“工具”菜单中，单击“选项”命令。 2．单击“文件位置”选项卡，“…自动恢复?文件”后的路径即为Word的临时文件夹。
Copy From 告别https://www.doczj.com/doc/e114019630.html,操作EXCEL的烦恼(总结篇) 公元19XX年前，关于EXCEL的操作就如滔滔江水，连绵不绝，真正操作EXCEL我也是从去年下半年开始的，有些比较复杂的年度报表之类的，做起来也有点费力，不过还是都能画出来了，关于EXCEL的报表导出，考虑到导出耗时的问题我主要采用AJAX来做的，分别捕捉几个起止状态，给客户端提示3个状态：正在检索数据。。。---》准备导出数据。。。(只是从数据库成功取出，还没有读写excel文件)--》正在读写文件--》导出数据成功，当然如果哪一过程出错，都有对应的提示，只所以想到写这篇文章，主要是因为今年有个系统的部分EXCEL的操作也让我做，顺便结合之前操作EXCEL的经验作一下总结，可能也算不上什么，对于绝大多数来说也没什么技术含量，网上一搜一大把，但我想还是有必要总结一下，至少能给园子里的新手些许帮助，OK,Let's Go... 一. 程序操作EXCEL的应用主要还是在统计报表方面，您可能会考虑读EXCEL模板，也可能会考虑没必要读模板，其实读不读模板都能达到一样的效果，看实际情况而用了。 1. 读模板的话，首先模板存放在某个路径下，根据模板把从数据库里取出的数据写回EXCEL然后生成一个新的EXCEL存放都另一个路径以供下载，模板不变。 我这里的EXCEL操作主要是在VS2005里的，VS2003也可以的，不过没怎么研究03里的操作(文章最后我会把05，03的示例下载地址贴上）vs05中操作EXCEL直接引用.NET自带的COM组件 ，添加后项目的bin目录下会自动出现 Interop.Excel.dll这个DLL（需安装office2003 excel，下面的说明及示例都是基于office2003的，版本不同调用可能会不一样） 页面的命名空间引用using Excel; 下面是调用模板的一段代码 1#region使用模板导出Excel表 2case"ReportByTemp": 3 { 4 5 DataView dv = Cache["ReportByTemp"] as DataView; 6//建立一个Excel.Application的新进程 7 Excel.Application app =new Excel.Application(); 8if (app ==null) 9 { 10return; 11 } 12 app.Visible =false; 13 https://www.doczj.com/doc/e114019630.html,erControl =true; 14 Workbooks workbooks = app.Workbooks; 15 _Workbook workbook = workbooks.Add(template_path +"\\EXCEL测试模板.xls");//这
竭诚为您提供优质文档/双击可除excel表格被覆盖了怎么恢复 篇一：数据恢复小技巧：如何恢复误删文件之excel表格 数据恢复小技巧如何恢复误删文件之excel表格 摘要：excel表格是众多文案工具中最重要的制作数据表格的工具之一，其中囊括的数据资料数量极多，却显得有条不紊，分类细致。除了能够囊括数据资料外，同样适用于文本资料及图片资料等，也能插入网址链接。如此神奇的excel表格自然受到了许多办公一族的欢迎，它为办公一族的工作带来了莫大的方便。然而，如此强大的数据容量也注定了一旦它被误删除，就会带来不小的麻烦。重新制作一个乃至几个对比的数据表格是需要花费极多的时间的，因此，掌握excel表格的数据恢复技巧显得十分重要。 一、如何避免excel表格丢失 鉴于excel表格囊括的数据量之大，以及丢失excel表格造成的偌大影响，学会保护好excel是极为必要的。不论是在表格完成制作前还是完成制作后，建议从细节上保护好excel表格。具体方法有以下几种（但不限于）：
1.在表格制作过程中及时保存。 对于每一步的数据输入来说都是需要耗费一定的时间的，因此，未防患于未然，也为意外情况发生时恢复的工作效率，建议你在制作excel表格过程中对每一步或每几步进行保存，这样，即便是中途计算机发生故障，或被强制断电等，也不必忧愁所做的数据全部因未保存而丢失。 2.在表格制作过程中不进行扫描杀毒等。 如果一方面制作excel表格，另一方面进行扫描杀毒，一来可能会影响计算机运行效率不说，二来在扫描杀毒过程完成后，计算机可能会自动重新启动，或提示你进行重新启动，而如果你刚好稍微不注意点了“是”，那么，还在制作中的表格就会离你而去了。当然，如果践行了第一种方法，也许后果会小一点。 3.及时备份。 当excel表格制作完成时，除了点击保存之外，还应做好备份工作。相应的备份工作可以同样选用excel表格模式存储在不同位置上，或者使用其他文档模式进行相应的转换备份。 4.不删除原资料。 当把所有的数据输入到excel表格后，或将相应图片插入其中后，先不删除所有的原资料。等到excel表格完成了它所有的价值，再考虑删除不必要的原文件也不迟。
ASP实例代码asp操作Excel类 asp操作Excel类： <% '******************************************************************* '使用说明 'Dim a 'Set a=new CreateExcel 'a.SavePath="x" '保存路径 'a.SheetName="工作簿名称" '多个工作表 a.SheetName=array("工作簿名称一","工作簿名称二") 'a.SheetTitle="表名称" '可以为空多个工作表a.SheetName=array("表名称一","表名称二") 'a.Data =d '二维数组'多个工作表array(b,c) b与c为二维数组 'Dim rs 'Set rs=server.CreateObject("Adodb.RecordSet") 'rs.open "Select id, classid, className from [class] ",conn, 1, 1 'a.AddDBData rs, "字段名一，字段名二", "工作簿名称", "表名称", true 'true自动获取表字段名 'a.AddData c, true , "工作簿名称", "表名称" 'c二维数组true 第一行是否为标题行 'a.AddtData e, "Sheet1" '按模板生成c=array(array("AA1", "内容"), array("AA2", "内容2")) 'a.Create() 'https://www.doczj.com/doc/e114019630.html,edTime 生成时间，毫秒数 'a.SavePath 保存路径 'Set a=nothing '设置COM组件的操作权限。在命令行键入“DCOMCNFG”，则进入COM组件配置界面，选择MicrosoftExcel后点击属性按钮，将三个单选项一律选择自定义，编辑中将Everyone 加入所有权限 '******************************************************************* Class CreateExcel Private CreateType_ Private savePath_ Private readPath_ Private AuthorStr Rem 设置作者 Private VersionStr Rem 设置版本 Private SystemStr Rem 设置系统名称 Private SheetName_ Rem 设置表名 Private SheetTitle_ Rem 设置标题 Private ExcelData Rem 设置表数据 Private ExcelApp Rem Excel.Application Private ExcelBook Private ExcelSheets
意外删除Excel文档的恢复方法【迷你兔数据恢复】 Microsoft Excel是微软公司的办公软件Microsoft office的组件之一，和Word、PowerPoint 并称为Microsoft office的三大重要组件。它可以进行各种数据的处理、统计分析和辅助决策操作，主要用来进行有繁重计算任务的预算、财务、数据汇总等工作。在Excel电子表格软件22年的发展中，它已经从一款小软件成为了现代人日常生活工作必不可少的数据管理、处理软件，并广泛地应用于管理、统计财经、金融等众多领域。 熟悉Excel的人都知道，制作Excel表格不仅只是简单的数据录入而已，这涉及到排版布局和一系列函数公式运用，是一项十分精密复杂的工作。因此重要的Excel文档除了对其进行加密之外，还会备份防止丢失。不过计算机每天会进行大量的数据写入和交换工作，保存在计算机上的数据也就随时面临着丢失的危险，特别是个人的一些误操作，很容易就会将制作好的Excel文档删除，遇到这种情况我们又该怎么办呢？ Excel和Word文档都是属于在丢失时容易被破坏的数据类型，为了避免数据覆盖和数据的二次破坏，降低数据恢复的难度，我们应该立刻停止对丢失分区的任何操作。 接下来我们就可以利用一款数据恢复软件——迷你兔数据恢复工具来恢复被意外删除的Excel文档了。之所以选择迷你兔软件是因为Excel文档内存通常较小，迷你兔工具可以免费恢复3G数据，而且支持最新的office文件类型恢复，恢复流程简化，耗费的时间也不多。未安装迷你兔的朋友可以在迷你兔官方网站免费下载安装。 百度搜索“迷你兔数据恢复”访问迷你兔官网，点击免费下载。（不要将软件安装到丢失分区） 怎样利用迷你兔数据恢复工具来恢复被删除的Excel文档呢？ 第一步：安装好迷你兔之后运行软件，在软件的操作主界面我们可以看到五个恢复模块，
1.ASP对Excel的基本操作 (1) 建立Excel对象 创建Excel对象可以通过下面的代码来实现: <% set objExcelApp = CreateObject("Excel.Application") objExcelApp.DisplayAlerts = false '不显示警告objExcelApp.Application = false '不显示界面 %> (2) 新建Excel文件 新建Excel文件可以通过以下代码来实现: <% objExcelApp.WorkBooks.add set objExcelBook = objExcelApp.ActiveWorkBook set objExcelSheets = objExcelBook.Worksheets set objExcelSheet = objExcelBook.Sheets(1) %> (3) 读取已有的Excel文件 读取已有的Excel文件可以通过下面的代码来实现 <% strAddr = Server.MapPath(".") objExcelApp.WorkBooks.Open(strAddr & "TempletTable.xls") set objExcelBook = objExcelApp.ActiveWorkBook set objExcelSheets = objExcelBook.Worksheets set objExcelSheet = objExcelBook.WorkSheets(1) %> (4) 另存Excel文件 另存Excel文件可以通过以下代码来实现 <% objExcelBook.SaveAs strAddr & "templateTables.xls" %> (5) 保存Excel文件 保存Excel文件可以通过以下代码来实现: <% objExcelBook.Save %> (6) 退出Excel操作 <%
excel文件误删怎么恢复 昨天打游戏之前刚弄完了一个计划，汗，为了这个计划，老板已经追杀我很久了，没办法，最近实在是太忙了，这个计划都是自己连夜赶出来的，所以一弄完就什么都不想看了，直接参加了朋友组的战队，开始在游戏里面疯狂的寻找安慰，现在的人，压力实在是太大了! 今晚确实玩得很爽了，一直玩到了半夜，累的要死，想到第二天还需要上班，就赶紧关电脑睡觉了，临睡的时候居然忘记将文件传到邮箱里面，但是已经关机了，就想着等第二天再来处理。但是让我意想不到的事情发生了，第二天开机一看，电脑桌面上的文件居然不见了，汗，这是怎么回事?于是我赶紧在电脑里面查找，不管是直接在每个磁盘查找还是利用搜索的功能进行查找，居然全部都没有发现，这是怎么呢?我有些郁闷，但是更多的是不知所措。 于是我赶紧到网上查询起原因来，汗，这个原因也够多的，什么不正常的关机，不正常的操作等等等等，说出来一大堆，但是我到底是那种，我自己都不知道，所以说，解决的办法我也不知道。不过最后，我找到了一个比较万能的功能，这款软件有一个挺好的功能，就是比较万能，比较全面，比较具有兼容。 学习并不难，只需要简单的了解一下操作的视频就好了，而且网上也有蛮多相关的教程文件查看的，大家喜欢看文档的也可以选择看教程，是真心不错的，大家试试效果就知道! 一款简洁、易用、快捷、安全的，恢复率高。主要用于在误删除、误格式化、病毒破坏等情况下进行数据文件，能够： 恢复误删除的文件和文件夹，并保持其目录结构； 对分区进行逐块扫描，根据数据格式恢复文件。 在误格式化后快速恢复分区原有的文件和文件夹，并重建目录结构； 在误删除分区后，快速恢复分区，并恢复分区中的所有文件；
<%@ LANGUAGE="VBSCRIPT" %> <%option explicit%>
Asp连接读取excel内容并导入到数据库asp连接excel Set connnew = Server.CreateObject("ADODB.Connection") 'hdr取值yes,no ,表示第一行是否为字段名 connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(“test.xls”)&";Extended Properties='Excel 8.0;HDR=No;IMEX=1';" connnew.open connstr Set rsnew=Server.CreateObject("ADODB.Recordset") 'Sheet1为excel里面的表名，表名后面一定要加$ sqlnew = "select * from [Sheet1$]" rsnew.open sqlnew,connnew,1,1 'rows是读取的excel里面数据的行数 rows=rsnew.recordcount 'cells是读取excel里面数据的列数 cells=rsnew.Fields.Count 输出记录集rsnew里面的数据，规则是这样的： 如果HDR赋值是No的话 rsnew(0)输出的是excel里第一行第一列的内容 如果HDR赋值是Yes的话 rsnew(0)输出的是excel里第二行第一列的内容
如果想输出第二行的内容，只需在语句前加rsnew.movenext 输出就这么简单的完成了！ 连接网站数据库，相信各位程序猿都已经会了。要做的就是用sql语句判断要导入的数据是否存在，存在用update修改一下。不存在的话addnew重新插入一条即可。 如果想要实现上传excel后导入的话，可以加上一个上传程序，将上传后的excel 路径传输到asp连接excel的字符串里面。 asp读取excel并导入数据库就完成了，如果有不明白的可以联系作者！ 注意事项 ? 注意excel里的表名是不是Sheet1.不是话注意和程序保持一致 程序只适合固定模板excel使用。如果excel格式不同，无法使用这个程序统一导入。
ASP生成Excel文件方法 方法一：导出到csv文件，存放在服务器端任一路径，然后给客户下载优点： 1、可以进行身份认证后给客户下载，如果放到非web目录就没有对应的url，客户无法随时下载。 2、也是因为生成了文件，所以占用了服务器的空间，但是可以把文件名存放到数据库，再次给客户下载的时候不需要重复生成文件。 3、csv文件是文本文件，逗号隔开字段，回车隔开行，易于数据导入导出。 实现方法： SqlConnection conn=new SqlConnection("conn"])； SqlDataAdapter da=new SqlDataAdapter("select*from tb1",conn)； DataSet ds=new DataSet()； da.Fill(ds,"table1")； DataTable dt=ds.Tables["table1"]； string name="downloadurl"].ToString()+"yyyyMMdd")+new Random(".csv"；//存放到web.config中downloadurl指定的路径，文件格式为当前日期+4位随机数 FileStream fs=new FileStream(name,FileMode.Create,FileAccess.Write)； StreamWriter sw=new StreamWriter(fs,"gb2312"))； sw.WriteLine("自动编号,姓名,年龄")； foreach(DataRow dr in dt.Rows) { sw.WriteLine(dr["ID"]+","+dr["vName"]+","+dr["iAge"])； } sw.Close()；
怎么恢复被删除的Excel文档 作为传统的数据表格处理程序，微软的Excel应该算是国际上市场占有率最高的应用软件之一了。Microsoft Excel是微软公司出品的服务于企业的办公软件套装的一个非常重要的组成部分，其主要的功能是高效地对各种数据资料进行整合汇总，数据深层挖掘，数据分析与统计等，经常被用在数据管理和统计业务以及财务报表，金融等领域。可以这么说，在国内的绝大多数已经使用计算机的中小企之中，99%都会安装使用Microsoft Excel，其中Microsoft Excel 2003作为其中的旗舰产品，一直到今天都被广泛的使用。 方法/步骤 1. 1 由于Microsoft Excel在数据处理上的广泛使用，也衍生了不少的问题。其中Microsoft Excel数据丢失的问题一直为人诟病。但经过多次的升级补丁的修复之后，Excel出问题的频率已经大大减少了。反而很多情况下是使用者自身误操作导致的数据丢失，又或者其他意外的问题导致了数据无法读取出来。
2. 2 我们通常计算机上都会安装杀毒软件，但是如果杀毒软件本身存在误杀的情况，那么也很有可能会将Excel文档认为是病毒程序进行删除处理，或者直接禁止访问读取。例如之前的国内某著名杀毒软件的“误杀门”，就将不少用户的系统程序都删除了，导致无法开机或者蓝屏；还有一种情况，如果同时打开太多的程序那么软件之间的冲突也可能会造成Excel强行关闭，这样的话没有 保存的数据也会丢失不见。
3.3 作为Excel开发商的微软当然也意识到了这个问题，因此在Excel程序之中集中整合了恢复的程序。但是毕竟不是专业的数据恢复软件，因此有很多问题都无法得到解决。 4.4 所以数据丢失的时候就需要使用到专业的数据恢复软件了，在网上找到一款数据恢复软件，之后下载安装好，一步一步按照指示进行数据恢复，就能找回excel数据
误删资料恢复 一不小心，删错了，还把回收站清空了，咋办啊？ 只要三步，你就能找回你删掉并清空回收站的东西 步骤： 1、单击“开始——运行，然后输入regedit （打开注册表） 2、依次展开：HEKEY——LOCAL——MACHIME/SOFTWARE/microsoft/WINDOWS/ CURRENTVERSION/EXPLORER/DESKTOP/NAMESPACE 在左边空白外点击“新建”，选择：“主键”，把它命名为“645FFO40——5081——101B——9F08——00AA002F954E”再把右边的“默认”的主键的键值设为“回收站”，然后退出注册表。就OK啦。 3、要重启计算机。 只要机器没有运行过磁盘整理。系统完好.任何时候的文件都可以找回来。 也许你已经在Excel中完成过上百张财务报表，也许你已利用Excel函数实现过上千次的复杂运算，也许你认为Excel也不过如此，甚至了无新意。但我们平日里无数次重复的得心应手的使用方法只不过是Excel全部技巧的百分之一。本专题从Excel中的一些鲜为人知的技巧入手，领略一下关于Excel的别样风情。 一、让不同类型数据用不同颜色显示 在工资表中，如果想让大于等于2000元的工资总额以“红色”显示，大于等于1500元的工资总额以“蓝色”显示，低于1000元的工资总额以“棕色”显示，其它以“黑色”显示，我们可以这样设置。 1.打开“工资表”工作簿，选中“工资总额”所在列，执行“格式→条件格式”命令，打开“条件格式”对话框。单击第二个方框右侧的下拉按钮，选中“大于或等于”选项，在后面的方框中输入数值“2000”。单击“格式”按钮，打开“单元格格式”对话框，将“字体”的“颜色”设置为“红色”。 2.按“添加”按钮，并仿照上面的操作设置好其它条件(大于等于1500，字体设置为“蓝色”；小于1000，字体设置为“棕色”)。 3.设置完成后，按下“确定”按钮。 看看工资表吧，工资总额的数据是不是按你的要求以不同颜色显示出来了。 二、建立分类下拉列表填充项 我们常常要将企业的名称输入到表格中，为了保持名称的一致性，利用“数据有效性”功能建了一个分类下拉列表填充项。 1.在Sheet2中，将企业名称按类别(如“工业企业”、“商业企业”、“个体企业”等)分别输入不同列中，建立一个企业名称数据库。 2.选中A列(“工业企业”名称所在列)，在“名称”栏内，输入“工业企业”字符后，按“回车”键进行确认。 仿照上面的操作，将B、C……列分别命名为“商业企业”、“个体企业”…… 3.切换到Sheet1中，选中需要输入“企业类别”的列(如C列)，执行“数据→有效性”命令，打开“数据有效性”对话框。在“设置”标签中，单击“允许”右侧的下拉按钮，选中“序列”选项，在下面的“来源”方框中，输入“工业企业”，“商业企业”，“个体企业”……序列(各元素之间用英文逗号隔开)，确定退出。 再选中需要输入企业名称的列(如D列)，再打开“数据有效性”对话框，选中“序列”选项后，在“来源”方框中输入公式：=INDIRECT(C1)，确定退出。 4.选中C列任意单元格(如C4)，单击右侧下拉按钮，选择相应的“企业类别”填入单元格中。然后选中该单元格对应的D列单元格(如D4)，单击下拉按钮，即可从相应类别的企
用模板生成Excel、Word最大优点： Word、Excel文档样式易于控制和调整，以往用Excel.Application来生成Excel、Word，需要写很多代码来控制排版的样式，用模版几乎不受任何限制，只需要打开word或Excel，编辑文档，选择"文件->另存为web页"，即可方便的做好模板，用office生成的模板要比直接在DW中做好模板更加符合office偏好，生成后文件样式可与原word、Excel格式99%一样，因此建议大家用office（office97～office2003）直接来生成模板框架。 主要的代码 function.asp 复制内容到剪贴板代码: <% ''开启容错机制 on error resume next '功能，检测服务器是否支持指定组件 Function object_install(strclassstring) on error resume next object_install=false dim xtestobj set xtestobj=server.createobject(strclassstring) if -2147221005 <> Err then object_install=true set xtestobj=nothing end function if object_install("Scripting.FileSystemobject")=false then Response.Write "
使用asp怎样将数据导出到excel文件 Web 注意：两个函数中的“data“是网页中要导出的table的 id 导出到Excel代码 导出到Word代码