在Excel中转换为文本格式
我正在使用excel宏从AS400中提取一些数据。在AS400中,这个特定的列(Ref)显示了20100729000078154,但当我将其提取到excel时,它将是2.01007E+16。我需要hv 20100729000078154作为我的最终输出。这是我用来从AS400中提取信息的宏:-在Excel中转换为文本格式,excel,ibm-midrange,Excel,Ibm Midrange,我正在使用excel宏从AS400中提取一些数据。在AS400中,这个特定的列(Ref)显示了20100729000078154,但当我将其提取到excel时,它将是2.01007E+16。我需要hv 20100729000078154作为我的最终输出。这是我用来从AS400中提取信息的宏:- Sub Extract() Dim StrSQl As String FromA = Format(Sheet1.Range("B3")) FromB = Format(Sheet1.Range("B
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
Sub-Extract()
作为字符串的Dim StrSQl
FromA=格式(表1.范围(“B3”))
FromB=格式(表1.范围(“B4”))
FromC=格式(表1.范围(“B5”))
FromD=格式(表1.范围(“B6”))
StrSQl=“从测试中选择Cno、Itno、Ref”
StrSQl=StrSQl&“其中Cno=“&FromA&”和Itno-like”&FromB&“和”
StrSQl=StrSQl&“Ref>=”&FromC&“和Ref如果您只是希望列显示为文本,则可以在撇号前加前缀,例如(假设在iSeries SQL中单个撇号文本可以表示为“”)
如果只是希望列显示为文本,则可以在撇号前面加上前缀,例如(假设在iSeries SQL中单个撇号文本可以表示为“”)
Ref
是整数还是字符串?由于20100729000078154在Excel中不是有效的日期格式,您可能希望在SQL语句(例如yyyy-mm-dd hh:mm:ss)中对其进行格式化。Ref
是整数还是字符串?由于20100729000078154在Excel中不是有效的日期格式,您可能希望在SQL语句中对其进行格式化(例如,yyyy-mm-dd hh:mm:ss)。
StrSQl = "select Cno,Itno,CONCAT('''',Ref) as Ref from test "