| |
kanabunさん。
ありがとうございました！
サンプルコードをちょこっと編集させて頂き、実データに適用できました！
ありがとうございます！
▼kanabun さん：
>▼ひろ さん：
>
>>セルにA列から1、2、3･･･と数値が入っているとして、csvデータで保存し
>>そのデータをノートパッドで開いた時に、"1","2","3",･･･となるように
>>しようと、
>
>こうすれば、
>> "1","2","3",･･･となるように
>出力はできます。
>
>Sub Try1()
> Dim io As Integer
> Dim myFile As String
> Dim v, ss As String
> Dim i As Long, j As Long, jj As Long
>
> myFile = "D:\(Data)\NumberDBQ.csv"
> io = FreeFile()
> Open myFile For Output As io
>
> v = ActiveSheet.UsedRange.Value
> jj = UBound(v, 2)
> For i = 1 To UBound(v)
> For j = 1 To jj - 1
> Write #io, CStr(v(i, j));
> Next
> Write #io, CStr(v(i, jj))
> Next
> Close io
> MsgBox "出力しました", , myFile
>
>End Sub
>
>ただし、このCSVファイルを Excelのメニューで「ファイルを開く」すると、
>
>> "1","2","3",･･･となっている
>
>ようにはなりません。Excelは 自動で ダブルクォートを取り払い、中身が
>数値ならば、数値としてセルに展開してしまうからです。
|
|
ひろ
- 08/7/4(金) 0:53 -
