よねさんのWordとExcelの小部屋　なんでも掲示板 [One Message View / Re[1]: CSV：追加書き込み]

よねさんのWordとExcelの小部屋　なんでも掲示板

■13203 / 1階層)

　CSV：追加書き込み

□投稿者/ よねさん -(2017/09/30(Sat) 07:56:02)

使用されているコードはググったら↓のサイトのもののようですね。
http://excel-ubara.com/excelvba5/EXCEL111.html

全部を載せるのは憚れるので、変更箇所の説明で勘弁してください。

そのページの最初のコード Sub CSV入力1()　が希望するものではないですか?

Sub CSV入力1()　に追加(一部修正)するだけでよさそうです。

    Open varFileName For Input As #intFree 'CSVファィルをオープン
の行の下に、この3行を追加。i=0　は変更。
　　Dim　lRow As Long
    lRow = Cells(Rows.Count, 1).End(xlUp).Row
    i = lRow

　　Loop　の行の下にこの1行を追加
   　Rows(lRow + 1).Delete

これでいかがでしょうか?

記事引用 削除キー/

上記関連ツリー
前の記事(元になった記事)	次の記事(この記事の返信)
←CSV：追加書き込み /佐藤	→Re[2]: CSV：追加書き込み /佐藤
CSV：追加書き込み / 佐藤 (17/09/29(Fri) 15:29) #13202
`└` CSV：追加書き込み / よねさん (17/09/30(Sat) 07:56) #13203 ←Now
`└` Re[2]: CSV：追加書き込み / 佐藤 (17/10/02(Mon) 16:58) #13204
`└` Re[3]: CSV：追加書き込み / よねさん (17/10/03(Tue) 07:40) #13205
上記ツリーを一括表示 / 上記ツリーをトピック表示
上記の記事へ返信

入力内容にタグは利用可能です。

他人を中傷する記事は管理者の判断で予告無く削除されます。
半角カナは使用しないでください。文字化けの原因になります。
名前、コメントは必須記入項目です。記入漏れはエラーになります。
メールアドレスには自動でNo-の文字が挿入されます。メール収集対策。
入力内容の一部は、次回投稿時の手間を省くためブラウザに記録されます。
削除キーを覚えておくと、自分の記事の編集・削除ができます。
URLは自動的にリンクされます。
記事中に No*** のように書くとその記事にリンクされます(No は半角英字/*** は半角数字)。
- No123 → 記事No123の記事リンクになります(指定表示)。
- No123,130,134 → 記事No123/130/134 の記事リンクになります(複数表示)。
- No123-130 → 記事No123～130 の記事リンクになります(連続表示)。

Name	/
E-Mail	/
Title	/
URL	/
Comment/ 通常モード->　図表モード-> (適当に改行して下さい/半角10000文字以内) ■No13203に返信(よねさんさんの記事) > 使用されているコードはググったら↓のサイトのもののようですね。 > http://excel-ubara.com/excelvba5/EXCEL111.html > > 全部を載せるのは憚れるので、変更箇所の説明で勘弁してください。 > > そのページの最初のコード Sub CSV入力1()　が希望するものではないですか? > > Sub CSV入力1()　に追加(一部修正)するだけでよさそうです。 > > Open varFileName For Input As #intFree 'CSVファィルをオープン > の行の下に、この3行を追加。i=0　は変更。 > 　　Dim　lRow As Long > lRow = Cells(Rows.Count, 1).End(xlUp).Row > i = lRow > > 　　Loop　の行の下にこの1行を追加 > 　Rows(lRow + 1).Delete > > これでいかがでしょうか? >
削除キー	/ (半角8文字以内)
ガード用キー(必須)	/ 1357と半角で入力
プレビュー/

HOME HELP 新規作成新着記事ツリー表示トピック表示検索過去ログ

- Child Tree -