Excel VBA質問箱 IV

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

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


24 / 13055 ツリー ←次へ | 前へ→

【79410】ワイルドカードの使い方 インザーギ 17/10/7(土) 10:20 質問[未読]
【79411】Re:ワイルドカードの使い方 マナ 17/10/7(土) 11:19 発言[未読]
【79413】Re:ワイルドカードの使い方 インザーギ 17/10/7(土) 11:58 お礼[未読]
【79414】Re:ワイルドカードの使い方 マナ 17/10/7(土) 13:50 発言[未読]
【79412】Re:ワイルドカードの使い方 γ 17/10/7(土) 11:39 発言[未読]

【79410】ワイルドカードの使い方
質問  インザーギ  - 17/10/7(土) 10:20 -

引用なし
パスワード
   指定したのファイルを取得して、指定したコピー先にコピーするマクロを
作成していますが、ファイルが一部取得できません。

B15に"NN.jpg"
B16に"264.5.jpg"
B17に"mm.jpg"
の文字列が入力されています。
B16の文字列の5桁目だけ数字が変化します。
ワイルドカードを使用して、取得できるように試みましたが上手く取得できません。下記のコードでどのように変更すれば良いでしょか。


  Dim myFso As Object
  Dim k As Integer
  Dim sfile As String
  Dim sfolder As String
  Dim dfile As String
  Dim dfolder As String
  Dim sPath As String
  Dim dPath As String
  Dim f As String
Set myFso = CreateObject("Scripting.FileSystemObject")
'ファイル名、フォルダ名
  For k = 15 To 17
    sfile = Cells(k, "B").Value
    sfolder = Cells(k, "C").Value
    dfile = Cells(k, "D").Value
    dfolder = Cells(k, "E").Value
    sPath = sfolder & "\" & sfile
    
    ' sfileワイルドカード対応("264.*.jpg" などの入力)
    f = Dir(sPath)
    sPath = sfolder & "\" & f
    dPath = dfolder & "\" & dfile


  '転記先ファイルの削除(念のため)
   If myFso.fileexists(dPath) Then myFso.GetFile(dPath).Delete Force:=True
  'ファイル移動
  If myFso.Folderexists(dfolder & "\") Then
  
   myFso.copyFile sPath, dPath
  End If

  Next
End Sub

【79411】Re:ワイルドカードの使い方
発言  マナ  - 17/10/7(土) 11:19 -

引用なし
パスワード
   ▼インザーギ さん:

"264.*.jpg"

で、あってると思いますが?


B16セルに、264.*.jpg と入力
または、
If k = 16 Then sfile = "264.*.jpg"
または、
If k = 16 Then Mid(sfile, 5) = "*"

【79412】Re:ワイルドカードの使い方
発言  γ  - 17/10/7(土) 11:39 -

引用なし
パスワード
   >ワイルドカードを使用して、取得できるように試みましたが上手く取得できません。

・ワイルドカードをどのように使用したのですか?
・上手くできないとは、どのようなことですか?
 エラーが発生しているのですか?
 それとも想定と異なる結果なんですか?
 どんな結果を想定して、どんな結果になってしまっているのですか?
説明をしてください。

【79413】Re:ワイルドカードの使い方
お礼  インザーギ  - 17/10/7(土) 11:58 -

引用なし
パスワード
   説明不足が多々あり申し訳ありません。
問題解決でき、参考になりました。

【79414】Re:ワイルドカードの使い方
発言  マナ  - 17/10/7(土) 13:50 -

引用なし
パスワード
   あぁ、コードはいただきものでしたか。

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