Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


67177 / 76733 ←次へ | 前へ→

【14115】Re:コンパイルエラー
発言  ichinose  - 04/5/21(金) 0:23 -

引用なし
パスワード
   ▼sakurabudoh さん:
こんばんは。
これ、VBAではなくて、VBSの話ですよね?
objexcelとか、objfolderに何がセットされているかわかりませんが、


>call fileinfo(objfolder)
rem たぶん↑が原因ではないと思います
>
>sub fileinfo(objfolder)
>
>for each objfile in objfolder.files
>  objexcel.cells(introw, 1).value = objfile.name
rem        ↑だと思いますが・・・
>  objexcel.cells(introw, 2).value = objfile.datecreated
>  objexcel.cells(introw, 3).value = objfile.datelastmodified
>  objexcel.cells(introw, 4).value = objfile.path
>  introw = introw + 1
>next
>
>for each objsubfolder in objfolder.subfolders
>  call fileinfo(objfolder)
>next
>
>end sub
>
>VBSの本に載っていたサンプルプログラムを丸写ししたものです。

もうちょっと、簡単なコードにしましょう


call test(1)
sub test(byval aaa)
  msgbox aaa
  abc(1,1) 
  if aaa+1 <= 10 then
   aaa=aaa+1
   call test(aaa)
   end if
end sub

****(これ適当な名前と言う意味です).vbsというファイル名で保存して
これを実行してみて下さい(同じ内容のエラーになります)

abcをプロシジャーだと解釈しているからです。
本当にプロシジャーなら、 call abc(1,1)
と記述しなければならないんですが・・(勿論、abcというプロシジャーがあったとして)。

上のコードのabc(1,1)を削除して再確認してください。
正常に作動するはずです。

上記の例を参考にして頂いて、
>objexcel.cells(introw, 1).value = objfile.name

この辺のコードに問題がないか確認して下さい。


それから、このサイトは、VBAの質問箱ですから、
いきなりコードだけ記述されてしまうとVBAだと思ってしまいます。
(もっとも上記のコードをVBAでどうやって実行するのかわかりませんが)

VBSのご質問もVBAに役に立つ事もあるので、私個人としては、良いと思いますが、
このコードをどういう手順で実行したかとか、
エラーの発生した行とかの情報も記述して下さいね

3 hits

【14043】コンパイルエラー sakurabudoh 04/5/19(水) 2:32 質問
【14044】Re:コンパイルエラー IROC 04/5/19(水) 8:40 回答
【14097】Re:コンパイルエラー sakurabudoh 04/5/20(木) 22:05 質問
【14099】Re:コンパイルエラー Asaki 04/5/20(木) 22:14 回答
【14115】Re:コンパイルエラー ichinose 04/5/21(金) 0:23 発言
【14119】Re:コンパイルエラー Asaki 04/5/21(金) 9:45 発言
【14195】Re:コンパイルエラー sakurabudoh 04/5/23(日) 7:58 質問
【14196】Re:コンパイルエラー ichinose 04/5/23(日) 10:44 発言
【14222】Re:コンパイルエラー sakurabudoh 04/5/24(月) 1:29 お礼

67177 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free