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

締切り済みの質問

エクセルVBA教えてください

sub 新規トレーニングへ()
Workbooks Open Filename:="F:新規トレーニング.xlsm
Worksheets("新規2").Select
End Sub
Private ub CommandButton1_click()
新規トレーニングへ
End Sub
アクティブでないbookをボタンで開くようにしています
こんな構文でUSBで作成して問題無く動いています
が他のPCへ移動してドライブをCに変えたところ
Workbooks Open Filename:="F:新規トレーニング.xlsmが黄色で
この部分にデバッグです
移動してドライブをCに変えただけではVBAではダメなのでしょうか
何故だめ?なのと解決方法を教えてくださると有り難いのです
それとも初めからCドライブで作り直しなのでしょうか
宜しくお願いいたします。

投稿日時 - 2019-02-20 22:20:06

QNo.9589908

困ってます

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

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

回答(3)

ANo.3

「F:新規・・」のFドライブは、別のPCでも「正しい=そのファイルについて、該当があり」ますか。

投稿日時 - 2019-02-21 07:43:51

ANo.2

お早うございます
>他のPCへ移動してドライブをCに変えたところ
 移動してドライブをCに変えただけではVBAではダメなのでしょうか
!これでよいですが
 ・「新規トレーニング.xlsm」はCドライブに入っていますか
 ・命令文の末尾に「"」がありますか
  Workbooks Open Filename:="C:新規トレーニング.xlsm"


  

投稿日時 - 2019-02-21 07:26:36

ANo.1

フォルダを指定していません。何処に保存しましたか。

何も指定しない場合、初期値として、
C:\Users\ユーザー名\Documents
になるみたいです。

フォルダの指定方法はChdir を使う方法と直接入れる方法があります。
  ChDir "C:\Users\ユーザー名\Documents"
を上に追加するかまたは、又は
  Workbooks.Open "C:\Users\ユーザー名\Documents\新規トレーニング.xlsm"
のような形にするかです。

もし、このワークブックと同じフォルダなら、
  ChDir ThisWorkbook.Path
を上に追加するか、又は
  Workbooks.Open ThisWorkbook.Path & "新規トレーニング.xlsm"
にして下さい。

投稿日時 - 2019-02-21 06:39:52

あなたにオススメの質問