プロが教えるわが家の防犯対策術!

フォルダの中にPDFファイルがあります。
そのPDFファイルを個数指定してコピーする方法が知りたいのです。
何回コピーしますか とメッセージボックスが表示され、300 と入力すると
そのPDFファイルが300個複写されてくる・・・みたいな事がしたいのですが
何か良い方法ありますでしょうか。
どうぞよろしくお願い致します。

A 回答 (3件)

こんにちは


同じ場所にファイルをコピーすると同じ名前で作成できないのは
ご存知かと思いますが、同じ場所に内容が同じでファイル名が違うものを沢山作る意味が不明です
デモ用ファイルを作成するにも、手作業でコピペを繰り返しても300なら
ファイル名に問題があるかも知れませんが、一分とかからない9回程度かなと思います。

>何か良い方法ありますでしょうか。
本来の目的が理解できませんでしたので、VBAなど処理プログラムで
行うのが良いとは言えないと思いますが、とは言っても始まらないので
VBAで実行する場合

Dim fso As Object
Dim f_Path As String, f_Name As String
Dim folPath As String, rept_cnt As Integer
Dim i As Integer
Set fso = CreateObject("Scripting.FileSystemObject")

'ファイル選択ダイアログ
f_Path = Application.GetOpenFilename _
(" ファイル,*.pdf", , "コピー元ファイルを選んで下さい")
If f_Path = "False" Then Exit Sub

'フォルダ選択ダイアログ
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "保存先フォルダを選択してください"
.Show
If folPath = "" Then Exit Sub
folPath = .SelectedItems(1)
End With

'回数設定 InputBoxメソッド
rept_cnt = Application.InputBox _
(Prompt:="何回コピーしますか?", Type:=1)
If rept_cnt = 0 Then Exit Sub

'fsoファイル名取得メソッド
f_Name = fso.GetBaseName(f_Path)

'コピー実行ループ
For i = 1 To rept_cnt
'fso ファイルコピーメソッド
fso.CopyFile f_Path, folPath & "\" & f_Name & i & ".pdf"
Next i
Set fso = Nothing

エラー処理、問題点などは考慮していません。
プロシージャを作成すれば、実行できると思います
    • good
    • 0

エクセルのVBAでできます。


ファイル名を変数にする、dim命令でファイル名をSEET(1).PDF、SEET(2).PDF、SEET(3).PDF・・・でできると思うけど
ディスクの容量へらすだけど意味が解りません。
    • good
    • 0

左上の印刷アイコンを押すと印刷設定の画面が出ますから、その左上に部数を指定する所がある筈



真ん中下に印刷がポップアップで出て来ても同じです
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!