VBA 使用QueryTables 中文乱码的处理
2015-09-06 11:37
357 查看
一般情况:
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
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
相关文章推荐
- std::deque
- [性能]StringBuilder与StringBuffer的区别(转)
- UIKit;多任务
- Implement Stack using Queues 两个队列实现一个栈
- 实现当tableview当向上滚动时,头部添加的view看上去不随向上滚动的效果
- [LintCode]Segment Tree Build 构造线段树
- UITextView的动态适应高度处理
- SOAPUI系列14- SOAPUI 数据生成器组件使用方法
- SOAPUI系列12- 使用 SOAPUI 执行负载测试
- SOAPUI系列11- 测试步骤中设置断言
- SOAPUI系列10- SOAPUI 循环设置
- SOAPUI系列09- SOAPUI 属性传递之二
- SOAPUI系列08- SOAPUI 属性设置
- UIControl的使用
- queue
- SOAPUI系列07-SOAPUI 断言之三
- std::queue
- SOAPUI系列06-SOAPUI 断言(XPATH)
- SOAPUI系列05-SOAPUI 断言设置
- SOAPUI系列04-SOAPUI 项目新建