zoukankan      html  css  js  c++  java
  • 導到EXCEL出錯原因

    用朋友教的新方法導到EXCEL,一直出錯,出錯提示“Invalid procedure call or argument”。
    查了近1個小時,才想到RS的光標位置默認是服務端,應改為服務端
    代碼發下:
    Dim xlApp       As Excel.Application
    Dim xlWrk       As Excel.Workbook
    Dim xlSht       As Excel.Worksheet
    Dim xlQuery     As Excel.QueryTable
        Set xlApp = CreateObject("Excel.Application")
        xlApp.Visible = True
        Set xlWrk = xlApp.Workbooks.Add
        Rs.CursorLocation = adUseClient   '增加的一行
        Rs.Open "select * from V_O96GZDC", _
                Conn, adOpenKeyset, adLockReadOnly
        Set xlQuery = xlWrk.Sheets(1).QueryTables.Add _
                      (Rs, xlWrk.Sheets(1).Range("A1"))
        xlQuery.Refresh
        Rs.Close
        
        Set xlQuery = Nothing  '"交還控制給Excel
        Set xlWrk = Nothing
        Set xlApp = Nothing

  • 相关阅读:
    CSS布局口诀
    JAVA集合框架
    java接口作用及其好处
    java 输入输出类
    Java中精确计算的一个类BigDecimal
    java 集合框架
    java JSTL标签总结
    meta标签
    Java字符串使用总结
    Java集合框架使用方法
  • 原文地址:https://www.cnblogs.com/yzx99/p/164707.html
Copyright © 2011-2022 走看看