EXCELのCSV取り込み

質問

EXCELでCSV取り込みをしたいのですが、どうもうまくいきません。
シート”work"に表示させたいです。よろしくお願いいたします。
マクロの記述を教えていただけたら幸いです。

回答No.2

pkh4989 · ベストアンサー

お早うございます。
こんな感じでしょうか

Sub CSV取り込み()
　　Dim CsvFile　　　　 As String
　　Dim CsvDir　　　　　As String
　　'
　　CsvDir = "C:\Documents and Settings\test\デスクトップ\"　'←CSVファイルがあるフォルダ (変更してください)
　　CsvFile = "Book1.csv"　　　　　　　　　　　　　　　　　　'←CSVファイル名 (変更してください)
　　'
　　Workbooks.Open Filename:=CsvDir & CsvFile
　　ActiveWorkbook.Sheets(1).Cells.Copy _
　　　　Destination:=ThisWorkbook.Worksheets("work").Range("A1")
　　Workbooks(CsvFile).Close
End Sub

お礼

ありがとうございました。助かりました。

回答No.3

imogasi

課題丸投げの質問です。
WEBで照会すればすぐ出てくるものを。
「エクセル　CSV　取り（読み）込み」またはVBAを加える。
http://www.excel.studio-kazu.jp/cgi-bin/kazuwiki2.cgi?mycmd=read&mypage=%5B%5B20041122160517%5D%5D
このなかの
If MyVar(0) = "あ" Then
End If
は本件では省く。
（１）データをインプットエリア変数に読み込み
（２）Split関数で分離（バリアント配列に格納される）
（３）配列を各列に代入
（３）１行下を指す
（１）－（３）の最終レコード前繰り返し。
（１）は色んなやり方かある。
参考
http://www.geocities.jp/happy_ngi/YNxv914.html

回答No.1

OKbokuzyo

ちょっと何をしたいのかはよくわからないけど、
xlsはタブ区切りだとそのまま貼り付けられる。
なんでカンマ区切りをタブ区切りに変換する機構を作ればいい。

しかし、これはVBに対するの質問なのだろうか‥？

お礼

早急なお返事ありがとうございます。
CSVファイルにはメーカー、売上が記載されています。
ワークブックにはメーカー別の売上合計の表のフォーマットが
あるので一度同じワークブックの作業用シート"work"にとりこんで
売上合計の票にはSUMIFで自動的にメーカー別売上合計の売上合計を表示させようと思っています。それをボタンに記憶させて・・。という事をしたかったのですが、質問が足りなかったですね。
この方法以外にも何か良い方法があればもっとよいのですが・・。