CSV吐き出し時に数値の末尾が０になる件 (ID：115373)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

さささん  いなさん

ありがとうございます。お二人のおっしゃるとおりでございます。

>CSVを出力し、EXCELで表示させる必要がある仕様の場合、
>数値項目も文字列として扱って出力する。等の方法もあります

ただ、この方法をお教えいただけないでしょうか。
どうしてもcsvをEXCELで加工する必要があるようで、
このまま捨て置くわけにもいかず、弱ってます。。。
以下に現状のソースを記載いたします。
何卒、ご教授いただきますようお願いいたします。

Private Sub Command1_Click()

'csv出力
  Dim s3cn_ado
  Dim dsn As String
  Dim sql As String
  Dim fnm As String
  Dim mds As Boolean
  Dim RS As Variant
  Dim fno As Integer
  Dim rec As String
  Dim i As Integer
  Dim dummy As Variant
  Dim s As String
  Dim FNOW As String

Set RS = Nothing
   
  FNOW = Format(Now, "YYYYMMDD")

dsn = cn
  
 'SQL
  sql = "select * from TBLJIO"
  fnm = "I:\Report\レポート" & FNOW & ".csv"
  mds = True

'Commandオブジェクトを作成
Set cmdMaster = New ADODB.Command
cmdMaster.ActiveConnection = cn
cmdMaster.CommandText = sql

'実行
Set RS = New ADODB.Recordset
Set RS = cmdMaster.Execute

'CSVに加工
  fno = FreeFile
  Open fnm For Output As fno Len = 32000
  If mds Then
    For i = 0 To RS.Fields.Count - 1
      rec = rec & Chr(&H22) & RS(i).Name & Chr(&H22) & ","
    Next
    Print #fno, Left(rec, Len(rec) - 1)
  End If
  Do Until RS.EOF
    rec = ""
    For i = 0 To RS.Fields.Count - 1
      dummy = RS(i)
      If IsNull(dummy) Then
        s = ""
      Else
        s = dummy
      End If
      rec = rec & Chr(&H22) & RTrim(s) & Chr(&H22) & ","
    Next
    Print #fno, Left(rec, Len(rec) - 1)
    RS.movenext
  Loop
  Close fno
  RS.Close
  
  Set RS = Nothing
  Unload Me
 
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る