CopyFromRecordset to Excel копирует только номера - PullRequest
0 голосов
/ 08 декабря 2018

Я пытаюсь скопировать весь набор записей на лист Excel, но он правильно копирует только цифры.Ячейки, где должен быть текст, пустые.Кто-нибудь может мне помочь?

Вот мой код:

public cn As New ADODB.Connection
public rs As New ADODB.Recordset
public rs2 As New ADODB.Recordset
public strFile$, strCon$, strsQL$

Sub macro() 
    strFile = ThisWorkbook.Path & "\" & ThisWorkbook.Name
    cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"
    cn.CursorLocation = adUseClient
    cn.Open
    strsQL = "SELECT A, B, C FROM SqlTable5"
    rs.Open strsQL, cn

    Set rs2 = rs.Clone
    For iCols = 0 To rs2.Fields.Count - 1
        ThisWorkbook.Sheets("test").Cells(1, iCols + 1).Value = rs2.Fields(iCols).Name
    Next
    ThisWorkbook.Sheets("test").Range("A2").CopyFromRecordset rs2
    rs.Close
    rs2.Close
    cn.Close
    Close Connection
    Set rs = Nothing
    Set cn = Nothing
End Sub

SqlTable5 установлен в диспетчере имен.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...