こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

ディレクトリの変更がしたいです

windows10,Microsoft365使用の超初心者です。
1時間かかってもディレクトリの変更ができませんでした。( ノД`)シクシク…
デスクトップにフォルダAAがあります。その中にBB.xlsmとフォルダCCがあります。
そして、BB.xlsmをクリックすると、ユーザーフォームDDが表示されます。
その中のコマンドボタンEEをクリックするとダイアログボックスが現れます。
ボックスの中には、フォルダCCの中のファイルから1個を開きたいです。
Sub ファイルを開くダイアログボックスを用いてファイルを開く()

Dim OpenFileName As String
ChDrive "C"
ChDir "C:\user\nanigasi\Desktop\フォルダAA\フォルダCC"
OpenFileName = Application.GetOpenFilename(FileFilter:="Excelファイル,*.xlsx")
If OpenFileName <> "False" Then
Workbooks.Open OpenFileName
Else
MsgBox "キャンセルされました"
End If
End Sub

投稿日時 - 2020-08-05 20:38:39

QNo.9781645

すぐに回答ほしいです

質問者が選んだベストアンサー

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

  ChDir "C:\user\nanigasi
   ↓
  ChDir "C:\Users\MA
に変更してやってみたら、上手くいきました。

しかしフォルダ名やファイル名のミスでは、
「申し訳ございません。****が見つかりません。名前が変更されたか、移動や削除が行われた可能性があります。1004」
のエラーメッセージが出てきます。

具体的にどこで止まりますか。
もし、ファイルを選んだあと止まるのであれば、ファイルが非表示でOpenされた状態になっている、可能性が高いです。これは、再起動すれば治ります。
もう一つ、ファイルが壊れている可能性です。別のファイルを開いても、同じ症状でしょうか。
思い付くことはこれだけで、再起動してもだめなら力になれないかもしれません。

投稿日時 - 2020-08-09 08:49:46

あなたにオススメの質問