Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

67102 / 76738

←次へ　｜　前へ→


	【14195】Re:コンパイルエラー

sakurabudoh - 04/5/23(日) 7:58 -


	引用なし

	パスワード

on error resume next

strpath = "C:調べるパス”

set objFS = createobject("scripting.filesystemobject")

set objfolder = objFS.getfolder(strpath)
if err.number <> 0 then
　 msgbox("ｴﾗｰno."&err.number&vbcr&err.description)
　 wscript.quit
end if

set objexcel = createobject("excel.application")
set objbook = objexcel.workbooks.add
objexcel.visible = true

objexcel.cells(1,1).columuwidth =15
objexcel.cells(1,2).columuwidth =15
objexcel.cells(1,3).columuwidth =15
objexcel.cells(1,4).columuwidth =35

objexcel.cells(1,1)value ="ファイル名"
objexcel.cells(1,2)value ="作成日"
objexcel.cells(1,3)value ="最終更新日"
objexcel.cells(1,4)value ="ファイルのパス"

introw = 2

call fileinfo(objfolder)

sub fileinfo(objfolder)

for each objfile in objfolder.files
　　objexcel.cells (introw, 1).value = objfile.name
　　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
>
上記も試してみましたが、abc(1,1)を削除した後、行３　文字１で文字が正しくありませんという、エラーになってしまいます。

1 hits

▼

【14043】コンパイルエラー sakurabudoh 04/5/19(水) 2:32