■ エクセルマクロについてです。初級？

質問

エクセルのマクロでデスクトップにあるエクセルファイルを開くにはどうしたらいいのでしょうか？

現在は、エクセルファイルＡ.xls Ｂ.xlsという２つを開いていて、マクロを実行することができるのですが、これをＡ.xlsだけ開いている上体で、実行したいのです。

なので、デスクトップに置いてあるＢ．xlsファイルを開くコマンド？というか、関数が知りたいのですが、どうしたらいいのでしょうか？

現在はこのような感じになっております。
Sub Macro2()
'
' Macro2 Macro
' マクロ記録日 : 2008/9/10 ユーザー名 : '

'
ActiveCell.FormulaR1C1 = "12345"
Range("G17").Select
ActiveCell.FormulaR1C1 = "129876"
Range("G18").Select
Windows("Ｂ.xls").Activate
Range("N16").Select
ActiveCell.FormulaR1C1 = "8/4/2008"
Range("N17").Select
ActiveWorkbook.Save
Range("O16").Select
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

回答No.2

n-jun · ベストアンサー

Sub test()

Dim DesktopPath As String
DesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
Workbooks.Open Filename:=DesktopPath & "\B.xls"

End Sub
開くだけですけど。

回答No.1

tgook

マクロ記録を使った結果、以下のようになりました。

以下を A.xls に埋め込むことで、
デスクトップ上のB.xlsを開くことができます。

Workbooks.Open Filename:="C:\Documents and Settings\ユーザネーム\デスクトップ\B.xls"