Excel VBA質問箱 IV

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

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


16659 / 76738 ←次へ | 前へ→

【65543】Re:特定文字を含むブックの移動
発言  Jaka  - 10/6/3(木) 15:29 -

引用なし
パスワード
         For X = 1 To 3

       .NewSearch ← これ入れてみたらどうでしょうか?
               (実際のファイル名がわからないので未確認)

        If X = 1 Then
          .Filename = 商品 & "_*-.xls"
        ElseIf X = 2 Then
           .Filename = 商品 & ".xls"
        ElseIf X = 3 Then
           .Filename = 商品 & "*_.xls"
        End If
        
        If .Execute > 0 Then
         For U = 1 To 1
          Target = .FoundFiles(U)
          Target2 = Right(Target, Len(Target) - InStrRev(Target, "\"))
          
          Name Target As MyFolder2 & Target2
        Next U
        Exit For
        End If
      Next X

//////////////
 Else
  .NewSearch  ←
  RANK = Right(Cells(i, 3), 1)
   .Filename = 商品 & "*" & RANK & ".xls"
          If .Execute > 0 Then
            For U = 1 To 1
            Target = .FoundFiles(U)
            Target2 = Right(Target, Len(Target) - InStrRev(Target, "\"))
             Name Target As MyFolder2 & Target2
            Next U
          End If
     
 End If
 End With
1 hits

【65514】特定文字を含むブックの移動 まい 10/6/1(火) 13:51 質問
【65515】Re:特定文字を含むブックの移動 Jaka 10/6/1(火) 15:24 発言
【65543】Re:特定文字を含むブックの移動 Jaka 10/6/3(木) 15:29 発言
【65557】Re:特定文字を含むブックの移動 まい 10/6/8(火) 12:42 質問

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