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

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

[ 親記事をトピックトップへ ]

このトピックに書きこむ

■13205 / inTopicNo.1)  Re[3]: CSV:追加書き込み
  
□投稿者/ よねさん -(2017/10/03(Tue) 07:40:08)
    2017/10/03(Tue) 07:51:06 編集(管理者)
    > 項目の中で品物名があり、例えば『RINGO,R』の名前がある場合
    > 『RINGO』と『R』に分かれて、書き込まれてしまいます。
    > 何か対処法はあるのでしょうか?
    
    CSVファイルで "RINGO,R" とダブルクォーテーションでくくれば、
    Excelではマクロで読み込んたら1単位となったと思います。

引用返信/返信 削除キー/
■13204 / inTopicNo.2)  Re[2]: CSV:追加書き込み
□投稿者/ 佐藤 -(2017/10/02(Mon) 16:58:42)
    ありがとうございます!
    追加の書き込みをすることができました。

    一つ質問なのですが
    ","の区切りの件なのですが
    項目の中で品物名があり、例えば『RINGO,R』の名前がある場合
    『RINGO』と『R』に分かれて、書き込まれてしまいます。
    何か対処法はあるのでしょうか?



引用返信/返信 削除キー/
■13203 / inTopicNo.3)  Re[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
    
    これでいかがでしょうか?
    

引用返信/返信 削除キー/
■13202 / inTopicNo.4)  CSV:追加書き込み
□投稿者/ 佐藤 -(2017/09/29(Fri) 15:29:56)
    こんにちは、よねさん
    
    CSVデータをエクセルに書き込む場合
    エクセルの最終行を取得して、追加でCSVデータを書き込む方法を教えていただきたいです。
    またCSVデータには、1行目に項目行がある為、2行目からのCSVデータをエクセルに追加書き込みをしたいです。
    
    下記のコードはネットから拾ったものです。
    
    Sub CSV入力3()
      Dim varFileName As Variant
    
      varFileName = Application.GetOpenFilename(FileFilter:="CSVファイル(*.csv),*.csv", _
                        Title:="CSVファイルの選択")
      If varFileName = False Then
        Exit Sub
      End If
      
      Workbooks.Open Filename:=varFileName
      ActiveSheet.Cells.Copy ThisWorkbook.ActiveSheet.Cells
      ActiveWorkbook.Close SaveChanges:=False
    End Sub
    
    以上、よろしくお願いいたします。

引用返信/返信 削除キー/



トピック内ページ移動 / << 0 >>
Pass/

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

- Child Tree -