关于字符串UTF8 和 asic 之间转换的问题【已解决】

fenhanxue

回复 15# kk_lee69


    如你帖子里写的，不安装EXCEL的环境下
不要借助 Excel.au3

kk_lee69

回复 16# fenhanxue

#include <array.au3>

$Excelconn= ObjCreate("ADODB.Connection")
$ExcelRS= ObjCreate("ADODB.Recordset")
$Excelconn.Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source="&@ScriptDir&"\5.xlsx"&";Extended Properties='Excel 12.0'")
$ExcelRS.ActiveConnection = $Excelconn
$eExcelArray=$Excelconn.Execute ("SELECT * FROM [Sheet1$]").GetRows

_ArrayDisplay($eExcelArray)

fenhanxue

回复 17# kk_lee69


  代码运行起来了，再次感谢KK的帮助

更新下备注，给后来者可以看到：
代码需要在32位下运行，64位系统，需要加一行
#AutoIt3Wrapper_UseX64=n

即：

#AutoIt3Wrapper_UseX64=n
#include <array.au3>
 
$Excelconn= ObjCreate("ADODB.Connection")
$ExcelRS= ObjCreate("ADODB.Recordset")
$Excelconn.Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source="&@ScriptDir&"\555.xlsx"&";Extended Properties='Excel 12.0'")
$ExcelRS.ActiveConnection = $Excelconn
$eExcelArray=$Excelconn.Execute ("SELECT * FROM [Sheet1$]").GetRows
 
_ArrayDisplay($eExcelArray)

afan

跑题很严重……  既然可改变发送方式，还费这劲

fenhanxue

回复 19# afan


    被A大见鄙视了。。。