Excel VBA質問箱 IV

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

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


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

75695 / 76732

←次へ　｜　前へ→


	【5469】Re:はじめまして、初心者です

ひで - 03/5/15(木) 11:52 -


	引用なし

	パスワード

▼Be Quit さん olive さんこんにちは

横から失礼します

>1.ファイルは開かずにファイルコピーするマクロ　を作りたいのです。
>コピー元ファイルを(Application.GetOpenFilename)で選択形式で選び、
>コピー先フォルダを(Application.GetSaveFilename)で選択形式で選び
>(FileCopy)でコピーする、　までは成功したのですが、例えばそれを
>コピーする回数を(InputBox)で数値を入力させてその回数分コピーしたいのです。
>そこで入力した数値分のループ文にしようと思うのですが・・

こんなんでしょうか？
まとはずれならごめんなさい

Sub test1()

Dim gn1 As String
Dim gs1 As String
Dim r As Long
Dim N As Long
Dim prompt, Titl, def

prompt = "コピー回数は？"
Titl = "質　問？"　　　　
def = " 1 "

N = InputBox(prompt, Titl, def)

For r = 1 To N

gn1 = Application.GetOpenFilename
gs1 = Application.GetSaveAsFilename
FileCopy gn1, gs1
Next r

End Sub

詳しくはヘルプを見てくださ～い

4 hits

▼

【5457】はじめまして、初心者です olive 03/5/14(水) 19:53