[[20170128233205]]　『なぜか保存ができない』（vo）　ページの最後に飛ぶ

『なぜか保存ができない』（vo）

 こんばんわ。
 下記のVBAなんですが、なぜか2つ目の書き方(ActiveWorkbook.Close SaveChanges:=True
)だと保存ができないのです。
 それってなんででしょうか？

 Sub ほぞんできた()

    Dim buf As String
    Dim さんがつ As String
    さんがつ = "C:\Users\Desktop\2017_03\"

    buf = Dir(さんがつ & "*.xls*")
    Do While buf <> ""

    Workbooks.Open fileName:=さんがつ & buf, UpdateLinks:=1
    ActiveWorkbook.Save
    ActiveWindow.Close
    buf = Dir()

    Loop

 End Sub

 Sub なぜかほぞんできない()

    Dim buf As String
    Dim さんがつ As String
    さんがつ = "C:\Users\Desktop\2017_03\"

    buf = Dir(さんがつ & "*.xls*")
    Do While buf <> ""

    Workbooks.Open fileName:=さんがつ & buf, UpdateLinks:=1
    ActiveWorkbook.Close SaveChanges:=True
    buf = Dir()

    Loop

 End Sub

＜使用 Excel：unknown、使用 OS：unknown ＞

開いて閉じるだけで、何も変更していないからではありませんか？
それとも、実際のコードでは、何か処理していますか。

（マナ） 2017/01/28(土) 23:58

 横から失礼します。

 参考HPです｡

http://excelvba.pc-users.net/fol4/4_3.html
（カリーニン） 2017/01/29(日) 00:19

 質問内容をよく見てませんでした。
 私のレスはスルーしてください。
（カリーニン） 2017/01/29(日) 00:22

マナさん

そういう理由なんですね！
3月というフォルダに入っているファイルをAの部署とBの部署で共有して使います。ただ、2月の中旬くらいにAの部署でこのファイルにリンクづけされる(いわゆる外部参照っていうんですかね?)別の資料を作成することでこのファイルが本当の意味で完成するのです。完成すればAの部署では単にファイルを開けばリンクの更新がされ、普通に使えるようになるのですが、Bの部署から開いてもリンクの更新がされないので「まだ完成しませんか？」というお声がかかるので2月の中旬に自分が全てのファイルをUpdateLinks:=1で開いて保存して閉じればBの部署でも使えるようになるということなんです。

すみません、つたない説明で。。

カリーニンさん　ご配慮ありがとうございました(^^♪
（vo） 2017/01/29(日) 00:28

コメント返信：

[ 一覧(最新更新順) ]

[[20170128233205]] 『なぜか保存ができない』（vo） ページの最後に飛ぶ

[[20170128233205]]　『なぜか保存ができない』（vo）　ページの最後に飛ぶ