zoukankan      html  css  js  c++  java
  • VBA 使用QueryTables 中文乱码的处理

    一般情况:

    cnn = "OLEDB;Provider=IBMDA400;Data Source=TFB4001;User ID=;Password=;"

    Sql = "select * from NON"

    Set sh = ThisWorkbook.Worksheets("sheet1")

    sh.QueryTables.Add(cnn, Range("A1"), Sql).Refresh

    保证中文无乱码:

        With ActiveSheet.QueryTables.Add(Array("ODBC;Driver={SQL Server};Server=192.168.1.250;UID=rptuser;PWD=rptuser;DATABASE=SUNDB;AutoTran", "slate=No"), Range("A1"))
           
            .CommandText = "SELECT "
            .Name = "Query from HKGCPSRV3"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = True
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .PreserveColumnInfo = True
            .Refresh
        End With

  • 相关阅读:
    双击返回 退出程序
    读取InputStream 中的内容
    wsgi服务器
    python 中的GIL
    json
    __getattr__
    错误类型
    __slot__用法
    获取属性以及基本方法
    linux IO
  • 原文地址:https://www.cnblogs.com/lbnnbs/p/4785053.html
Copyright © 2011-2022 走看看