| |
▼りんどう さん：
こんなコードで、いかがでしょう
'--------------------------------------------------------------
Private Sub sub_XLS_copy()
Dim myXLS As Object
Const myPATH As String = "C:\Documents and Settings\管理者\デスクトップ\"
Set myXLS = GetObject(myPATH & "ブックA.xls")
myXLS.Application.Visible = True
myXLS.Parent.Windows("ブックA.xls").Visible = True
myXLS.Application.WORKSHEETS("シート1").Copy
myXLS.Parent.ActiveWorkbook.SaveAs _
FileName:=myPATH & "ブックB.xls", _
FileFormat:=-4143
myXLS.Close SaveChanges:=False
Set myXLS = Nothing
End Sub
'--------------------------------------------------------------
> 「ブックB」を新規作成
なので、「ブックB」は存在しないことが前提となっています。
また、「ブックA」は、myXLS.Closeにて閉じていますが、
「ブックB」は閉じていません。
適宜変更して使用してください。
「GetObject」のＶＢＡのヘルプを参照すると良いでしょう。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
