SQL 利用Excel.QueryTable 导出到excel存储格式为文字

[2021专业CNC数据采集]

我利用 Dim xlQuery As Excel.QueryTable
联SQL 导出到excel
（资料－沤外部数据－资料范围查询－查询－储存查询定义）默认是勾选上
怎样在程序裡让他默认勾选，勾选上了的话和选择excel存储格式和－文字裡没有作用

Dim stSQL As String
Dim cnt As ADODB.Connection
Dim rst As ADODB.Recordset
stSQL = "SELECT * FROM G1_AssemblePN WHERE PCBA_LOT='" & bag & "'"
cnt = New ADODB.Connection
cnt.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=PR_SMT888;Data Source=DTISMT999"
With cnt
.CursorLocation = CursorLocationEnum.adUseClient
.Open()
rst = .Execute(stSQL)
End With

xlQuery =XLSheet.QueryTables.Add(rst, rnStart)

With xlQuery
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = Excel.XlCellInsertionMode.xlInsertEntireRows
.SavePassword = False
.SaveData = False
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = False
.MaintainConnection = False
.EnableRefresh = False
End With
xlQuery.EnableEditing = True
xlQuery.RefreshStyle = Excel.XlCellInsertionMode.xlInsertEntireRows
xlQuery.Refresh(False)
xlQuery.FieldNames = True
rst.Close()
cnt.Close()
rst = Nothing
cnt = Nothing

[2021专业CNC数据采集]

发贴修改：怎样在程序裡让他默认不勾选，或者有什麽方法可以直接设置存储格式为文字，我测试过，
（资料－沤外部数据－资料范围查询－查询－储存查询定义）默认是勾选设置存储格式不起作用，有什麽列好的方法，请各位帮帮忙，有效答桉必散分

[yyhlove]

干嘛用它！换~

[2021专业CNC数据采集]

這個沒人會啊．．．．鬱悶．不過問題是OK了，那個影響不在，只是我一開始擔心過多了．