VBA抽取特定数据出现代码错误

tsesiuwai

大家好，

小弟我想把总表的特定数据（EHS部门）抽取到KKND DETAILS这个表格里面，模仿了论坛内一位仁兄的代码，可是还是出现错误，麻烦大家帮忙看看。感激不尽！

liulang0808

sq那个字符串，楼主检查下看看是否有问题吧
星光版主，有相关sql的帖子，可以参阅下

tsesiuwai

liulang0808 发表于 2020-3-8 08:31
sq那个字符串，楼主检查下看看是否有问题吧
星光版主，有相关sql的帖子，可以参阅下

我全部改成中文，字符串一个个对了，开始成功了一次，现在又不行了。

liulang0808

Sub 明细()
    Dim f$
    With Application.FileDialog(1)
        With .Filters
            .Clear
            .Add "Excel(*.xls*)", "*.xls*"
        End With
        If .Show Then f = .SelectedItems(1) Else Exit Sub
    End With
    Dim Cn As Object, Sq$
    Set Cn = CreateObject("ADODB.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & f
    Sq = "SELECT 凭证号码,科目,成本要素名,物料,物料描述,成本中心,冲销科目,冲销科目名,参考代码,采购文本,采购凭证,成本中心名 FROM [Sheet1$A1:L] WHERE 科目 IN('59000101')"
    With Sheets("details")
        .UsedRange.Offset(1).ClearContents
        .[A2].CopyFromRecordset Cn.Execute(Sq)
    End With
    Cn.Close
    Set Cn = Nothing
End Sub

liulang0808

楼主看看是不是这个意思吧

tsesiuwai

liulang0808 发表于 2020-3-8 21:47
楼主看看是不是这个意思吧

看来区别就是这里，我再试试。谢谢！


我也是论坛搜别人的代码来用，问题是成功了一次，有点费解。

tsesiuwai

原来如此。感谢版主