Excel VBA質問箱 IV

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

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


49446 / 76732 ←次へ | 前へ→

【32196】Re:多数ファイル内データの取得方法につ...
回答  Statis  - 05/12/8(木) 21:19 -

引用なし
パスワード
   ▼さくら さん:
>ご回答ありがとうございます。
>試してみたのですが、動きません。なぜでしょうか?
>知らない関数があり、よくわからない箇所があるのですが、
>ご教授頂いたコードで、ファイルを開かせるまでの以下の部分だけで試したところ、Ifのコードが下記の違いで指定ファイルが開いたり開かなかったりするのですが。
>ヘルプを見てもLen関数がよくわかりません。開かせるファイル名によっては =1ではだめなのでしょうか?
>Sub Macro1()
>(この間同じ)
>            If Len(Dir(strFileName & c.Value)) = 1 Then
>            If c.Value <> "" And Dir(strFileName) <> "" Then ← 上行をこうすると開くのですが
>       Workbooks.Open (strFileName & c.Value)
>     End If
>  Next c
>End With
>End Sub


失礼しました
If Len(Dir(strFileName & c.Value)) > 1 Then
でした

または
If Dir(strFileName) <> "" Then
で良いです。
「C.value=""」は必要ありません。
なぜなら、値のあるセルのみを取得しています。下記にて
 Set LastCell = .Range("A1", .Range("A65536").End(xlUp)) _
                 .SpecialCells(xlCellTypeConstants)

0 hits

【32159】多数ファイル内データの取得方法について さくら 05/12/7(水) 17:59 質問
【32160】Re:多数ファイル内データの取得方法について Statis 05/12/7(水) 18:16 発言
【32161】Re:多数ファイル内データの取得方法について Statis 05/12/7(水) 18:32 発言
【32162】Re:多数ファイル内データの取得方法につ... さくら 05/12/7(水) 19:26 回答
【32164】Re:多数ファイル内データの取得方法につ... Statis 05/12/7(水) 20:02 回答
【32195】Re:多数ファイル内データの取得方法につ... さくら 05/12/8(木) 20:40 質問
【32196】Re:多数ファイル内データの取得方法につ... Statis 05/12/8(木) 21:19 回答
【32378】データの取得方法についてII さくら 05/12/13(火) 17:40 質問

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