Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
292 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【81147】フォルダの中のブックを開きたい Ken 19/12/26(木) 17:15 質問[未読]
【81148】Re:フォルダの中のブックを開きたい よろずや 19/12/26(木) 19:47 発言[未読]
【81149】Re:フォルダの中のブックを開きたい Ken 19/12/27(金) 9:03 質問[未読]
【81150】Re:フォルダの中のブックを開きたい よろずや 19/12/27(金) 10:55 発言[未読]
【81151】Re:フォルダの中のブックを開きたい Jaka 19/12/27(金) 11:14 発言[未読]
【81152】Re:フォルダの中のブックを開きたい Ken 19/12/27(金) 13:37 質問[未読]
【81153】Re:フォルダの中のブックを開きたい よろずや 19/12/27(金) 16:39 回答[未読]
【81154】Re:フォルダの中のブックを開きたい ken 19/12/30(月) 9:05 お礼[未読]
【81147】フォルダの中のブックを開きたい
質問  Ken  - 19/12/26(木) 17:15 -
引用なし
パスワード
   いつもお世話になっております。
質問させて下さい。
フォルダの中のブックを開いて処理をするマクロを作っていますが
フォルダのアドレスを指定してダイヤログからブックを選んでいましたが
年度が代わるとフォルダの中に更にフォルダが追加され
そのフォルダを開こうとするとエラーになってしまいます。
この場合どの様に記述したら良いのででしょうか？
【81148】Re:フォルダの中のブックを開きたい
発言  よろずや  - 19/12/26(木) 19:47 -
引用なし
パスワード
   ▼Ken さん：
>年度が代わるとフォルダの中に更にフォルダが追加され
>そのフォルダを開こうとするとエラーになってしまいます。

どんなマクロを書いてますか？
【81149】Re:フォルダの中のブックを開きたい
質問  Ken  - 19/12/27(金) 9:03 -
引用なし
パスワード
   ▼よろずや さん：

お世話になります。
説明不足でお手数をお掛けします。

記述内容は
　
　　With Application.FileDialog(msoFileDialogOpen)
　　　　.InitialFileName = "\\計画\2019年度"
　　　　If .Show Then
　　　　　　FileName = .SelectedItems(1)
　　　　　　Workbooks.Open FileName
　　　　Else
　　　　　　MsgBox "ファイルを指定してください。"
　　　　　　End
　　　　End If
　　End With

「2019年度」のフォルダの中に月別のbookがありますが
年度が更新すると新しい名前（不確定名）のフォルダが追加され
そのフォルダの中に6ヵ月分のbookが入ります。
普通は「2019年度」からbookを開いて処理するのですが
新しい名前のフォルダを開こうとすると
"Workbooks.Open FileName"のところで
「実行時エラー'1004
Openメソッドは失敗しました」エラーが出てしまいます

新しいフォルダの月別のbookの開き方がわかりません
宜しくお願いします。
【81150】Re:フォルダの中のブックを開きたい
発言  よろずや  - 19/12/27(金) 10:55 -
引用なし
パスワード
   現象を再現できません。

新しい名前（不確定名）のフォルダ名
及び、ファイル名は何ですか？

その場所に別のファイルを置いて、それを開くとどうなりますか？
【81151】Re:フォルダの中のブックを開きたい
発言  Jaka  - 19/12/27(金) 11:14 -
引用なし
パスワード
   ひょっとして、キーボードだけで選択確定とかしてないですかね？
同じような質問が過去にありました。
当時は、試してみて単純にＯＳとの連携のせいと感じたので、
Doevents を何発か入れたら解決できました。
そのように回答したら、
質問者は、1つで解決できましたとの事だったような。
【81152】Re:フォルダの中のブックを開きたい
質問  Ken  - 19/12/27(金) 13:37 -
引用なし
パスワード
   jakaさん、よろずやさんお世話になります。

フォルダを調べたところ.zipフォルダでした。
圧縮してあったみたいです。
普通のフォルダの場合はbookが開けました。
この場合開いた状態で処理するしかないみたいです。
圧縮フォルダの場合の開き方などは有るのでしょうか？
【81153】Re:フォルダの中のブックを開きたい
回答  よろずや  - 19/12/27(金) 16:39 -
引用なし
パスワード
   ▼Ken さん：
>フォルダを調べたところ.zipフォルダでした。
>圧縮してあったみたいです。
>普通のフォルダの場合はbookが開けました。
>この場合開いた状態で処理するしかないみたいです。
>圧縮フォルダの場合の開き方などは有るのでしょうか？

「vbaでzipの圧縮・解凍をやらせてみる」で検索。

拡張子が .xlsx のファイルの実態はzipファイルです。
zipフォルダに入れてもそれ以上小さくなることはありません。

zipフォルダに入れないよう、周知するのがよろしいかと。
【81154】Re:フォルダの中のブックを開きたい
お礼  ken  - 19/12/30(月) 9:05 -
引用なし
パスワード
   ▼よろずや さん：

>zipフォルダに入れないよう、周知するのがよろしいかと。

御教授有り難うございます。
他部署で圧縮された物を読み取り専用で見ています。
開いた状態で処理するようにします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
292 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free