EXCEL VBA何故こうなるのでしょうか

質問

宜しくお願いいたします
アクティブになっていない同じファイルにある
WORKBOOKを開く構文として
sub 新規トレーニングへ()
Workbooks Open Filename:="F:新規トレーニング.xlsm"
Worsheets("新規").select
End Sub
Private ub CommandButton1_cilck()
新規トレーニングへ
End Sub
をＵＳＢにＦドライブに作成して問題なく動いています
そこで他のＵＳＢ　Ｈドライブへコピー（移動）して（構文のＦをＨへ書き込み訂正）ＨドライブのＵＳＢでは問題なく動いています
ここが質問です
ところがＰＣのＣドライブのドキュメントへ（ＦドライブＵＳＢを作ったＰＣ）へコピー（移動）すると（同様に構文のＦをＣへ書き込み訂正）
Workbooks Open Filename:="F:新規トレーニング.xlsm"
がデバッグで黄色い色が付き動かないのです。
ＵＳＢ（Ｆドライブ）からＵＳＢ（Ｈドライブ）は問題なし
ＵＳＢ（Ｆドライブ）からＰＣ（Ｃドライブ）デバッグで動かない
何故こうなるのでしょうか、ご教授お願いいたします。

回答No.5

chayamati

こんにちは、回答No.4です
私のPCはWindows10ですがドキュメントは「C:\ユーザー\ユーザ名」にあります。
-----------------------------------------------------------------
＞Workbooks Open Filename:="F:新規トレーニング.xlsm"
これを
　Workbooks Open Filename:="C:\ユーザー\ユーザ名\ドキュメント\新規トレーニング.xlsm
として下さい

回答No.4

chayamati

回答No.1,2の方同じことを指摘されています。
じっくり読み直してください
＞ところがＰＣのＣドライブのドキュメントへ（ＦドライブＵＳＢを作ったＰＣ）へコピー（移動）
　このQの「のドキュメント」外して
　ところがＰＣのＣドライブへ（ＦドライブＵＳＢを作ったＰＣ）へコピー（移動）
と質問できるようにコピーして下さい

回答No.3

noname#252332

質問文の Workbooks Open Filenameに"．"が抜けていたり、Worsheets("新規").selectの"k"が抜けていたりするようです。テキストのコピー、貼り付けを使えば間違いもなく簡単です。
https://www.sony.jp/support/vaio/beginner/school/shortcut/01.html

　まず半角の"￥"と”＼"ですが、表示する文字コードシステムによってどちらかが表示されますが、コンピュータから見ると同じ文字です。というのは、ASCIIコードを最初に見た日本人が、バックスラッシュなんか要らないから円記号にしたほうが便利だ、とバックスラッシュのコードで円記号を表示するように決めました。つまり、半角で￥と打ったのにバックスラッシュになった、というのはコンピュータにとっては同じ文字なので問題ありません。これが￥に見えるのは日本御システムだけです。国際語化されたunicodeのシステムではバックスラッシュに見えます。

https://social.technet.microsoft.com/Forums/ja-JP/fc2bcf92-05f2-43dd-8047-c77f7be1294d/windows101239112398c124891252112452125021245012463124751247327177?forum=win10itprogeneralJP
　ところで今のWindowsではCドライブのルートに編集するファイルを置きません。ドキュメントフォルダでもデスクトップでも好きな場所に置いて、それがCドライブのどこなのか、そのファイルを右クリックしてプロパティを見て場所を知り、その場所をアクセスすればいいです。たとえば私のパソコンのドキュメントフォルダを右クリックしてプロパティを見ると
C:\Users\toshi
と書いてあります。ここにtest.txtを置いたなら、
C:\Users\toshi\test.txt
というわけです。いま私のパソコンで見ると\がバックスラッシュに見えますが、これをメモ帳にコピーするとちゃんと円記号に見えますよ。

回答No.2

mt2015

マイドキュメントはCドライブ直下じゃないですから C:\新規トレーニング.xlsm にはブックがありません。
自ブックと同じフォルダのブックを対象にするならThisworkbook.path を使った方が良いです。

Sub 新規トレーニングへ()
　　Workbooks.Open Filename:=ThisWorkbook.Path & "\新規トレーニング.xlsm"
　　Worksheets("新規").Select
End Sub

回答No.1

watabe007

>ところがＰＣのＣドライブのドキュメントへ
ドキュメントにコピーしたのなら
sub 新規トレーニングへ()
　　Dim myPath As String
　　myPath = CreateObject("WScript.Shell").SpecialFolders("MyDocuments")
　　Workbooks.Open Filename:=myPath & "\新規トレーニング.xlsm"
　　Worsheets("新規").select
End Sub