| |
▼りん さん olive さん、おはようございます。
ちびちびやってたら回答が遅くなってすいませーん
りんさん回答フォローありがとうございます。
（お久しぶりです・・）
りんさんの回答があるのですが、せっかくつくったので
のせさせてください。
私のつくったのはなんだか、あくせく(^^; 動くコード
で 恥ずかしいのですが・・・
Sub test1()
Dim gn1 As Variant
Dim gs1 As Variant
Dim ps1 As Variant
Dim ps2 As Variant
Dim ps3 As Variant
Dim fn As Variant
Dim k1 As Long
Dim k2 As Long
Dim r As Long
Dim N As Long
Dim s As Long
Dim prompt, Titl, def
prompt = "コピー回数は？"
Titl = "質 問？"
def = " 1 "
N = InputBox(prompt, Titl, def)
gn1 = Application.GetOpenFilename
If gn1 = False Then
MsgBox "ｷｬﾝｾﾙされました"
Exit Sub
End If
gs1 = Application.GetSaveAsFilename
If gs1 = False Then
MsgBox "ｷｬﾝｾﾙされました"
Exit Sub
End If
s = 1
Do
ps1 = InStr(s, gs1, "\", 1)
s = 1 + s
If 0 < ps1 Then
ps2 = Mid(gs1, s)
End If
Loop Until ps1 = 0
k1 = Len(gs1)
k2 = Len(ps2)
ps3 = Left(gs1, k1 - k2)
fn = Right(gs1, k2)
For r = 1 To N
FileCopy gn1, ps3 & r & "-" & fn
Next r
End Sub
|
|
ひで
- 03/5/19(月) 10:11 -
