[已解决]Excel 如何默认写入"文本"格式

lin6051

#include <Array.au3>
#include <Excel.au3>


Local $oExcel = _Excel_Open()
Local $oWorkbook = _Excel_BookNew($oExcel)

Local $aArray2D[3][5] = [['0123', 12, 13, 14, 15], [0021, 22, 23, 24, 25], [0031, 32, 33, 34, 35]]

_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $aArray2D, "A1")

lin6051

还有 _Excel_FilterSet设置 筛选后,  为什么读取还是 全部内容呢?

laoxgogo

在数值前加个  '   就是文本格式

lin6051

laoxgogo 发表于 2022-10-18 09:20
在数值前加个  '   就是文本格式

这个方式 我后来 论坛搜到了, 不过不完美 编辑的时候 前面会显示这个'      
最好能修改单元格格式的方式

laoxgogo

lin6051 发表于 2022-10-19 10:53
这个方式 我后来 论坛搜到了, 不过不完美 编辑的时候 前面会显示这个'      
最好能修改单元格格式的方 ...

调用vba吧，先设置文本格式再写入

lin6051

laoxgogo 发表于 2022-10-19 11:26
调用vba吧，先设置文本格式再写入

$oWorkbook.workbooks(1).activesheet.range("A1").numberformatlocal="@"

搜索试了 好几种都不行

laoxgogo

lin6051 发表于 2022-10-19 11:30
$oWorkbook.workbooks(1).activesheet.range("A1").numberformatlocal="@"

搜索试了 好几种都不行

run bas模块呀！

chzj589

lin6051 发表于 2022-10-19 11:30
$oWorkbook.workbooks(1).activesheet.range("A1").numberformatlocal="@"

搜索试了 好几种都不行

$oWorkbook.ActiveSheet.Columns("A").NumberFormatLocal = "@"
$L_Wd = $oWorkbook.ActiveSheet.Range("A1").NumberFormat ;显示单元格A1格式
MsgBox(0, "A2", $L_Wd)

lin6051

我擦 ,这样可以了
$oExcel.ActiveSheet.Columns(1).NumberFormat="@"
设第一列为文本

chzj589

lin6051 发表于 2022-10-19 12:09
我擦 ,这样可以了
$oExcel.ActiveSheet.Columns(1).NumberFormat="@"
设第一列为文本

$oWorkbook.ActiveSheet.Columns("A:E").NumberFormat="@"