时间戳

首页 > 解决方案 > 使用 ADO VBA 将选择性列从一个工作表复制到另一个工作表

excel - 使用 ADO VBA 将选择性列从一个工作表复制到另一个工作表

问题描述

我有一张表，其中包含带有选择性列名的第一行，我想用使用 ADOSummary data从表中提取的数据填充该表。Paste data我写了以下代码：

Sub CreateSummaryData()
Dim oCon As Object, oRec As Object
Dim strSQL As String
Dim wb As Workbook, wk1 As Worksheet, wk2 As Worksheet
Dim xLastColumn As Long, xLastRow As Long, i As Integer
Dim xCell, xRng As Range

On Error Resume Next
Set wb = ThisWorkbook

Set wk1 = wb.Worksheets("Paste Data")
Set wk2 = wb.Worksheets("Summary of data")

Set oCon = CreateObject("ADODB.Connection")
Set oRec = CreateObject("ADODB.Recordset")

With oCon
    .Open Join$(Array("Provider=Microsoft.ACE.OLEDB.12.0; Data Source='" & _
    wb.FullName & "';Extended Properties=""Excel 12.0; HDR=YES;IMEX=0"""), vbNullString)
End With

With wk2
    xLastColumn = .Range("1:1").Cells(.Columns.Count).End(xlToLeft).Column
    If xLastColumn = 1 Then Exit Sub
    
    Set xRng = .Range(.Cells(1, 1), .Cells(1, xLastColumn))
    
    strSQL = ""
    strSQL = "SELECT "
    For Each xCell In xRng
        strSQL = strSQL & "[" & xCell.Value2 & "],"
    Next xCell
    strSQL = Left(strSQL, Len(strSQL) - 1)
    strSQL = strSQL & " FROM [" & wk1.Name & "$]"
End With

With oRec
    .Open strSQL, oCon, 3, 3
End With

wk2.Range("A2").CopyFromRecordset oRec

With oCon
    .Close
End With

Set oRec = Nothing
Set oCon = Nothing

End Sub

问题是Paste Data工作表列在其名称之间包含空格或点。我认为这就是 ADO 记录集显示为空并出现“对象关闭时不允许操作”错误的原因。

列名是这样的：

+-----------+---------+---------+------+------------------+-----+-----+-----+-----+-----+------------+------------+------------+------------+------------+------------+
| segmentId | segment | concept | type | metric.base.size | p.5 | p.4 | p.3 | p.2 | p.1 | fitted.p.5 | fitted.p.4 | fitted.p.3 | fitted.p.2 | fitted.p.1 | Mean Value |
+-----------+---------+---------+------+------------------+-----+-----+-----+-----+-----+------------+------------+------------+------------+------------+------------+

我曾尝试使用“[”或“`”来封装列名，但不是很有帮助。有没有办法在 ADO 本身中处理此问题，而无需在Paste data或工作Summary of data表中操作列名？

非常感激任何的帮助。

编辑：

评论后On error resume next，我在换行符上收到以下错误，即当它遇到带有“。”的第一个列名时 在其中，即metric.base.size：

在此处输入图像描述

我也尝试了这篇文章中给出的解决方案，但出现以下错误： 在此处输入图像描述

这是我在遵循上述帖子后格式化的完整列名。我也尝试用“[”括号和“`”括起来，但得到了同样的错误。是不是因为有不止一个“。” 还是列中的“”？

SELECT `segmentId`,`exerciseConceptId`,`ConceptName`,`ConceptType`,`Groups`,`Segment`,`metric#base#size`,`fitted#p#5`,`fitted#p#4`,`fitted#p#3`,`fitted#p#2`,`fitted#p#1`,`MeanFrequency`,`MeanUnitsFav`,`MeanValue` FROM [Paste Data$]

标签： excelvbaoffice365ado

解决方案

这对我有用 - 将字段名称中的任何句点替换为#

For Each xCell In xRng
    strSQL = strSQL & "[" & Replace(xCell.Value2, ".", "#") & "],"
Next xCell

这是您链接帖子中的解决方案-您没有为此显示所有代码，因此我不确定为什么它对您不起作用。

推荐阅读