[我的WORD文档一打开就提示说 Word无法创建工作文件请检查临]付费内容限时免费查看 回答 1、运行regedit，打开注册表； 2、找到 ⑴、HKEY_USERS\S-1-5-19\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders ⑵、HKE...+阅读
插入代码
Dim Fso As New FileSystemObject
Dim Fld As Folder
Dim sRow As Single
Sub FileSearchTools()
Dim SrchDir As String, SrchString As String
Dim fDialog As FileDialog
sRow = 0
Set fDialog = Application.FileDialog( _
msoFileDialogFolderPicker)
If fDialog.Show = -1 Then
SrchDir = fDialog.SelectedItems(1)
Else
MsgBox ＂没有选择任何目标文件夹！＂， _
vbCritical， ＂文件搜索工具＂
Exit Sub
End If
SrchString = InputBox（＂请输入搜索的文件类型：＂， _
＂文件类型＂， ＂*.*＂）
If Len(SrchString) = 0 Then SrchString = ＂*.*＂
With ActiveSheet.Columns(1)
.Cells.Clear
Call FileFind(SrchDir, SrchString)
.AutoFit
End With
End Sub
Private Sub FileFind(ByVal SrchFld As String, _
SrchFile As String, _
Optional SrchDir As Boolean = True)
Dim tFld As Folder
Dim dirFName As String
On Error GoTo ErrHandle
Set Fld = Fso.GetFolder(SrchFld)
dirFName = Dir(Fso.BuildPath(Fld.Path, SrchFile), _
vbNormal Or vbHidden Or vbSystem Or vbReadOnly)
While Len(dirFName) <> 0
sRow = sRow + 1
With ActiveSheet
.Hyperlinks.Add Anchor:=.Cells(sRow, 1), _
Address:=Fso.BuildPath(Fld.Path, dirFName), _
TextToDisplay:=dirFName
End With
dirFName = Dir()
Wend
If Fld.SubFolders.Count > 0 And SrchDir Then
For Each tFld In Fld.SubFolders
Call FileFind(tFld.Path, SrchFile)
Next
End If
Exit Sub
ErrHandle:
MsgBox ＂运行错误！＂， vbCritical， ＂文件搜索工具＂
End Sub
延伸阅读：
打开office时提示word无法创建工作文件请检查临时环境变量1.不加载数据注册表子项，启动Word程序。 第1步，依次单击“开始”“运行”，打开“运行”对话框。然后单击“浏览”按钮，找到选中程序“WinWord.exe”，然后单击“打开”按钮.查找Wi...
苏教版七年级下册音乐目录歌曲分别是？？曲目 作者 页码《壮乡美》 广西壮族民歌 2《山上茶花朵朵开》 广西瑶族民歌 4《好花红》 贵州布依族山歌 5《赶摆路上》 张光辉，田丰 6《蝴蝶泉边》 季康，雷振邦 7《赶圩归来...
word打开时提示不能创建工作文件请检查临时环境变量该怎么处我的电脑--〉右键属性--〉高级--〉环境变量-->用户变量 TEMP \TMP 还有下面的系统环境变量 TEMP\TMP也编辑设置为：%SystemRoot%\TEMP 然后，在系统盘的Documents and Settings...
电脑提示Word无法创建工作文件请检查临时环境变量怎么解决1.不加载数据注册表子项，启动Word程序。第1步，依次单击“开始”“运行”，打开“运行”对话框。然后单击“浏览”按钮，找到选中程序“WinWord.exe”，然后单击“打开”按钮.查找Win...
office2010word无法创建工作文件请注意临时环境变量没遇到过这样的情况，下面是网上找的，不知道能不能帮到你：1.不加载数据注册表子项，启动Word程序。第1步，依次单击“开始”“运行”，打开“运行”对话框。然后单击“浏览”按钮，找到...
五年级下册人教版音乐目录一.北国之声 欣 赏 北京的孩子逛北京 欣 赏 驯鹿 欣 赏 冬猎 唱 歌 美丽的家乡 二.五十六朵花 唱 歌 吹起羌笛跳锅庄 欣 赏 瑶族舞曲 唱 歌 阿喽喽 三.母亲河 唱 歌 长江我...
摘抄汪曾祺的散文目录附图摘抄与简评 300字共八篇急用从不言岁月给我的磨练，一路上有你，山山水水，曲曲折折，风风雨雨都是美景，时间不长也不短，刚刚填补好我们之间的鸿沟，年年岁岁，岁月的四季轮回，又转入秋。秋它很美，一个是景，一个是静，还有...
如何写关于制作文件头的请示求教了急急急！1、 对有批复缺请示的处理 ：一般讲，有批复肯定有请示，如缺请示文件，应认真查询。一是找承办请示事项的部门或个人查询，二是找发出请示的单位查询，找出请示后与批复一起归档。 2、...
六年级下册美术目录第一课 请到无害商店来——2 第二课 城市灵光————--5 第三课 俯瞰山川—————8 第四课 画坛巨匠————-11 第五课 音乐会————---14 第六课 瓶花与水果———-1...
