|
▼ichinose さん
>こんばんは。
>>初歩的な質問かもしれませんが、
>>フォルダ内の各ファイルの容量が大きいと
>容量による違いがあるとは考えられませんが・・・。
勝手な見解で言ってしまいました。すみません。
>>
>>>Set fls = CreateObject("scripting.filesystemobject").GetFolder
>>>(foldnm).Files
>'↑ここでエラーになるということですか?
>
>>> For Each fl In fls
>>> If UCase(fl.Name) Like UCase("*.xls") Then
>>> ret = 1
>>> Set bk = Workbooks.Open(fl.Path)
デバッグでここ↑が黄色になります。
>
>>getfolderではファイルを認知してもらえないものなのでしょうか?
>>といいますのも
>>ファイルの場所を確認してくださいというエラーが出るのです。
>
>エラー発生時のフォルダ名(foldnmに指定した文字列)を
>教えてください。
>
foldnm="\\sst\商品管理\担当別\商品一覧表"です。
保存先がちがうのですが、okだったのは
foldnm="C:\Documents and Settings\tanaka\My Documents\集計表\練習"
でした。
宜しくお願い致します。
|
|