EXCELにcsv形式の外部データを取り込む際にカンマ区切りで取り込も

何年後しのせっかくの回答だったのに、そのままにしてしまうのは残念ですから、私なりの解釈で回答を入れておきます。 VBAのポイントは、 　'*ここで、Lf を抜く(Excelのセル内改行-Chr(10)） 　buf = Replace(buf, vbLf, "") この部分です。もし、該当するものがありましたら、ここに加えてください。 ここで、ひとつずつ不要コードを抜きますが、vbLf かvbCr のどちらかは残してください。 Clean 関数ですと、改行コードもなくなって一行になってしまいますので、それは使えません。 私の記憶では、Binary でインポートすると、StrConv の変換が必要になるということだったと思いますので、 それを省きました。元のファイル名の末尾に、ファイル名$.csv　というのが、変換されたファイルです。 本当は、QueryTablesは、使わなくても出来ますが、ご要望なので、入れておきました。 ただし、ファイルの種類によっては、Cr+Lf で、Lf が落ちてしまい、内容が変わってしまう可能性がありますので、 上手くいかなかったら、その後に、 　　buf = Replace(buf, vbCr, vbCrLf) と加えることで、標準改行コードに戻るはずです。考え方は、単純だと思います。 '// Sub MyAnswer() Dim fName As String Dim bkf As String Dim fNum As Integer Dim fbk As String Dim buf As Variant 　fName = Application.GetOpenFilename("csvファイル(*.csv),*.csv") 　If VarType(fName) = vbBoolean Or fName = "" Then Exit Sub 　fbk = Mid(fName, 1, InStrRev(fName, ".") - 1) & "$.csv" 　fNum = FreeFile() 　 　Open fName For Input As #fNum 　buf = Input(LOF(fNum), #fNum) 　Close fNum 　 　'*ここで、Lf を抜く 　buf = Replace(buf, vbLf, "") 　 　fNum = FreeFile() 　Open fbk For Output As #fNum 　Print #fNum, buf 　Close #fNum 　　'Sheet の挿入 　　 With Sheets.Add(After:=Sheets(Sheets.Count)) 　　　With .QueryTables.Add(Connection:= _ 　　　　"TEXT;" & fbk, Destination:=Range("A1")) 　　　　.RefreshOnFileOpen = False 　　　　.RefreshStyle = xlOverwriteCells　'上書き設定 　　　　.AdjustColumnWidth = False 　　　　.TextFilePlatform = xlWindows 　　　　.TextFileStartRow = 1 　　　　.TextFileParseType = xlDelimited 　　　　.TextFileSpaceDelimiter = True 　　　　.TextFileConsecutiveDelimiter = True 　　　　.TextFileTextQualifier = xlTextQualifierDoubleQuote 　　　　.TextFileTabDelimiter = True 　　　　.TextFileCommaDelimiter = True 　　　　.Refresh BackgroundQuery:=False 　　　　.Delete 　　End With 　End With 　''Kill fbk 'テンポラリファイルの削除 End Sub

＞csvの2つ目を取り込む前に加工して改行をなくしてから取り込むのでは手間がかかる ＶＢＡが十分にできない状態ではこの手作業のが確実で早いのでは？と思います。 ＞clean関数があることは知っています この関数を見つける時間をＶＢＡを習得する時間に費やせたらと思います。 ＶＢＡでは Ａファイルを読み込みＢファイルへ編集して出力する、 Ｂファイルを読み込みシート０１へ値をセットする、 シート０１から編集してシート０２へ値をセットする、 シート０２から編集してＣファイルへ出力する、 などシート操作はもちろんファイル操作もできますから、 これまでの関数頼りより対応がかなり広くなり、 極論言えば質問しなくても済む程度になります。 今回はすぐできないにしても、これを機にまた取り組むと良いです。 ここの回答ＶＢＡを実行させるくらいは覚えておくべきです。 ＶＢＡを習得するにはどうしたら？という質問も出ているくらいですから。 今回の、データはどんな具合になっていますか？。 フリーソフトで「改行だけ取り除く」ものは探してみましたか？。

#3の回答者です。 >マクロの作成後にコードを編集するという方法しかできない程度のレベルで それで十分だと思います。掲示板の回答者の人たちの対応は、それぞれでも、ある程度のことは、それなりに満足させるまで、付き合うはずです。今まで、VBAの質問は、途中で分からなくなって、投げ出していたのではありませんか？そのようにお見受けしているからです。 VBAは、基本的に、Alt + F11 で開いたら、標準モジュールを挿入して、そこに貼り付けて、画面を締めて、フォーム・ツールボタンをつけるなり、Alt + F8 で、選んで実行すれば良いということさえすればよいのですね。分からないことは、分からないで、ここを教えて欲しいと、具体的に聞けばよいのですが、あまり漠然としたものは、回答には難しいです。いままで、VBAの質問は、こちらのチェックでは、どれも成功していないように思ったからです。投げ出さないで成功に結びつけてください。 今回の場合は、 ------ もとの、CSV が、 123,456,"bb b" こうなっているのではないでしょうか？ それを、 123,456,bbb このように直す、というように理解いているけれども、それはどうなんでしょうか？ということで、それをVBAのコードで作るというわけです。 ------- それ自体は、VBAでは大したことがありませんが、Clean 関数はあくまでも、ワークシートの関数ですから、それなりに方法がある、ということです。

もとの、CSV が、 123,456,"bb b" こうなっているのではないでしょうか？ それを、 123,456,bbb にするということですか？確認してください。Clean 関数は使っても、除去できないと思います。 >マクロを利用して、EXCELのデータ→外部データの取り込みの選択だけで取り込む方法はないでしょうか？ マクロなら、外部データの取り込みの選択自体を、メニューからの取り込みでしたほうが楽です。外部データの取り込みは、テーブルオブジェクトを残してしまいます。 それと、ご質問者さんの過去の質問で、VBAの質問をしながら、私に対する返事を含めて、VBAの回答はきちんと対応がなされていませんが、今回は、VBAの回答は大丈夫なのですか？今度、ダメでしたというのでは、一部の人には覚えられてしまいます。2年も3何年も前とは言いながらも、どこかでご自身のVBA（マクロ）の質問に対してはケジメは必要だと思います。

想定した形式でない以上、何かプログラムするかデータ補整しないとできないと思った方が良いです。 ＶＢＡで取り込みとする方法はどうですか。これならできると思います。 こうなるとＣＳＶをどう作ったかも怪しいしTABとかも気になりますね。

>EXCELのデータ→外部データの取り込みの選択だけで取り込む方法 そこまでMSのエクセルの機能を利用するなら、セル内改行（のコード文字）だけを取り除く操作（ダイアロウグボックスなどの選択肢）が無い以上、どうしようもないのでは。 なぜそんなことを改めて聞くのかな。 （VBAでも勉強して）自前で、CSVファイルの各行（レコード）を順次読んで、セル内改行のコードは削除し、書き出し他ファイルを作ってしまうとか、 レコードを読み込んだときに、セル内改行コードを取り除き、項目（列・フィールド）ごとにセルにセットしていけば仕舞いでしょう。１０数行のコードで出来ることだ。 先所のためには Instr関数で捉えられる そのままシートに読み込んでからChar(10)を空白に置換する方法もあるのでは。 それはChar(10)はCTRL+Jで捉えられること http://officetanaka.net/excel/function/tips/tips09.htm を読むこと。Googleで「セル内改行　削除」で照会してみたらこういうのも直ぐ見つかる。