[[20151203202208]]　『worksheetオブジェクトについて』（まさお）　ページの最後に飛ぶ

『worksheetオブジェクトについて』（まさお）

Excel上にworksheetオブジェクト(カレンダー)が貼り付けてあり
これを起動時にデータを更新(開くたびに当月のカレンダーに更新)
させる方法を教えて頂きたいのですが
よろしくお願いします。
現在は、起動時にリンク先として登録起動させています。
マクロで出来ないか、検索してみたのですが見つかりませんでした。

=Excel.Sheet.8|'D:\SCHEDULE\カレンダー.xls'!''''

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

DDEを使っている理由、処理の内容、今回処理を変更したい理由などを
説明されたほうが、回答がつきやすいかもしれませんね。
（γ） 2015/12/03(木) 21:10

γさん
内容的にそうですよね(回答付きにくい)
ずいぶん前に作成（Excel2003）処理方法が古い？

メインの週間予定表にworksheetオブジェクトで2ヵ月分のカレンダーを組み込んでいます。
週間予定表の年月日を読込、該当月と次月2ヵ月分をworksheetオブジェクトで対応
なのでリンクさせ一度カレンダー.xls開き　メインの週間予定表の年月日と同期反映
現在のマクロ

    ActiveSheet.Shapes("Object 332").Select
    Selection.Verb
    ActiveWorkbook.Save
    ActiveWindow.Close
    ActiveWindow.WindowState = xlMaximized
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

一度開き反映後閉じたいマクロ？
？Sub test()

    Dim WB As Excel.Workbook
    Dim Sh As Excel.Worksheet
　　DBpath = "D:\SCHEDULE\カレンダー.xls"
　　Application.ScreenUpdating = False
    Set WB = Workbooks.Open(DBpath)
    Set Sh = WB.Worksheets("Sheet1")
    WB.Close False
よく解りませんが・・・？
よろしくお願いします。

（まさお） 2015/12/04(金) 02:03

コメントがつきませんね。
＞現在は、起動時にリンク先として登録起動させています。
という方法では、何がまずいのでしたっけ？
それで機嫌良く動いているなら、それでいいじゃありませんか。

（γ） 2015/12/04(金) 22:14

コメント返信：

[ 一覧(最新更新順) ]

[[20151203202208]] 『worksheetオブジェクトについて』（まさお） ページの最後に飛ぶ

[[20151203202208]]　『worksheetオブジェクトについて』（まさお）　ページの最後に飛ぶ