Excel VBA質問箱 IV

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

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


49934 / 76738 ←次へ | 前へ→

【31700】Re:拡張子なしのファイルの読込
回答  ぱっせんじゃー  - 05/11/28(月) 20:36 -

引用なし
パスワード
   こんばんは。
完全ではないかも知れません、という前置きで・・・。

ファイル名に"."が含まれるかどうかで処理分岐
させてはいかがでしょう?

サンプルです。
Splitを使ってますので、エクセル2000以上でないと使えません。
実際には、Msgboxの部分をファイルの複製の記述に置き換えてく
ださい。

Sub fitiran()
  Dim fname As String, i As Long
  i = 1
  fname = Dir("D:\passe\")
  Do While fname <> ""
    If UBound(Split(fname, ".")) = 0 Then
      MsgBox fname & "はどっとがない"
     End If
    fname = Dir()
  Loop
End Sub

いまから明日のお昼までPCに触れません。あしからず・・・。
0 hits

【31602】拡張子なしのファイルの読込 R 05/11/26(土) 13:32 質問
【31603】Re:拡張子なしのファイルの読込 ぱっせんじゃー 05/11/26(土) 17:15 発言
【31619】Re:拡張子なしのファイルの読込 R 05/11/27(日) 13:28 質問
【31621】Re:拡張子なしのファイルの読込 ぱっせんじゃー 05/11/27(日) 13:40 発言
【31622】Re:拡張子なしのファイルの読込 ぱっせんじゃー 05/11/27(日) 13:41 発言
【31629】Re:拡張子なしのファイルの読込 R 05/11/27(日) 14:59 質問
【31635】Re:拡張子なしのファイルの読込 ぱっせんじゃー 05/11/27(日) 15:44 回答
【31636】Re:拡張子なしのファイルの読込 ぱっせんじゃー 05/11/27(日) 15:52 発言
【31641】Re:拡張子なしのファイルの読込 R 05/11/27(日) 18:28 お礼
【31697】Re:拡張子なしのファイルの読込 R 05/11/28(月) 18:07 質問
【31700】Re:拡張子なしのファイルの読込 ぱっせんじゃー 05/11/28(月) 20:36 回答
【31710】Re:拡張子なしのファイルの読込 R 05/11/29(火) 8:57 お礼
【31637】Re:拡張子なしのファイルの読込 ichinose 05/11/27(日) 16:03 発言

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