Excel VBA質問箱 IV

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

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


40049 / 76738 ←次へ | 前へ→

【41793】Re:複数ブックのデータを2条件により転記しない方法
発言  tanaka  - 06/8/22(火) 22:40 -

引用なし
パスワード
   ▼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\集計表\練習"
でした。

宜しくお願い致します。
0 hits

【41737】複数ブックのデータを2条件により転記しない方法 tanaka 06/8/21(月) 20:39 質問
【41740】Re:複数ブックのデータを2条件により転記... ichinose 06/8/21(月) 21:53 発言
【41788】Re:複数ブックのデータを2条件により転記... tanaka 06/8/22(火) 21:25 発言
【41791】Re:複数ブックのデータを2条件により転記... ichinose 06/8/22(火) 22:13 発言
【41793】Re:複数ブックのデータを2条件により転記... tanaka 06/8/22(火) 22:40 発言
【41796】Re:複数ブックのデータを2条件により転記... ichinose 06/8/23(水) 8:02 発言
【41836】Re:複数ブックのデータを2条件により転記... tanaka 06/8/23(水) 22:00 発言
【41849】Re:複数ブックのデータを2条件により転記... ichinose 06/8/24(木) 8:17 発言
【41877】Re:複数ブックのデータを2条件により転記... tanaka 06/8/24(木) 21:03 発言
【41890】Re:複数ブックのデータを2条件により転記... ichinose 06/8/25(金) 7:34 発言
【42004】Re:複数ブックのデータを2条件により転記... tanaka 06/8/28(月) 21:58 発言
【42005】Re:複数ブックのデータを2条件により転記... ichinose 06/8/28(月) 22:20 発言
【42022】Re:複数ブックのデータを2条件により転記... tanaka 06/8/29(火) 21:36 発言
【42059】Re:複数ブックのデータを2条件により転記... ichinose 06/8/30(水) 18:55 発言
【42069】Re:複数ブックのデータを2条件により転記... tanaka 06/8/30(水) 23:16 発言
【42076】Re:複数ブックのデータを2条件により転記... ichinose 06/8/31(木) 7:43 発言
【41752】Re:複数ブックのデータを2条件により転記... Kein 06/8/22(火) 0:45 回答
【41789】Re:複数ブックのデータを2条件により転記... tanaka 06/8/22(火) 21:48 お礼

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