I'm working on a big Access 2003 project with Microsoft Access 2007­. Recently, some users have started to experience problems with the buttons in my forms. For example, without any specific reason, clicking on a button or trying to execute any code will return the error:
File not found
There is no way to go into debug mode. When this happens the only thing to do is to restart the database. I tried adding the Stop command at the beginning of the executed block to try debugging it, but no code is executed at all. It's like a compilation error but it's only happening 5-10% of the time, which is really weird.
After some research, I found other people are having the same problem, for example this and this link. There are other examples too, with no real solutions yet.
My database can be okay for a week and then the problem starts to happen again. Half the time and users can't do much; they need to restart the database once or twice to get it back working, and after a few minutes the error might happen again.
Because this is Access 2007 and there are a lot of people experiencing this bug, I can't believe it isn't more documented.
What's the problem? Is the database somehow partially corrupted? What should I do? This is really annoying.
解决方案
If I was in this situation one of the first things I would try would be to do a complete decompile+compact+recompile operation on the front-end database file, and then distribute that updated front-end out to the users to see if that improves things.
Detailed instructions on the decompile+compact+recompile steps are available here. Note: Be sure to read David W. Fenton's additional recommendations in his answer.

                    
    选择系统分类的时候竟然找不到和VBA相关的，甚至连Office相关的项也没有，是不是因为这些方面太低级了很丢人哪。
 
    下面简单说一下在用VBA开发的时候如何遍历某一目录中的文件，从而对其进行处理。
    现实应用中，常常会遇到这样的情况，某个目录下有大量的Excel数据文件，现在需要对这些文件中的数据进行批量处理。现在的问题就来了，由于每次生成的数据文件名称都不固定，所以无法在程序中直接写死。其实通过VBA内置的Dir函数可以解决这一问题。

Sub DirTest() 

        Do 

                xlsName = Dir("D:\ExcelTest\*.xls") 

                If xlsName = "" Then 

                        Exit Do 

                End If 

                Workbooks.Open Filename:="D:\ExcelTest\" & xlsName 

                Workbooks(xlsName).Close savechanges:=False 

                Kill "D:\ExcelTest\" & xlsName 

        Loop 

End Sub

    此处是假设需要处理的数据文件全部在“D:\ExcelTest\”目录下，实际应用中可根据情况更改。以下对此过程作一些简要说明。
    1.先插入一个过程，并且加入Do……Loop循环，从而实现对所有的文件进行处理
    2.定义一个变量xlsName（名称可根据自己爱好随便取，但建议是好记的名称，由于VBA可以不申明，直接使用，所以我这里偷懒，把定义的语句省略掉了，默认情况下执行是没有任何问题的。如果在VBA环境中设置了强制申明，则需要添加定义变量的语句）。
    3.通过一个If……End If来判断，取得的文件名是否是空（如果为空，则说明文件处理完毕），如果为空，则退出循环。
    4.打开取得的文件名对应的文件
    5.对数据进行相应处理（这里并没有写这些语句，实际使用时可根据自己的情况添加数据处理的语句）
    6.关闭刚打开的文件
    7.删除已经处理过数据的文件（如果这些数据还有他用，建议将其备份，在打开文件后，使用SaveAS另存为也可。
    8.过程结束。
 
    如何查看Dir（）函数更加详细的说明，可直接在VBA编辑器中输入Dir，右键点击Dir，然后在快捷菜单中选择“定义”，在打开的“对象浏览器”中，右键单击Dir，然后选择“帮助”，即可查看Dir的详细帮助及示例。





     本文转自windyli 51CTO博客，原文链接：http://blog.51cto.com/windyli/280988，如需转载请自行联系原作者






        
        
                
    

都知道excel中有一个库文件，一些对excel有深入了解的有可能会需要使用这个excel的库文件，你知道excel的库文件在哪里吗，一般来说excel的库文件放在了安装目录下，但是到了不是自己的电脑下就找不到库文件了，我们可以通过VBA来找到excel库文件的路径。
我们在excel中写下的VBA语句来显示EXCEL库文件的路径。Public Sub EXCEL库文件路径() MsgBox "Application.LibraryPathEnd Sub 运行这个VBA之后，会在EXCEL中显示一个对话框，标明EXCEL库文件的路径。
我们在excel中利用VBA找库文件路径的命令是Application.LibraryPath，其中LibraryPath就是EXCEL库文件路径，在VBA中，我们可以快速的掌握VBA的语法，因为VBA大部分使用了英文原词，所以说有点英文基础的朋友，都会很轻松掌握excel的VBA的。

Hello，大家好，之前跟大家分享了使用excel中的power query功能制作一个文件管理器，但是很多分析反应自己的excel版本不够高，无法使用，今天就跟大家分享如何使用宏表函数制作文件管理器，他也是可以实现文件刷新的，这个的操作也不难，下面就让我们来看下他是如何设置的
一、什么是宏表函数以及FILES函数
宏表函数是早期低版本excel的产物，它是vba的前身，现在已经被vba完全取代了，但是我们仍然可以使用它，只不过需要通过定义名称来使用。我们只做文件管理器需要用到FILES这个宏表函数
FILES函数：返回指定目录下的文件名
第一参数：path，文件路径
他仅仅只有这一个参数，在函数的参数中我们可以使用通配符，excel中的通配符有两个
？:问号代表任意单个字符
*：星号代表任意多个字符
二、定义名称
想要使用宏表函数我们就必须要定义名称，所以第一步就需要定义名称，首先我们先复制文件路径，然后我们点击定义名称，将名称设置为：ww(这个可以自行设置)，然后在引用位置中输入函数：=FILES("F:文件*.*")&T(RAND())点击确定
简单的跟大家介绍下这个函数，在这里我们定义的函数分为两个部分
第一部分：FILES("F:文件*.*")，这个宏表函数的作用是获取文件的路径，在这里后面的星点星，是通配符，前面的一个星代表文件名称，后面的星代表文件的扩展名
第二部分：T(RAND())，这个函数的作用是使宏表函数能够自动的刷新数据，因为宏表函数本质上也是vba，vba是无法刷新数据的，我们使用重新再运行一次
二、制作文件管理器
紧接着我们在文件路径中输入函数; =IFERROR("F:文件"&INDEX(ww,ROW(A1)),"")来获取文件路径
在文件名中输入函数：=IFERROR(INDEX(ww,ROW(A1)),"")，来获取文件名
在超链接中输入函数：=HYPERLINK(A2,B2)，来制作一个自动跳转的超链接
简单的跟大家介绍下函数，获取文件路径的函数他可以分为三个部分
第一部分就是文件夹路径："F:文件"，在这里我们使用链接符号将它与文件名字链接在一起
第二部分获取文件名称：INDEX(ww,ROW(A1))，在这里我们使用index函数获取文件名称，将第一参数设置为刚才定义的名称，将第二参数设置为ROW(A1)，这样的话当我们向下拖动函数的时候就会获得一个123456…的序列，来保证我们提取到每个工作表明恒
第三部分：使用IFERROR函数来屏蔽错误值，因为在这里我们使用的是函数来获取的文件名称，所以我们需要向下多拉一些公式，才能保证添加文件后能自动获取文件，比如，文件有10个，尽量拉20个公式，让公式的数量大于文件个数即可
三、注意事项
因为是使用宏表函数来获取的文件路径，所以我们需要将文件的格式另存为xlsm格式，也就是可以保存vba代码的格式。当我们香文件夹中添加新的文件的时候，需要双击文件路径已经文件名这两列来刷新数据
以上就是我们使用宏表函数来制作文件管理器的方法，使用这种方法无视excel版本，全部都可以使用
怎么样？你学会了吗？我是excel从零到一，关注我持续分享更多excel技巧