| |
> 基本がよくわかっていないもので
> 訳のわからないことやっていると思いますが
では、わからないところは片っ端からHelpなりで調べるなどして
徹底的にお勉強してください。
DebugのTechnicが十分でないようなので、基本的なDebug方法を
教えますのでいろいろ試してみてください。
> Workbooks.Open ThisWorkbook.Path & "\□□.xls" & Target.Value
これが何をしているかわかりますか？
まあ、答えを書いてしまうと、引数Filenameに指定されたBookを
開くという命令です。
ここで、Bookが開けないということはどういう原因が想定されますか？
一番可能性が高いのは、「ThisWorkbook.Path & "\□□.xls" & Target.Value」
というBookが存在しないCaseです。
「ThisWorkbook.Path & "\□□.xls" & Target.Value」
このままですと、全体が見渡しづらいので、一度String型の変数に
入れてやります。
Dim strFilePath As String
strFilePath = ThisWorkbook.Path & "\□□.xls" & Target.Value
こうしておいて、その文字列を表示させる命令を実行します。
Msgbox strFilePath 'メッセージボックスに表示します。
Debug.Print strFilePath 'イミディエイトウィンドウに表示します。
こうすれば、そのProcedureが実行されたときのBookのPathが
得られますので、そのFileが存在するか判断可能でしょう。
CodeをDebugするには、おかしくなっていると思われる変数を
調べるというのが基本ですので、このようにMsgbox, Debug.Printを
しようして、片っ端から変数の値を調べてやりましょう。
あと、ヘルプの記述がわかりずらいのであれば、VBAの「文法」を
きちんと解説している参考書を購入して、勉強したほうがいいでしょうね。
(これを理解することが、VBAを習得する上で一番の近道です。)
「文法」さえ、理解できれば、あとはここのMethod, Propertyを
Helpで調べるだけで使いこなせるようになります。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
