| |
▼ひろ さん：
>セルに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は 自動で ダブルクォートを取り払い、中身が
数値ならば、数値としてセルに展開してしまうからです。
|
|
kanabun
- 08/7/2(水) 22:43 -
