| |
>そこまでは、Excelの一般操作ではできませんから、「マクロの記録」でも記録
>できません。
>
>そこで、以下のような追加をすることでできると思います。
>
>Sub Macro2()
> Dim WB As Workbook
> Dim strBookName As String
>
> '元のブック名
> strBookName = "Book1.xls"
>
> '元のブック名が開いていれば、オブジェクト変数に格納
> On Error Resume Next
> Set WB = Workbooks(strBookName)
> On Error GoTo 0
>
> 'オブジェクト変数に格納できなければ（元のブック名が開いていなければ）
> If WB Is Nothing Then
>' ChDir "C:\DOCUMENTS AND SETTINGS\XXXX\デスクトップ"
> Workbooks.Open Filename:= _
> "C:\DOCUMENTS AND SETTINGS\XXXX\デスクトップ\" & strBookName
> End If
>
> Range("A1:E1").Select
> Selection.Copy
> Windows("1Book1.xls").Activate
> ActiveSheet.Paste
>End Sub
ソースコードにわかりやすいコメントまでつけて
頂きまして、
ありがとうございました。
使用させて頂きます。
|
|
take
- 07/7/1(日) 22:28 -
