在Excel中转​​换为文本格式

Question

我使用excel宏从AS400中提取一些数据。在AS400中，这个特定列（Ref）显示20100729000078154，但是当我将它提取到excel时，它将是2.01007E + 16。我需要将20100729000078154作为最终输出。这是我用来提取AS400的信息的宏： -

Sub Extract() 

Dim StrSQl As String 

FromA = Format(Sheet1.Range("B3")) 
FromB = Format(Sheet1.Range("B4")) 
FromC = Format(Sheet1.Range("B5")) 
FromD = Format(Sheet1.Range("B6")) 

StrSQl = "select Cno,Itno,Ref from test " 
StrSQl = StrSQl & " where Cno= " & FromA & " and Itno like " & FromB & " and " 
StrSQl = StrSQl & " Ref >= " & FromC & " and Ref <= " & FromD & " " 
StrSQl = StrSQl & " order by Cno " 

con = "Provider=IBMDA400;Data Source=xxx.xxx.xxx.xxx;User Id=yyyyy;Password=zzzzz" 

Set Db = CreateObject("ADODB.Connection") 
Set rs = CreateObject("ADODB.recordset") 
Db.ConnectionString = con 
Db.Open 


rs.Open StrSQl, Db, 3, 3 

Sheet2.Cells(1, 1).CopyFromRecordset rs 

rs.Close 

Set rs = Nothing 
Set cn = Nothing 

End Sub 

Answer 1

，如果你只是想栏显示为文本可以前缀一个单引号，像（假设一个单引号字面可以用iSeries SQL中的''表示）...

StrSQl = "select Cno,Itno,CONCAT('''',Ref) as Ref from test "