1

我第一次使用stackoverflow，所以这里......

当我尝试在 excel 中运行用于从 CSV 文件中提取数据的宏时，我间歇性地遇到错误。如果我开始一个新的会话，错误通常会消失，但这次它特别持久。它基本上在下面的 .Open 行上出错，给我一个“运行时错误'2147467259'（80004005）未指定错误”：

Public Sub LoadFile()

file_path = Range("FlatFileLocation")

Set oConn = CreateObject("ADODB.Connection")

strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & file_path & "; Extended Properties=""text;HDR=Yes;FMT=Delimited(,)"";"

oConn.Open strcon

.....

其他信息：

1）我试图访问的文件没有被其他用户打开

2）我在子结束时关闭了我的连接。另外，我刚刚尝试重新启动我的机器，并且在我第一次尝试运行文件时发生了错误

3）当我在没有任何现有插件的情况下打开会话时，它似乎可以工作。有没有办法检查是否存在某种插件冲突？

还有其他帖子建议使用CSVReader。在尝试这条路线之前我的问题是：

1）我可以在多台用户机器上使用这个 CSVReader 吗？我在这里遇到的问题是需要在多台机器上安装它。不过，我也许可以将文件放在共享驱动器上。

2) 我可以用 SQL 字符串查询结果文件吗？目前我使用这样的东西：

....
strsql = "SELECT * FROM ( " & strsql & " ) WHERE ( ABS(PrevRisk) + ABS(CurrRisk) >= " & RiskThreshold & " ) ;"
Set oResult = New ADODB.Recordset
oResult.Open strsql, oConn
....

在此先感谢您的帮助！

4

0 回答 0