Excel VBA質問箱 IV

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

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


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

1742 / 76734

←次へ　｜　前へ→


	【80637】Re:フォルダからファイルを選択後別フォルダへコピーする

katsura

- 19/3/25(月) 16:22 -


	引用なし

	パスワード

▼マナさん：
>▼katsura さん：
>
>filecopyとgetopenfilenameを使うとよいです。
>
>ht tp://officetanaka.net/excel/vba/statement/FileCopy.htm
>ht tps://www.moug.net/tech/exvba/0060013.html

ありがとうございます。
ファイルを選択するところまでは作ったのですが、クリックしたエクセルをコピーする書き方がわかりません。
なにか見本があったらお願いしたいのですがよろしくお願いいたします。

Sub フォルダを開きファイル選択をしてコピーする()

　　Dim OpenFileName As String, FileName As String, Path As String
　　OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
　　If OpenFileName <> "False" Then
　　
　　　　FileName = OpenFileName '←←←【パスとファイル名取得】
　　　　
　　Else
　　　　MsgBox "キャンセルされました"
　　End If
　　

End Sub

10 hits

▼

【80633】フォルダからファイルを選択後別フォルダへコピーする katsura 19/3/22(金) 15:28