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

質問

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

回答No.1

Hayashi_Trek · ベストアンサー

https://qiita.com/sozaiya/items/e3219c6e6fd0e85162c8

回答No.2

SI299792

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

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

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