Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


27343 / 76738 ←次へ | 前へ→

【54718】2ファイルを合体するには
質問  にしもり  - 08/3/27(木) 16:05 -

引用なし
パスワード
   こんにちは。

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

0 hits

【54718】2ファイルを合体するには にしもり 08/3/27(木) 16:05 質問
【54719】Re:2ファイルを合体するには ひげくま 08/3/27(木) 16:13 発言
【54720】Re:2ファイルを合体するには VBWASURETA 08/3/27(木) 16:15 回答
【54721】Re:2ファイルを合体するには VBWASURETA 08/3/27(木) 16:27 質問
【54725】Re:2ファイルを合体するには にしもり 08/3/27(木) 17:18 質問
【54738】Re:2ファイルを合体するには ひげくま 08/3/28(金) 9:15 発言
【54741】Re:2ファイルを合体するには VBWASURETA 08/3/28(金) 9:42 発言
【54742】Re:2ファイルを合体するには にしもり 08/3/28(金) 10:40 質問
【54743】Re:2ファイルを合体するには ひげくま 08/3/28(金) 11:24 回答
【54746】Re:2ファイルを合体するには にしもり 08/3/28(金) 11:56 質問
【54747】Re:2ファイルを合体するには ひげくま 08/3/28(金) 12:13 回答
【54749】Re:2ファイルを合体するには にしもり 08/3/28(金) 12:42 お礼

27343 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free