VBA中不打开excel用SQL读取excel数据问题

A5585202

VBA中不打开excel用SQL读取excel数据问题

请教各位大侠：

小弟遇到一个难题，不打开excel，用SQL读取excel数据。

目标excel如果放在本机上，读取数据正常；如果目标excel放在局域网共享盘上，读取数据时会打开目标excel，请问这是什么原因。

以下代码供参考：

Sub readdatafromsheet()

Dim cnn As Object, SQL$
Dim Path
'Path = "S:\DEPT\ASC\Calibration Data Sheet"   '这是共享盘路径
Path = ThisWorkbook.Path                              ’这是本机电脑路径
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties='Excel 12.0;imex=0';Data Source=" & Path & "\2#测试机.xlsx"
    SQL = "SELECT * FROM [Sheet1$]"
    Set rs = cnn.Execute(SQL)

    cnn.Close
    Stop
    Set rs = Nothing
    Set cnn = Nothing


End Sub

A5585202

有没有高手指导一下？谢谢

魂断蓝桥

我这里试了一下，没有问题。

因为局域网电脑装的是03，所以用的03格式的，你照着试一下。

Sub readdatafromsheet()

Dim cnn As Object, SQL$, i%
Dim Path
Path = "\\USER-20150305RK\\p\\1.xls"
    Set cnn = CreateObject("ADODB.Connection")
For i = 1 To 1000
    cnn.Open "Provider=Microsoft.Jet.OleDb.4.0;Extended Properties='Excel 8.0;HDR=YES'; Data Source=" & Path
    SQL = "SELECT * FROM [Sheet1$]"
Cells.ClearContents
[a2].CopyFromRecordset cnn.Execute(SQL)
    cnn.Close
Next
    Set cnn = Nothing
End Sub

A5585202

魂断蓝桥 发表于 2018-3-26 15:25
我这里试了一下，没有问题。

因为局域网电脑装的是03，所以用的03格式的，你照着试一下。

谢谢大侠
再上传一下实际操作过程画面，第一次路径是文件放在共享服务器上，运行时自动打开了文件；第二次路径改在本机桌面，运行时不会打开excel。

A5585202

魂断蓝桥 发表于 2018-3-26 15:25
我这里试了一下，没有问题。

因为局域网电脑装的是03，所以用的03格式的，你照着试一下。

大师，试了你的方法，03版的excel，运行没有问题。

A5585202

顶一下，请高手帮忙看看！

873767705

你好大侠，我也有一个问题在不打开Excel时读取其中的数据，但看原帖没太明白，可以私聊吗？我的QQ:873767705

873767705

魂断蓝桥 发表于 2018-3-26 15:25
我这里试了一下，没有问题。

因为局域网电脑装的是03，所以用的03格式的，你照着试一下。

你好大侠，我也有一个问题在不打开Excel时读取其中的数据，但看原帖没太明白，可以私聊吗？我的QQ:873767705

魂断蓝桥

873767705 发表于 2018-4-28 08:36
你好大侠，我也有一个问题在不打开Excel时读取其中的数据，但看原帖没太明白，可以私聊吗？我的QQ:873767 ...

用vsflex8.ocx 控件吧，都不需要循环，load 就行了。

速度贼快。

新建文件夹.rar (260.42 KB, 下载次数: 79)

2018-5-2 15:02 上传

点击文件名下载附件

魂断蓝桥

Private Sub CommandButton1_Click()
Dim myfile$, i%
'myfile = Application.GetOpenFilename("Excel文件,*.xls")
myfile = "\\192.168.1.199\\p\\求助.xls"
If myfile = "False" Then Exit Sub
With Me.VSFlexGrid1
    .Clear
    .LoadGrid myfile, flexFileExcel, 0
    .ColWidth(0) = 800
    For i = 1 To .Cols - 1
        .TextMatrix(0, i) = .TextMatrix(1, i)
    Next
    .TextMatrix(0, 0) = "序号"
    .RemoveItem (1)
     For i = 1 To .Rows - 1
        .TextMatrix(i, 0) = i
    Next
    .Font.Name = "微软雅黑"
    .Font.Size = 9
    .GridColor = vbBlack
    .ColAlignment(-1) = 4
End With
End Sub

Private Sub CommandButton2_Click()
Dim myfile$, i%
myfile = Application.GetSaveAsFilename(fileFilter:="*.xls, *.xls")
If myfile = "False" Then Exit Sub
Me.VSFlexGrid1.SaveGrid myfile, flexFileExcel, 1
End Sub