|
ぴかる さん、すずきさん、おはようございます。
ぴかるさん、横から失礼します。
>ツール→マクロ→マクロの記録をONにしてから、↑操作を行えばコード化されます。
>まず、いろんな操作を記録してコード確認する事をお勧めします。
ぴかるさんのおっしゃる通り、そうして試行錯誤していくのが勉強になっていいですよね♪
でも、いちおう考えたので、よけいなお世話になっちゃうけど、乗せちゃいます。
たいしたコードでもないですけど・・・
Sub test()
Dim wb As Workbook
On Error Resume Next
Set wb = Workbooks.Open("C:\WINDOWS\デスクトップ\Book1.xls")
On Error GoTo 0
If wb Is Nothing Then
MsgBox "対象ファイルがありません"
Exit Sub
End If
wb.Worksheets("Sheet1").Range("a1:a2").Copy _
Destination:=wb.Worksheets("Sheet2").Range("a1")
wb.Close SaveChanges:=True
Set wb = Nothing
End Sub
|
|