
システムから抽出したCSVファイルをExcelで読み込むと同時に不要な列を削除します。
その際、セル内の改行が邪魔で行がずれてしまいます。
すでに記述したコードを生かしながら、セル内の改行を削除する方法はありますでしょうか?
以下がコードです
Private Sub CommandButton1_Click()
'//Sheet7のセルをクリア
Sheets("Sheet7").Cells.Clear
'// Sheet7のA1にissue_export.csvを読み込み
With Sheets("Sheet7").QueryTables.Add(Connection:="TEXT;C:\*****.csv", Destination:=Sheets("sheet7").Range("A1"))
Dim R As Range
For Each R In Sheets("Sheet7").Range("A1")
R.Value = Trim(Replace(R.Value, vbCr, ""))
R.Value = Trim(Replace(R.Value, vbLf, ""))
Next R
.Name = "test"
.FieldNames = True
.RowNumbers = False
.Refresh BackgroundQuery:=False
.RefreshPeriod = 0
.RefreshOnFileOpen = False
.PreserveFormatting = True
.AdjustColumnWidth = True
.FillAdjacentFormulas = False
.RefreshStyle = xlInsertEntireRows
.SavePassword = False
.SaveData = True
.TextFilePromptOnRefresh = False
.TextFileParseType = xlDelimited
.TextFileStartRow = 1
.TextFilePlatform = 65001
.TextFilePlatform = xlWindows
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileTrailingMinusNumbers = False
.TextFileColumnDataTypes = Array(9, 9, 9, 9, 2, 9, 2, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 2, 2, 2, 9, 2, 2, 2, 2, 2, 2, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9)
.Refresh
.Parent.Names(.Name).Delete
.Delete
End With
End Sub
No.1ベストアンサー
- 回答日時:
1)QueryTableではなく[ファイル]-[開く]Openメソッドで通常に開くとセル内改行で処理されるか。
2)セル内改行・・フィールド内改行が含まれているデータは""ダブルクォートで囲まれているか。
ex)・・,"A(改行)B(改行)C",・・
3)他に、セル内に『,』が含まれているデータはあるか。また、それは""ダブルクォート囲みか。
ex)・・,"1,234",・・
4)CSVファイルのデータ量はどれくらいか。
ex)y行×x列
5)『すでに記述したコードを生か』す事は必須条件か。
上記の確認事項の結果次第でアドバイスが変わります。
(1)yes なら、簡単な方法として
Workbooks.Openメソッドで別ファイルで開き必要なデータをコピーペーストする案が考えられます。
この時Application.ScreenUpdatingを制御して開いている事を意識させないようにします。
『すでに記述したコードを生か』さなくても良いならこの方法が最も素直な処理です。
(4)が必須だと、QueryTableで取り込む前に、テキストベースで一旦開き、改行文字をスペースなどにReplaceして保存し、
あらためてQueryTableでの取り込みを実行するようにします。
過去、同様な事例を参考にしてみてください。
http://oshiete.goo.ne.jp/qa/5972724.html?order=asc
# このケースでは必要データが2行×2ファイルなので、改行文字Replace&QueryTable はオーバースペックで、
# 素直にOpenメソッドを使ったほうが良いケースでしたが。
(1),(2)ともnoだと、ちょっと難易度が上がりますね。
その時はダミーで良いのでサンプルのデータがあるほうがアドバイスし易いです。
この回答への補足
上記アドバイスありがとうございます。
まずは(1)から試したいと思うのですが、なにぶん初心者なもので記述の仕方がわかりません。
私が書いたソースのどこを変更すれば良いか、アドバイスを頂けませんでしょうか。お手数をおかけして申し訳ございません
No.4
- 回答日時:
そもそもの案件と全く違う内容の質問を補足欄でだらだらと続けられても困惑します。
勿論こちらに応える義務はないとは言え。
しかもその追加内容に誤りがあったり、断片的な情報しか提示されないなら
有効なアドバイスは難しいです。
>Range("C6").Value = Evaluate("SUMPRODUCT((Sheet7!A2:A3204=B6)*(Sheet7!K2:K3204=K16))")
このコードがシートモジュールに置いたコードなら、
『Range("C6")』、『B6』、『K16』はそのシートのセルを参照します。
標準モジュールに書いてあれば、コード実行時のActiveSheetを参照します。
処理が複数シートにまたがっているのなら、そういった参照関係に気をつけてください。
どちらにしても紛れがないのは
例えば
Sheets("Sheet1").Range("C6").Value = Evaluate("SUMPRODUCT((Sheet7!A2:A3204=Sheet1!B6)*(Sheet7!K2:K3204=Sheet1!K16))")
..などとSheetを明示する事です。
No.3
- 回答日時:
ゃ?
With Sheets("Sheet7")
Range("F6").Value = WorksheetFunction.CountIf(.Range("A2:A3000"), .Range("A6"))
End With
普通にCountIf関数で良いと思われるのですけれども。
この回答への補足
すみません、ご迷惑ばかりで…。
確かに、お書き頂いた上記の方法でカウントできました。
しかしながら…。
複数条件でカウントしたいのです。
なので、sumproductではないかと。
With Sheets("Sheet7")
Range("C6").Value = Evaluate("SUMPRODUCT((Sheet7!A2:A3204=B6)*(Sheet7!K2:K3204=K16))")
End With
B6がトマトだとして、K16が大(大きさ)だとします。
ちなみに、上記ではきちんとカウントされませんでした。
すみません、最後のお力添えを頂けないでしょうか。
No.2
- 回答日時:
(1)を言い換えると。
手作業でExcelメニューの[ファイル]-[開く]から目的のCSVファイルを開いた場合、
セル内改行はセル内改行のままで開いて、列がずれたりしませんか?
確認してください。
もし、ずれる事なく正常に開く事ができるなら、
>Workbooks.Openメソッドで別ファイルで開き必要なデータをコピーペーストする案が考えられます。
コード化については、
上記作業をマクロ記録してみてください。
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2012/10/18 ユーザー名 : end-u
'
'
Cells.Select
Selection.ClearContents
Workbooks.Open Filename:="C:\issue_export.csv"
Range("E:E,G:G,R:T,V:AA").Select
Range("V1").Activate
Selection.Copy
Windows("issue_export.xls").Activate
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("issue_export.csv").Activate
ActiveWindow.Close
End Sub
..のようなものが録れるはずです。
これをブラッシュアップして以下のように修正します。
Sub try()
Dim ws As Worksheet
Application.ScreenUpdating = False
Set ws = ThisWorkbook.Sheets("Sheet7")
ws.UsedRange.Clear
With Workbooks.Open(Filename:="C:\issue_export.csv")
.Sheets(1).Range("E:E,G:G,R:T,V:AA").Copy ws.Range("A1")
.Close savechanges:=False
End With
Application.ScreenUpdating = True
End Sub
# ついでに。
# >(4)が必須だと、QueryTableで取り込む前に、...
# (5)が必須だと、...の間違いでしたorz
この回答への補足
ありがとうございます。
上記の記述で問題なくインポートできました。
実はそこから集計を取りたいと考えておりまして…
例えば、A列にある「トマト」というキーワードが何個あるかを集計しようとします。
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Application.ScreenUpdating = False
Set ws = ThisWorkbook.Sheets("Sheet7")
ws.UsedRange.Clear
With Workbooks.Open(Filename:="C:\issue_export.csv")
.Sheets(1).Range("E:E,G:G,R:T,V:AA").Copy ws.Range("A1")
.Close savechanges:=False
End With
Application.ScreenUpdating = True
End Sub
Private Sub CommandButton2_Click()
Range("F6").Value = Evaluate("SUMPRODUCT((Sheet7!$A$2:$A$3000=Sheet7!$A$6)")
End Sub
※A6がトマトだとします
上記ですと、#VALUE!と返ってきてしまします。
大変申し訳ございませんが、ご教示いただけますと幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/06/01 14:45
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/11 12:55
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- Visual Basic(VBA) vbaでセルに入力したときに,その横にあるセルを保護し入力不可にするマクロを作りたいです。 2 2022/04/24 20:59
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Visual Basic(VBA) EXCELのセル相互同期用のVBAでの不具合 3 2022/08/10 11:44
このQ&Aを見た人はこんなQ&Aも見ています
-
これまでで一番「情けなかったとき」はいつですか?
これまでの人生で一番「情けない」と感じていたときはいつですか? そこからどう変化していきましたか?
-
歳とったな〜〜と思ったことは?
歳とったな〜〜〜、老いたな〜〜と思った具体的な瞬間はありますか?
-
最強の防寒、あったか術を教えてください!
とっても寒がりなのですが、冬に皆さんがされている最強の防寒、あったか術が知りたいです!
-
AIツールの活用方法を教えて
みなさんは普段どのような場面でAIツール(ChatGPTなど)を活用していますか?
-
「これいらなくない?」という慣習、教えてください
現代になって省略されてきたとはいえ、必要性のない慣習や風習、ありませんか?
-
VBAでCSVをExcelに取り込む時に、途中の改行を取り除くには
Visual Basic(VBA)
-
EXCELにcsv形式の外部データを取り込む際にカンマ区切りで取り込も
Excel(エクセル)
-
【Excel VBA】CSV取込時、数字の先頭の0を消えないようにするには?
Excel(エクセル)
-
-
4
テキストファイルから改行コードを削除して読込む方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAのコマンドボタンの文字列の...
-
エスケープ文字の復帰(¥r)と...
-
グレープシティのSPREAD...
-
ソースコードの1行が長いとき...
-
改行について
-
【VBA】エクセルで最後の不要な...
-
PDFlibでのPDF生成について
-
Excel VBS、ADODB.Streamで改行
-
textarea , PHP, 確認画面 改行
-
texのchapterが改行される
-
C#の改行について
-
改行コードについて
-
C# DataGridViewのセルを改行禁...
-
1行ごとに取得して、その改行...
-
バイナリファイルに改行コード...
-
FTP受信する際、改行コードをは...
-
jsp 改行コードで改行させて表...
-
PHPで改行を含んだ文章の切り出し
-
テキストボックス行の桁数を制...
-
最終行の改行について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAのコマンドボタンの文字列の...
-
LaTeX: captionの中で改行した...
-
ソースコードの1行が長いとき...
-
改行について
-
エスケープ文字の復帰(¥r)と...
-
texのchapterが改行される
-
C# DataGridViewのセルを改行禁...
-
最終行の改行について
-
テキストボックス行の桁数を制...
-
【VBA】エクセルで最後の不要な...
-
秀丸の正規表現で複数行にわた...
-
C++で空Enterの入力を判...
-
jsp 改行コードで改行させて表...
-
C++でのCRLFについて
-
JavaDoc コメントの改行について
-
C#の改行について
-
COBOLの改行
-
ファイルから読み取った改行文...
-
文字列型変数に1024を超えた文...
-
1行ごとに取得して、その改行...
おすすめ情報