【やりたいこと】
①CSVの情報を同フォルダにあるエクセルのマクロを使っての特定の範囲に張り付ける
②CSVは全情報の中から先月分のみをエクセルに張り付ける
【質問】
②がマクロ(コード)の知識不足で浮かびません・・・
お手数ですがお詳しい方でご教示頂けますでしょうか。
下には記載させて頂きましたが①までのコードで変更を伴う場合は変えてしまっても構いません。
また他に必要な情報などありましたらご教示ください。
お願いいたします。
【詳細】
CSV名:「イベント情報.csv」には以下のような情報があります。
__________________________________
A1:日付 B1:グループ名 C1:ホスト名
A2:2019/7/2 0:06:39 B2:GROUP1 C2:HOST1
A3:2019/7/24 8:24:32 B3:GROUP2 C3:HOST2
A4:・・・・ B4:・・・ C4・・・
・
・
・
AX:YYYY/MM/DD HH:MM:SS BX:GROUPX-1 CX:HOSTX-1
__________________________________
※Xは月ごとに変動します。
上記のCSVの情報を同フォルダに存在する「TESTマクロ.xlsm」
のシート名:「CSV取得情報」のB2を左上にして張り付けたいです。
張り付ける情報は先月分のみ選択して張り付けたいです。
【ここまで出来たマクロ】
①は「マクロの記録」をベースに作ってみました。
「日付」「グループ名」「ホスト名」のカラムは月によって変更しないため、
A1:C1を指定しています。
また情報に空白になるセルはないためひとまずSelection.End(xlDown)にしています。
Sub TESTMacro1() ' ' TESTMacro1 Macro ' ' Workbooks.Open Filename:="C:\マクロTEST\イベント情報.csv" Range("A1:C1").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows("TESTマクロ.xlsm").Activate Range("B2").Select ActiveSheet.Paste Range("A1").Select End Sub
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/09/01 12:06