SQL查询语句调用自身文件占用资源大的处理方法

zcxqwef

SQL查询语句调用自身文件占用资源大，使运行速度慢。我的处理方法是这样的：
1、将自身文件复制到C盘，然后到复制的文件中去查询。
2、查询完毕，再删除之。
速度可提高很多。现发到网上，供大家参考。

zcxqwef

Sub AAA()
Dim fso, f1, f2, s
Dim File_name As String
'创建FSO
Set fso = CreateObject("Scripting.FileSystemObject")
'获取当前工作簿包括路径的名称
File_name = ActiveWorkbook.FullName
'获取当前工作簿文件的句柄。
Set f1 = fso.GetFile(File_name)
'复制当前文件到 c:\ 并改名为：WEF_ADO_1964.xls
f1.Copy ("c:\WEF_ADO_1964.xls")
'==================================
'。。。。。。。。这里是代码
'。。。。。。。。。。。

'============================中间代码运行后，再删除之
    '获取"c:\WEF_ADO_1964.xls"文件的句柄。
   Set f1 = fso.GetFile("c:\WEF_ADO_1964.xls")
    '删除文件。
  f1.Delete
End Sub

lb_bn

thisworkbook.changefileaccess = xlreadonly
.........
thisworkbook.changefileaccess = xlreadwrite

这样亦可.

zcxqwef

原帖由 lb_bn 于 2010-3-27 19:21 发表
thisworkbook.changefileaccess = xlreadonly
.........
thisworkbook.changefileaccess = xlreadwrite

这样亦可.

这样真简单，学习了。我想了半天才想出自己的笨方法。

clarkldq

谢谢两位的分享。

zcxqwef

原帖由 lb_bn 于 2010-3-27 19:21 发表
thisworkbook.changefileaccess = xlreadonly
.........
thisworkbook.changefileaccess = xlreadwrite

这样亦可.

我试了，不知将这两句插在哪，能解释一下意思吗？

lb_bn

在建立connection前加xlreadonly一句
在执行sql后加xlreadwrite一句
可以参考这个帖:
http://club.excelhome.net/thread-521344-1-1.html

zcxqwef

谢谢，今天测试成功，确实是个好办法。