VBA Remove Underscore из имени столбца набора записей, когда в ячейке, содержащей имя столбца, есть разрыв строки - PullRequest
Новая
       64

VBA Remove Underscore из имени столбца набора записей, когда в ячейке, содержащей имя столбца, есть разрыв строки

0 голосов
/ 28 февраля 2019

При извлечении имен столбцов из набора записей, если заголовок столбца имеет разрыв в строке, например: («Имя столбца vbNewLine») или
(«Столбец
Имя»)
приведенный ниже код возвращает подчеркивание в строковой переменной и теперь будет выглядеть как «Column_Name».

Я пытаюсь сопоставить заголовки из нескольких рабочих книг, и это заменяет строки на потенциальное совпадение.

Как можно вернуть имя столбца без подчеркивания, если в строке есть разрывячейка?

Кроме того, имейте в виду, что простая замена не будет работать, поскольку некоторые заголовки столбцов могут содержать подчеркивание. 

Dim ado As Object
Set ado = CreateObject("ADODB.Connection")

With ado
    .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data source=" & filepath & ";Extended Properties=""Excel 12.0; HDR=YES; IMEX=1""; Mode=Read;"
    With .OpenSchema(20)
        Dim table As String
        Dim rs As Object
        table = .Fields("TABLE_NAME")
        Set rs = ado.OpenSchema(4, Array(Empty, Empty, table))
        rs.MoveLast
        While Not rs.BOF
            Debug.Print rs!COLUMN_NAME
            rs.MovePrevious
        Wend
    End With
End With
...