Excel VBA質問箱 IV

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

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


38970 / 76738 ←次へ | 前へ→

【42889】Re:検索のファイル指定
発言  hitosi  - 06/9/24(日) 18:33 -

引用なし
パスワード
   これは上司から作ってくれといわれているんですが、まだそのコピーするファイルのリストが届いてないんです。で、多分そのリストが届いたらそこにフォルダ名も書いてあると思うんです。
だから多分検索場所を少しは絞り込めるとは思うんですが・・・。

↓は僕なりに色々と考えて作ったんです。
シートのA列にコピーするファイルをすべて入力する予定です。
多分↓を見ると僕がしたいことを分かってもらえると思うのですが。
Sub aaa()
On Err GoTo エラー

Dim a As Integer
Dim b As String
Dim c As String
Range("a1").Select
a = 1
Application.Cursor = xlWait
MkDir "c:\コピー先"
Do
With Application.FileSearch
  .NewSearch
  .LookIn = "C:\"
  .SearchSubFolders = True
  .Filename = ActiveCell
  .FileType = ここが分かりません
  If .Execute() > 0 Then
    For i = 1 To .FoundFiles.Count
      b = .FoundFiles(i)
      c = "c:\コピー先\" + ActiveCell
      FileCopy b, c
    Next i
  Else
    MsgBox "ファイルがありません。( & activecell.value & )"
  End If
End With
ActiveCell.Offset(1, 0).Select
a = a + 1
Loop Until a = 18000
Application.Cursor = xlDefault
Exit Sub
エラー:
MsgBox "エラーが発生しました"
End Sub

filetypeさえできれば多分いくと思うんですが。

0 hits

【42852】検索のファイル指定 hitosi 06/9/23(土) 12:28 質問
【42854】Re:検索のファイル指定 かみちゃん 06/9/23(土) 12:37 発言
【42856】Re:検索のファイル指定 hitosi 06/9/23(土) 12:58 発言
【42858】Re:検索のファイル指定 かみちゃん 06/9/23(土) 13:14 発言
【42874】Re:検索のファイル指定 hitosi 06/9/24(日) 8:30 質問
【42875】Re:検索のファイル指定 かみちゃん 06/9/24(日) 8:53 発言
【42877】Re:検索のファイル指定 hitosi 06/9/24(日) 16:01 質問
【42879】Re:検索のファイル指定 ぱっせんじゃー 06/9/24(日) 16:38 発言
【42880】Re:検索のファイル指定 hitosi 06/9/24(日) 16:53 発言
【42881】Re:検索のファイル指定 ぱっせんじゃー 06/9/24(日) 17:14 発言
【42884】Re:検索のファイル指定 hitosi 06/9/24(日) 17:32 質問
【42885】Re:検索のファイル指定 かみちゃん 06/9/24(日) 17:40 発言
【42886】Re:検索のファイル指定 ぱっせんじゃー 06/9/24(日) 17:42 発言
【42889】Re:検索のファイル指定 hitosi 06/9/24(日) 18:33 発言
【42890】Re:検索のファイル指定 かみちゃん 06/9/24(日) 18:43 発言
【42891】Re:検索のファイル指定 ぱっせんじゃー 06/9/24(日) 18:43 発言
【42894】Re:検索のファイル指定 かみちゃん 06/9/24(日) 19:14 発言
【42893】Re:検索のファイル指定 かみちゃん 06/9/24(日) 19:10 発言

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