Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2965 / 76735

←次へ　｜　前へ→


	【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

1 hits

▼

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