| |
こんにちは。かみちゃん です。
>『ファイルが既にOPENされていれば【Book1.xls】をOPENする必要はない』
> というような制御は可能でしょうか？
> これはマクロの記録ではできない部分のようで…。
そこまでは、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
|
|
かみちゃん
- 07/7/1(日) 15:57 -
