|
こんにちは。
Post.csvとFax.csvがあります
いま、2つを合体したいです。
両方を開き、Fax.csvのデータ下端に、Post.csvのタイトル行を除いたデータを貼り付けようとしています。
ですが、実行すると 引き数を省略できない、と出てしまいます。
どこがわるいでしょうか。
また、それができたらFax.csvを送付.xlsという名のExcelで保存したいです。
その際どう書けばよいでしょうか。
どうもきれいなロジックができません。
どなたか御教示よろしくお願いします。
Sub Macro1()
Dim MyTxtFile1 As String
Dim MyTxtFile2 As String
MyTxtFile1 = ActiveWorkbook.Path & "\Post.csv"
Workbooks.Open Filename:=MyTxtFile1
Range("A2:U2").Select'←これをいれたのはB列からT列の中にブランクのセルがありうるからです
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
MyTxtFile2 = ActiveWorkbook.Path & "\Fax.csv"
Workbooks.Open Filename:=MyTxtFile2
Windows("Urgent.CSV").Activate
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range.Selection = ActiveCell.CurrentRegion.Address '←実行すると 引き数を省略できない、と出てしまいます
ActiveSheet.Paste
'Fax.csvを送付.xlsにして保存したい
'Post.csはそのまま閉じてしまう
End Sub
|
|