Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

71899 / 76807

←次へ　｜　前へ→


	【9401】Re:EXCELからCSVに変更する際に・・・・

りん

- 03/12/3(水) 0:28 -


	引用なし

	パスワード

テーブルさん、こんばんわ。

>EXCELからCSVに変更する際に、全てのアクティブセルに対してダブルクオテーションでデータをくくりたいのです・・・・

Sub test()
　 Dim Cmax As Integer, Rmax As Long, CC As Integer, RR As Long
　 Dim Cfile As String, DC As String
　 Dim ws As Worksheet
　 Set ws = ActiveSheet '現在表示中のシートが対象
　 '
　 DC = Chr(34) '"
　 'NewFile
　 With ws.Parent
　　　If .Path = "" Then
　　　　 '初めての保存の時はカレントフォルダに
　　　　 Cfile = .Name & ".csv"　　
　　　Else
　　　　 '保存されたブックの時はブックと同じフォルダに
　　　　 Cfile = .FullName
　　　　 Cfile = Left(Cfile, Len(Cfile$) - 3) & "csv"
　　　End If
　 End With
　 '出力範囲
　 With ws.UsedRange
　　　Cmax = .Cells(.Count).Column
　　　Rmax = .Cells(.Count).Row
　 End With
　 '
　 With ws
　　　Open Cfile For Output As #2
　　　　 For RR = 1 To Rmax
　　　　　　For CC = 1 To Cmax
　　　　　　　 If CC > 1 Then Print #2, ",";
　　　　　　　 '数字は”でくくらない場合などはここで分岐
　　　　　　　 Print #2, Chr(34) & .Cells(RR, CC).Value & Chr(34);
　　　　　　Next
　　　　　　Print #2, ""　'改行
　　　　 Next
　　　Close #2
　 End With
　 '
　 Set ws = Nothing
End Sub

こんな感じです。

K3スタイル懐かしい…

0 hits

▼

【9396】EXCELからCSVに変更する際に・・・・ テーブル 03/12/2(火) 15:25