Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

27306 / 76732

←次へ　｜　前へ→


	【54749】Re:２ファイルを合体するには

にしもり - 08/3/28(金) 12:42 -


	引用なし

	パスワード

▼ひげくまさん：
A3にデータがありませんでした。失礼しました。

1行目はタイトル行、A2以下にデータなので
　Range("A1").End(xlDown).Offset(1).Select
とすることにしました。
A2以下にデータがあるときのみ実行しますので今後エラーはでないとおもいます。

あと、xls保存は市販の教本をみてできそうなので（向学のためにも）自力ですすめてみます。
本当にどうもありがとうございました。

Sub Macro1()

Dim MyTxtFile1 As String
Dim MyTxtFile2 As String
　　
　　MyTxtFile1 = ActiveWorkbook.Path & "\Post.csv"
　　Workbooks.Open Filename:=MyTxtFile1
　　Range("A2:U2").Select
　　Range(Selection, Selection.End(xlDown)).Select
　　Range(Selection, Selection.End(xlToRight)).Select
　　Selection.Copy

　　MyTxtFile2 = ActiveWorkbook.Path & "\Fax.csv"
　　Workbooks.Open Filename:=MyTxtFile2
　　Windows("Fax.CSV").Activate
　　
　　Range("A1").Select
　　Range("A1").End(xlDown).Offset(1).Select
　　ActiveSheet.Paste

End Sub

0 hits

▼

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