Excel VBA質問箱 IV

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

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


38 / 73808 ←次へ | 前へ→

【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

66 hits

【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 発言[未読]

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